获取数据窗口数据列的数据类型

最新推荐文章于 2024-11-15 16:31:16 发布

转载最新推荐文章于 2024-11-15 16:31:16 发布 · 4.1k 阅读

PowerBuild 专栏收录该内容

43 篇文章

订阅专栏

本文详细介绍了如何从数据窗口中获取数据列的数量，并针对每一列的数据类型进行判断和处理，确保数据的一致性和准确性。

获取数据窗口数据列的数据类型

llCount = Long(idwLTRList.Describe("DataWindow.Column.Count"))
	For i = 1 To llCount
		lsColumnName = Lower(idwLTRList.Describe('#' + String(i) + ".name"))
		If Left(lsColumnName , Len('lis_data_lab_request_')) = 'lis_data_lab_request_' Then
			lsColumnType = Lower(idwLTRList.Describe('#' + String(i) + ".Coltype"))
			Choose Case True
				Case Left(lsColumnType , Len('char')) = 'char'
					idwLTRList.Object.Data[llRow , i] = String(Message.#CF._NullValue())
				Case Left(lsColumnType , Len('long')) = 'long' OR &
					  Left(lsColumnType , Len('decimal')) = 'decimal' OR &
					  Left(lsColumnType , Len('int')) = 'int' OR &
					  Left(lsColumnType , Len('number')) = 'number' OR &
					  Left(lsColumnType , Len('real')) = 'real' OR &
					  Left(lsColumnType , Len('ulong')) = 'ulong'
					idwLTRList.Object.Data[llRow , i] = Long(Message.#CF._NullValue())
				Case Left(lsColumnType , Len('datetime')) = 'datetime'
					idwLTRList.Object.Data[llRow , i] = DateTime(Message.#CF._NullValue())
				Case Left(lsColumnType , Len('date')) = 'date'
					idwLTRList.Object.Data[llRow , i] = Date(Message.#CF._NullValue())
				Case Left(lsColumnType , Len('time')) = 'time'
					idwLTRList.Object.Data[llRow , i] = Time(Message.#CF._NullValue())
				Case Left(lsColumnType , Len('timestamp')) = 'timestamp'
					idwLTRList.Object.Data[llRow , i] = DateTime(Message.#CF._NullValue())
			End Choose
		End If
	Next