以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】关联表中的表达式问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131549)
--  作者：gaojianwu
--  发布时间：2019/3/1 8:40:00
--  【求助】关联表中的表达式问题？
已知关联表tables("表A.表B"), 表A中有一个“备注”列（表达式列），表B中也有一个"备注"列（数据列）。
请问：怎么设置表A中的“备注”列的表达式，让tables("表A.表B")的“备注”通过“,”连接起来之后的字符串显示在tables("表A")的“备注”列中？
--  作者：有点甜
--  发布时间：2019/3/1 8:54:00
--  

表B，datacolchanged事件

 

If e.DataCol.name = "第三列" Then
    Dim pdr = DataTables("表A").find("第一列 = \'" & e.DataRow("第一列") & "\'")
    If pdr IsNot Nothing Then
        pdr("第三列") = e.DataTable.GetComboListString("第三列", "第一列 = \'" & e.DataRow("第一列") & "\'").replace("|", ",")
    End If
End If