- 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=178055)
-- 发布时间：2022/6/16 8:33:00
-- 统计个数提示异常
老师，以下代码请帮忙看看，提示异常，只要这个代码不写到表事件中，就不会提示如图的错误。
Select Case e.DataCol.name
Case "毛坯编码","返修结果"
Dim dr As DataRow = e.DataRow
If dr.IsNull("毛坯编码") = False AndAlso dr.IsNull("返修结果") = False Then
If DataTables("加工过程不良_明细").Compute("Count([_Identify])","毛坯编码 = \'" & dr("毛坯编码") & "\' And 返修结果 = \'" & dr("返修结果") & "\'") > 1 Then
MessageBox.Show("不能重复判定废品,重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
ElseIf DataTables("过程异常明细").sqlCompute("Count([_Identify])","毛坯编码 = \'" & dr("毛坯编码") & "\' And 返修结果 = \'" & dr("返修结果") & "\'") > 0 Then
MessageBox.Show("不能重复判定废品,重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
End If
End If
End Select
此主题相关图片如下：1.jpg
-- 发布时间：2022/6/16 9:11:00
--
"毛坯编码","返修结果"如果是备注列，到后台数据库把列类型ntext改为nvarchar(max)