以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]窗口表新增行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137699)

--  作者：天一生水 --  发布时间：2019/7/12 22:18:00 --  [求助]窗口表新增行 将“送达管理”表中勾选的行，新增到“诉讼文书”窗口表中。 如果没有找到相同案号的行，就新增；找到了就更新日期；并且行复选框选中。 但是 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

--  作者：有点蓝 --  发布时间：2019/7/12 22:28:00 --   Dim t As Table = Forms("诉讼文书").Controls("Table1").Table Dim r2 As Row For Each r As DataRow In DataTables("送达管理").Select("标注 = true")     \'添加勾选的行     Dim idx As Integer = t.FindRow("案号=\'" & r("案号") & "\' and 分合 = \'合\'")    \'条件     If idx >= 0 Then         r2 = t.Rows(idx)     Else         r2 = t.AddNew         r2("案号") = r("案号")         r2("保管期限") = "永久"         r2("分合") = "合"     End If     r2.checked = True     r2("制作日期") = Date.Now Next