以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  菜鸟求代码。高手快救我 老板要叼我了。跨表更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105582)
--  作者：31803263
--  发布时间：2017/8/22 15:36:00
--  菜鸟求代码。高手快救我 老板要叼我了。跨表更新
父表：报销单    子表：入库单     以报销单号 关联

我在父表报销单中有合同编号这一项， 子表忘记了打合同编号。数据都录入完毕了，现在我在子表中增加了合同编号这一列，如何用代码实现把父表中的合同编号更新到子表中的合同编号（这句代码我只执行一次，跨表更新完就不用了）。

本人新手，基础好薄弱。。。求现成代码和操作步骤
--  作者：y2287958
--  发布时间：2017/8/22 15:50:00
--  
哈哈，上例子
--  作者：有点甜
--  发布时间：2017/8/22 16:01:00
--  

方法1、直接引用父表数据

 

http://www.foxtable.com/webhelp/scr/0106.htm

 

方法2、代码

 

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").Find("第一列 = \'" & dr("第一列") & "\'")
    If fdr IsNot Nothing Then
        dr("第二列") = fdr("第二列")
    End If
Next
--  作者：xietan417
--  发布时间：2017/8/22 16:02:00
--  
做个简单的例子传上来！不然你老板要爆你菊花！
--  作者：31803263
--  发布时间：2017/8/23 9:11:00
--  
我直接用表达式  弄过去 然后 把数据导出来  然后  再导进去。。。虽然麻烦点 但是还是弄好了。。编程基础太差了我