以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]查找新增  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127340)
--  作者：天一生水
--  发布时间：2018/11/12 10:51:00
--  [求助]查找新增

将诉讼参加人“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
--  作者：有点甜
--  发布时间：2018/11/12 11:15:00
--  
For i As Integer = Tables("窗口1_table1").Rows.count-1 To 0 Step -1
    Dim cr As Row = Tables("窗口1_table1").Rows(i)
    For Each dr As DataRow In DataTables("委托代理人").Select("姓名 = \'" & cr("诉讼参加人") & "\'")
        Dim r As Row = Tables("窗口1_table1").AddNew
        r("诉讼参加人") = dr("姓名")
        r("住所地") = dr("地址")
        r("诉讼地位") = dr("诉讼地位")
        r.Move(i+1)
    Next
Next