以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何用遍历自动填数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172277)
--  作者：nbsugu_z
--  发布时间：2021/10/5 19:48:00
--  如何用遍历自动填数
A表    列：   编号    金额
B表    列：   编号    应收金额

       要实现用A表中的编号（编号是没有重复的）第一条去对照B表中的编号
      如果在B表中找到，则B表中的应收金额=A表中的金额
      如果在B表中找不到，则继续从A表中的第二条编号开始找。
       ...... 直到A表中编号最后一条记录为止退出，并保存B表
--  作者：z769036165
--  发布时间：2021/10/6 9:18:00
--  
Dim w As DataRow
For Each dr As DataRow In DataTables("表B").DataRows
    w = DataTables("表A").Find("编号 = \'"& dr("编号") & "\'")
    If w IsNot Nothing Then
        dr("应收金额") = w("金额")
    End If
Next
DataTables("表B").Save
[此贴子已经被作者于2021/10/6 9:18:31编辑过]