主题：多值字段问题

参考代码

Dim ary1() As String = {"A", "B", "C", "D", "E"}
Dim ary2() As String = {"第一列", "第二列", "第三列", "第四列", "第五列"}
Dim str As String = "A,C,E"
Dim ary3 = str.split(",")
For i As Integer = 0 To ary1.length-1
    Dim idx As Integer = array.indexof(ary3, ary1(i))
    If idx >= 0 Then
        msgbox(ary2(i))
        Tables("表A").current(ary2(i)) = True
    Else
        Tables("表A").current(ary2(i)) = False 
    End If
Next

如果写到DataColChanged事件，改成

Dim str As String = e.DataRow("第一列")

应该是逗号的问题吧？多值字段那里，分割符号，请改成|

http://www.foxtable.com/webhelp/scr/0939.htm

然后修改代码  Dim ary3 = str.split("|")