以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表更新数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133460)
--  作者：裴保民
--  发布时间：2019/4/15 2:31:00
--  跨表更新数据
有两个表一个是客户表，字段有姓名和电话，一个表是销售表字段有产品名称客户姓名，电话
销售已经表有很多数据了客户姓名已经存在了，可是电话当时未输入，现在想添加电话列数据，一条一条输入太麻烦，设一个按钮点击事件后直接一次性将客户表中的符合条件的电话输入到销售表中电话字段中呢？
--  作者：有点甜
--  发布时间：2019/4/15 9:39:00
--  

参考

 

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("")
    Dim fdr As DataRow = dt2.Find("第一列=\'" & dr("第一列") & "\'")
    If fdr IsNot Nothing Then
        dr("第二列") = fdr("第二列")
    End If
Next
--  作者：裴保民
--  发布时间：2019/4/15 11:27:00
--  
单数据赋值怎么改呢？


Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("")
    Dim fdr As DataRow = dt2.Find("第一列=\'" & dr("第一列") & "\'")
    If fdr IsNot Nothing Then
        dr("第二列") = fdr("第二列")
    End If
Next
--  作者：有点甜
--  发布时间：2019/4/15 12:15:00
--  

不明白你的意思，你写了什么代码？报什么错？

 

不然做个实例发上来测试。
--  作者：裴保民
--  发布时间：2019/4/15 22:59:00
--  
我的意思是指操作当前行的数据，不是所有的数据
--  作者：有点蓝
--  发布时间：2019/4/15 23:15:00
--  
参考：http://www.foxtable.com/webhelp/scr/1451.htm