- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51706)
-- 发布时间：2014/6/1 10:43:00
-- 代码修改
For Each Name As String In Names
If e.DataCol.Name ="一折统号" Then \'发生变化的是产品名称吗?
\'在产品表找出该产品
Dim dr As DataRow = DataTables("粮食直补").Find("银行账号 = " & "\'" & e.DataRow("一折统号") & "\'" )
If dr IsNot Nothing \'如果找到,则设置各列内容
e.DataRow("农户姓名")= dr("农户姓名")
e.DataRow("身份证号")= dr("身份证号")
End If
End If
这段代码只能加载另外一个表中的数据(粮食直补表),如果还要加载另一个表(退耕还林)的农户姓名和身份证号,当然前题是"一折统号"等于退耕还林表的帐号,代码该怎样修改
-- 发布时间：2014/6/1 11:47:00
--
怎么没人说话啊
-- 发布时间：2014/6/1 11:57:00
--
把 粮食直补 代码部分复制一遍 表改名为 退耕还林 不就行了
-- 发布时间：2014/6/1 13:25:00
--
If e.DataCol.Name ="一折统号" Then \'发生变化的是产品名称吗?
\'在产品表找出该产品
Dim dr As DataRow = DataTables("粮食直补").Find("银行账号 = " & "\'" & e.DataRow("一折统号") & "\'" )
If dr IsNot Nothing \'如果找到,则设置各列内容
e.DataRow("农户姓名")= dr("农户姓名")
e.DataRow("身份证号")= dr("身份证号")
End If
End If
If e.DataCol.Name ="一折统号" Then \'发生变化的是产品名称吗?
\'在产品表找出该产品
Dim cr As DataRow = DataTables("退耕还林").Find("帐号 = " & "\'" & e.DataRow("一折统号") & "\'" )
If cr IsNot Nothing \'如果找到,则设置各列内容
e.DataRow("农户姓名")= cr("农户姓名")
e.DataRow("身份证号")= cr("身份证号")
End If
End If
-- 发布时间：2014/6/1 13:26:00
--
这样吗?不行的,应该加个循环什么的,可我不会
-- 发布时间：2014/6/1 14:07:00
--
对的,是我把字段弄错了