主题：多值字段

在表1中有两列，第一列A对应第二列1，第一列B对应第二列2,第一列c对应第二列3,第一列D对应第二列4；在表2中第一列为多值字段列，内容为A,B,C,D,请问如何在表2第二列自动生成1,2,3,4？谢谢

表B的DataColChanged事件

 

If e.DataCol.name = "第一列" Then
    Dim str As String = ""
    For Each s As String In e.DataRow("第一列").split(",")
        Dim fdr As DataRow = DataTables("表A").find("第一列 = '" & s & "'")
        If fdr Is Nothing Then
            str &= "空,"
        Else
            str &= fdr("第二列") & ","
        End If
    Next
    e.DataRow("第二列") = str.trim(",")
End If

搞定，谢谢