1、新增一行或多行后，“通知”窗口的ComboBox没有显示新增行的“案号”。代码放到“通知”表的DataColChanged，DataRowAdded，CurrentChanged事件中都不起作用，代码：If e.DataCol.Name = "案号" Then
If Forms("通知").opened Then
Forms("通知").Controls("ComboBox1").text = Tables("通知").Current("案号")
End If
End If
2、新增行时，怎样判断“通知”表中，已有相同“案号”的行，然后选择覆盖或新增？
窗口中“新增”按钮代码：
If Forms("通知").Opened Then
Dim t As Table = Tables("通知")
For Each r As Row In Tables("批量增加_table1").GetCheckedRows
Dim r2 As Row = t.AddNew
r2("案号") = r("案号")
Tables("通知").Current("制作日期") = Date.Now
Next
Tables("通知").Sort = "制作日期,案号"
End If
此主题相关图片如下：新增行.jpg
加好友 
发短信
Post By：2018/9/6 10:16:00 [显示全部帖子]
