以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查找写入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169208)
--  作者：bzqlyj
--  发布时间：2021/6/7 14:25:00
--  查找写入
表A
A列 B列
AA AAA
AA AAA1
BB BBB
CC CCC
DD DDD
DD DDD1
表B
A1列 B1列
AA AAA，AAA1
BB BBB
CC CCC
DD DDD，DDD1
请问如何实现，表B的A1列查找表A的A列，如果找到，表A的B列内容通过“，”连接到表B的B1列中，结果如表B所示
 
--  作者：有点蓝
--  发布时间：2021/6/7 15:05:00
--  
参考：http://www.foxtable.com/webhelp/topics/1451.htm

表B，datacolchanged

If e.DataCol.Name = "A1" Then 
    If e.NewValue Is Nothing Then 
        e.DataRow("B1") = Nothing \'
    Else
        e.DataRow("B1") = DataTables("表A").GetComboListString("B","[A] = \'" & e.NewValue & "\'").replace("|",",")
    End If
End If