将“送达管理”表中勾选的行，新增到“诉讼文书”窗口表中。
如果没有找到相同案号的行，就新增；找到了就更新日期；并且行复选框选中。
但是 r2.checked = True 这句代码只能在Table中使用...
怎样改一下？请老师指教，谢谢！
Dim t As Table = Forms("诉讼文书").Controls("Table1").Table
For Each r As DataRow In DataTables("送达管理").Select("标注 = true") '添加勾选的行
If DataTables("送达管理").Select("标注 = true").count > 0 Then
Dim r2 As DataRow = t.DataTable.Find("案号='" & r("案号") & "' and 分合 = '合'") '条件
If r2 Is Nothing Then '没找到,就新增
r2.checked = True
r2("案号") = r("案号")
r2("制作日期") = Date.Now
r2("保管期限") = "永久"
r2("分合") = "合"
Else
r2("制作日期") = Date.Now '找到了,就更新日期
r2.checked = True
End If
End If
Next
加好友 
发短信
Post By：2019/7/12 22:18:00 [显示全部帖子]
