[求助]重复问题（老师们再进） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用紙上不談兵在2011-8-30 18:31:00的发言：

DataColChanged事件:

Dim fl As String

Select Case e.DataCol.Name

Case "姓名","发货日期"

fl = "姓名 = '" & e.DataRow("姓名") & " 'And 发货日期 = #" & e.DataRow("发货日期") & "#"

If e.DataTable.Compute("count(姓名)", fl) > 1 Then

MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")

e.DataRow(e.DataCol.Name)= Nothing

End If

End Select

这个代码运行没反应，照样可以输入重复的发货日期和姓名，

主题：[求助]重复问题（老师们再进）