- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]新增行判断及定位 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124432)
-- 发布时间：2018/9/6 10:16:00
-- [求助]新增行判断及定位
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
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试新增行判断及定位.table |
-- 发布时间：2018/9/6 10:29:00
--
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