以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 自动填入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138682)
--  作者：leoli
--  发布时间：2019/8/3 10:07:00
--  [求助] 自动填入
你好，如何将表B中最近一次 remark的内容相应填写到表A相同ID的remark中，如何在按钮中实现，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自动写入.foxdb
--  作者：有点蓝
--  发布时间：2019/8/3 11:14:00
--  
For Each r As Row In Tables("表A").Rows
    Dim dr As DataRow = DataTables("表B").Find("ID=\'" & r("ID") & "\'","sysDate desc")
    If dr IsNot Nothing Then
        r("remark") = dr("remark")
    End If
Next