以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]新手求助两个表取值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90683)

--  作者：星空的风 --  发布时间：2016/9/19 22:35:00 --  [求助]新手求助两个表取值 当判断：表B的第一列的值=表A的第一列的值时，那么表B的第二列=表A的第二列，请问代码怎写？

--  作者：有点蓝 --  发布时间：2016/9/19 22:39:00 --   参考：http://www.foxtable.com/webhelp/scr/1451.htm 表B，DataColChanged事件 If e.DataCol.Name = "第一列" Then      If e.NewValue Is Nothing Then          e.DataRow("第二列") = Nothing      Else         Dim dr As DataRow         \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr         dr = DataTables("表A").Find("[第一列] = \'" & e.NewValue & "\'")         If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing             e.DataRow("第二列") = dr("第二列")          End If     End If End If

--  作者：星空的风 --  发布时间：2016/9/19 23:15:00 --   谢谢！！！