Select Case e.DataCol.name
Case "LSH","LOCALFILE"
Dim dr As DataRow = e.DataRow
If dr.IsNull("LOCALFILE") = False AndAlso dr.IsNull("LSH") = False Then
If e.DataTable.Compute("Count([_Identify])","LSH = '" & dr("LSH") & "' And LOCALFILE = '" & dr("LOCALFILE") & "'") > 1 Then
MessageBox.Show("录入2遍?按CTRL按确定即跳过错误录入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
DataTables("DAJG_SSJCYX").DeleteFor("[LOCALFILE] Is Null") '删除多余的空行
因上边在表事件中的这些代码,出现下面这个窗口提示,有无办法直接忽略这个窗口提示呢?
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2017.10.16.1
错误所在事件:窗口,老卷录入,TextBox22,KeyDown
详细错误信息:
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
[此贴子已经被作者于2017/10/25 7:53:04编辑过]