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

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