Dim ct As String = "Kind"
Dim ck As String = DataTables("CS").DataCols(ct).datatype.Name '得到ct列的数据类型
Dim dmp As DataMap = Tables("CS").Cols(ct).DataMap
Output.Show(ct & "列有数据字典=" &(dmp IsNot Nothing))
If dmp IsNot Nothing Then
Dim dicx As new Dictionary(of object ,String) ’Dim dicx As new Dictionary(of ck,String) ，这里使用ck就会报错，本意是想精确引用数据类型，后来发现有错误，只能用了object，不报错了
For Each key As object In dmp.keys ’For Each key As ck In dmp.keys,这里使用ck就会报错，本意是想精确引用数据类型，后来发现有错误，只能用了object，不报错了
dicx.Add(key,dmp(key))
Next
For Each k As object In dicx.Keys ’For Each key As ck In dicx.Keys,这里使用ck就会报错，本意是想精确引用数据类型，后来发现有错误，只能用了object，不报错了
Output.Show(k & "----" & dicx(k))
Next
End If
用object可以执行，不过可能效率上会低一些。如果要精确引用数据列类型，该怎么用？
加好友 
发短信
Post By：2021/11/20 19:29:00 [显示全部帖子]
此主题相关图片如下：字典读不出来.png
