If Forms("通知").Opened Then Dim t As Table = Tables("通知")
For Each r As Row In Tables("批量增加_table1").GetCheckedRows Dim fdr As DataRow = t.DataTable.Find("案号='" & r("案号") & "'") If fdr Is Nothing Then fdr = t.DataTable.addnew fdr("案号") = r("案号") fdr("制作日期") = Date.Now Forms("通知").Controls("ComboBox1").text = r("案号") Next 't.Sort = "制作日期,案号" End If
加好友 
发短信
Post By：2018/9/6 10:29:00 [显示全部帖子]
