- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现这样的功能啊，在易表中很容易，现在闷住了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7136)
-- 发布时间：2010/5/19 0:43:00
-- 如何实现这样的功能啊，在易表中很容易，现在闷住了
如何在表B的代码列中输入内容后，
其第二列和第三列内容，从表A的第二列和第三列内容提取过来
条件是B表的代码列内容和A表的代码列内容相同
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.rar |
-- 发布时间：2010/5/19 1:07:00
--
Dim dr As DataRow = e.DataRow
if e.DataCol.Name = "代码" Then
Dim dr1 As DataRow = DataTables("表A").Find("代码 = \'" & dr("代码") & "\'")
If dr1 IsNot Nothing Then
dr("第二列") = dr1("第二列")
dr("第三列") = dr1("第三列")
Else
dr("第二列") = Nothing
dr("第三列") = Nothing
End If
End If