以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]“表A”和“表B”同有一列“客户”列，当“表B”的客户数据发生改变时，“表A”的相应客户信息也同步改变，不使用关联表，如何写代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96115)
--  作者：fengwenliuyan
--  发布时间：2017/2/13 15:49:00
--  [求助]“表A”和“表B”同有一列“客户”列，当“表B”的客户数据发生改变时，“表A”的相应客户信息也同步改变，不使用关联表，如何写代码？
[求助]“表A”和“表B”同有一列“客户”列，当“表B”的客户数据发生改变时，“表A”的相应客户信息也同步改变，不使用关联表，如何写代码？
--  作者：有点色
--  发布时间：2017/2/13 15:51:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2490.htm

 

http://www.foxtable.com/webhelp/scr/1453.htm

 
--  作者：fengwenliuyan
--  发布时间：2017/2/13 16:42:00
--  [求助]因为绑定的是窗口记录表“表B”停靠在“表A”中，实在弄不来了，请帮忙写下代码好吗？
因为绑定的是窗口记录表“表B”停靠在“表A”中，实在弄不来了，请帮忙写下代码好吗？
--  作者：有点色
--  发布时间：2017/2/13 17:19:00
--  

表B，DataColChanged事件

 

Select Case e.DataCol.name
    Case "客户姓名", "客户地址"
        Dim dr As DataRow
        dr = DataTables("A").Find("[客户] = \'" & e.DataRow("客户") & "\'")
        If dr IsNot Nothing Then
            dr("姓名") = e.DataRow("客户姓名")
            dr("地址") = e.DataRow("客户地址")
        End If
End Select