主题：【求助】多值字段多项选中的结果显示

参考代码

Dim str As String = "A,B,C,D"
Dim ss As String = "C,A,B"
Dim ary = ss.split(",")
Dim nstr As String = ""
For Each s As String In str.split(",")
    If ary.Indexof(ary, s) >= 0 Then
        nstr &= s & ","
    End If
Next
msgbox(nstr.trim(","))

1、看懂代码的意思；

2、改写到datacolchanging或者changedEdit。

比如 datacolchanging 事件

If e.DataCol.name = "第一列" Then
   
    Dim str As String = "A,B,C,D"
    Dim ss As String = e.newvalue
    Dim ary = ss.split(",")
    Dim nstr As String = ""
    For Each s As String In str.split(",")
        If ary.Indexof(ary, s) >= 0 Then
            nstr &= s & ","
        End If
    Next
    e.newvalue = nstr.trim(",")
   
End If

回复8楼，看看

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