以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  引用另一表数据的代码怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105658)
--  作者：旭日生
--  发布时间：2017/8/23 17:28:00
--  引用另一表数据的代码怎么写？
想让表“test”中的“DH”列，引用表“xls”中的相同“LSH”的“DH”列。不用表间关联，直接用
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test.table

代码怎么写？
--  作者：有点甜
--  发布时间：2017/8/23 19:03:00
--  

DataColChanged事件

 

If e.DataCol.name = "LSH" Then
    Dim fdr As DataRow = DataTables("xls").find("LSH = \'" & e.DataRow("LSH") & "\'")
    If fdr IsNot Nothing Then
        e.DataRow("DH") = fdr("DH")
    End If
End If