Dim dr As DataRow = e.DataRow
If dr.IsNull("第一列") = False AndAlso dr.IsNull("第二列") = False AndAlso dr.IsNull("第三列") = False AndAlso dr.IsNull("第四列") = False AndAlso dr.IsNull("第五列") = False Then
If e.DataTable.Compute("Count([_Identify])","第一列 = '" & dr("第一列") & "' And 第二列 = '" & dr("第二列") & "' And 第三列 = '" & dr("第三列") & "' And 第四列 = '" & dr("第四列") & "' And 第五列 = '" & dr("第五列") & "'") > 1 Then
MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
End If
End If
为何窗口按钮不能使用这个代码？又该怎么办？
加好友 
发短信
Post By：2019/10/7 15:54:00 [只看该作者]
