将“送达管理”表中勾选的行,新增到“诉讼文书”窗口表中。
如果没有找到相同案号的行,就新增;找到了就更新日期;并且行复选框选中。
但是 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