主题：[求助]查找新增

将诉讼参加人“AAA”的代理人（在“委托代理人”表找到的一个或两个），添加到“AAA”下面一行。
请老师帮助修改一下代码。
谢谢！
For Each r As Row In Tables("窗口1_table1").Rows
   
    Dim dr As DataRow
    dr = DataTables("委托代理人").Find("委托人 = '" & r("诉讼参加人") & "'")
    If dr IsNot Nothing Then '如果找到的话
        r = Tables("窗口1_table1").AddNew
        r("诉讼参加人") = dr("姓名")
        r("住所地") = dr("地址")
        r("诉讼地位") = dr("诉讼地位")
        'r.Move(r.Index+1)     '添加在当前行的下面一行
    End If
   
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-11-12查找新增.foxdb