录入相同“供应商"、"产品名称"、"型号规格",弹窗警告和单元格底色变红色
Select Case e.DataCol.name
Case "产品名称","型号规格"
Dim dr As DataRow = e.DataRow
If dr.IsNull("产品名称") = False AndAlso dr.IsNull("型号规格") = False Then
If e.DataTable.Compute("Count([_Identify])","产品名称 = '" & dr("产品名称") & "' And 型号规格 = '" & dr("型号规格") & "'") > 1 Then
MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End Select
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:材料录入1.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-7/20167267542116794.jpg)