例如在某表的某列设置为多值段扩展列后，有A\\B\\C\\D四个可选项：

譬如在该列输入时，当先选A，再选B时,当前行该列的取值为“A,B”;但如果在输入时，是先选B，再选A时,当前行该列的取值就会变为“B,A”。

狐表是否可以做到，无论我是先选A再选B，还是先选B再选A的操作方式，当前行该列的取值都为“A,B”。

参考代码

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