以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  对应表内容自动更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128405)

--  作者:最嗨魔女呜啦啦
--  发布时间:2018/12/5 15:22:00
--  对应表内容自动更新
我有两张表user1,user2,这两张表都有数据,其中姓名和身份证号这两张表都是有的
但是其中user1表身份证号有数据,user2表身份证号列无数据
有没有办法通过姓名将user1表里的数据搞到user2里

--  作者:cyrollin
--  发布时间:2018/12/5 15:31:00
--  
USER2表的DATACOLCHANGED事件

If e.DataCol.Name = "姓名" Then
    Dim dr As DataRow
    dr = DataTables("user1表").Find("姓名 = \'" & e.DataRow("姓名") & "\'" )
    If dr IsNot Nothing Then \'如果找到, 则设置各列内容
        e.DataRow("身份证号") = dr("身份证号")
      End If       
End If

--  作者:有点甜
--  发布时间:2018/12/5 15:49:00
--  

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