甜老师，谢谢帮助，问题已解决。
还有就是能够给个自定义函数的例子。
最好是用到多参数的例子。
我现在想通过自定义函数来解决所有类似上面的这种问题。不然代码重复写，太多了。
现在我还没想通如何来使用这函数。
我的自定义函数如下：
函数名：F_CreatDataMap
Dim zd As New MultiDataMap
Dim nr1 As String = DataTables(Args(0)).GetComboListString(Args(1))
Dim nr2 As String = DataTables(Args(0)).GetComboListString(Args(2))
Dim Values1() As String
Dim Values2() As String
Values1 = nr1.split("|")
Values2 = nr2.split("|")
For Index1 As Integer = 0 To Values1.Length - 1
zd.Add(Values1(Index1) & "|" & Values2(Index1))
Next
想用上面的自定义函数来简化以下这段重复性的代码。
Dim nr1 As String = DataTables("M21_ITM_CTGRY").GetComboListString("ITM_CTGRY_LID")
Dim nr2 As String = DataTables("M21_ITM_CTGRY").GetComboListString("ITM_CTGRY_LNAME")
Dim Values1() As String
Dim Values2() As String
Values1 = nr1.split("|")
Values2 = nr2.split("|")
For Index1 As Integer = 0 To Values1.Length - 1
'messagebox.show(Values1(Index1),Values2(Index1))
zd.Add(Values1(Index1) & "|" & Values2(Index1))
Next
Tables("M22_ITM").Cols("ITM_CTGRY_LID").DataMap = zd.CreateDataMap
但还没想明白如何来使用。
谢谢！
加好友 
发短信
Post By：2014/12/16 9:35:00 [显示全部帖子]
