这简直是没有天理了, 我的代码如下:
Dim TableName As String = args(0)
Dim ColName As String = args(1)
Dim ColValue As String = args(2)
If ColValue Is Nothing OrElse ColValue.trim.Length < 1 Then
Return ""
End If
If Tables(TableName).Cols(ColName).DataMap IsNot Nothing Then
Dim dm As DataMap = Tables(TableName).Cols(ColName).DataMap
For Each key As Integer In dm.keys
'MessageBox.show(key & " : " & dm(key))
If key = ColValue Then
MessageBox.show("find: " & ColValue & " : " & dm(ColValue)) // 请注意这里, 到这一步, 说明 key = ColValue ,datamap 里面 有值 ,但是 dm(ColValue) 取不到值 下图1
MessageBox.show("find: " & key & " : " & dm(key)) // 这里 dm(key) 能取到值, 这不科学呀 key = ColValue 呀 下图 2
End If
Next
Dim displayColValue As String = dm(ColValue)
If displayColValue Is Nothing OrElse displayColValue.trim.Length > 0 Then
Dim i_ColValue As Integer = Integer.TryParse(ColValue, -1)
displayColValue = dm(i_ColValue)
End If
msgbox(TableName & " " & ColName & " " & ColValue & " " & displayColValue ) // 这里显示 displayColValue 是空值, 下图 3
If displayColValue IsNot Nothing AndAlso displayColValue.trim.Length > 0 Then
Return displayColValue
End If
End If
Return ColValue
图 1
此主题相关图片如下:1abc.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-7/20177111455580014.jpg)
图 2
此主题相关图片如下:2abc.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-7/20177111461338014.png)
图 3
此主题相关图片如下:3abc.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-7/20177111462891527.png)
[此贴子已经被作者于2017/7/1 11:48:26编辑过]