DataColChanged 数据清空出现错误，请问怎么请除这个错误？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name

Case "设计流水号"

Dim dr As DataRow

If e.DataCol.Name = "设计流水号" Then

dr = e.DataTable.Find("设计流水号 = '" & e.NewValue & "'")

If e.DataTable.Compute("Count([_Identify])","年份 = '" & dr("年份") & "' And 季节 = '" & dr("季节") & "'And 设计流水号 = '" & dr("设计流水号")& "'") > 1 Then

MessageBox.Show("你输入的编号已经存在,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.DataRow(e.DataCol.Name) = e.OldValue '取消输入

End If

End Select

.NET Framework 版本：2.0.50727.5420

Foxtable 版本：2018.3.9.1

错误所在事件：表，款号领用表，DataColChanged

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

DataColChanged 数据清空出现错误，请问怎么请除这个错误？只要不删除设计流水号，就不会出现，因为这个流水号不能自动分配，是人工分配的，但怕输入重复，所以设置了以上代码。请帮忙到底是什么原因导致了。

能不能不出现这个错误。

此主题相关图片如下：000.png

Select Case e.DataCol.Name

Case "设计流水号"

Dim dr As DataRow = e.DataRow

If e.DataTable.Compute("Count([_Identify])","年份 = '" & dr("年份") & "' And 季节 = '" & dr("季节") & "'And 设计流水号 = '" & dr("设计流水号")& "'") > 1 Then

MessageBox.Show("你输入的编号已经存在,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.DataRow(e.DataCol.Name) = e.OldValue '取消输入

End If

End Select

可以了，试试，我多加了

If e.DataCol.Name = "设计流水号" Then

dr = e.DataTable.Find("设计流水号 = '" & e.NewValue & "'")

end if

删除就可以了。谢谢你！

[此贴子已经被作者于2018/10/27 14:51:48编辑过]

主题：DataColChanged 数据清空出现错误，请问怎么请除这个错误？