以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多值字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115111)
--  作者：atlas77
--  发布时间：2018/3/1 11:05:00
--  多值字段
在表1中有两列，第一列A对应第二列1，第一列B对应第二列2,第一列c对应第二列3,第一列D对应第二列4；在表2中第一列为多值字段列，内容为A,B,C,D,请问如何在表2第二列自动生成1,2,3,4？谢谢
--  作者：有点甜
--  发布时间：2018/3/1 11:19:00
--  

表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
--  作者：atlas77
--  发布时间：2018/3/1 12:17:00
--  
搞定，谢谢