以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]跨表引用不起作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10071)

--  作者:514chen
--  发布时间:2011/5/19 23:18:00
--  [求助]跨表引用不起作用

已经用身份证号两个表建立了关联,

我在身份证表的DataColChanged事件中设置了跨表引用代码,

想把已寄出表上的数据列同步,但是好像不起作用。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:身份证测试.table


--  作者:狐狸爸爸
--  发布时间:2011/5/19 23:27:00
--  

正确代码:

 

If e.DataCol.Name = "身份证号" Then
    If e.NewValue Is Nothing Then 
        e.DataRow("数据列") = Nothing 
    Else
        Dim dr As DataRow
        dr = DataTables("已寄出").Find("[身份证号] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then
            e.DataRow("数据列") = dr("数据列")
        End If
    End If
End If

 

设置完整后,重置一下身份证号码列。

[此贴子已经被作者于2011-5-19 23:27:37编辑过]

--  作者:514chen
--  发布时间:2011/5/20
--  

谢了~~~~

很好用~~~

原来自己写错代码了