主题：录入多行重复材料资料，如何出现警告

录入相同“供应商"、"产品名称"、"型号规格"，弹窗警告和单元格底色变红色

按帮助在录入窗口的临时表，DataColChanged，设置以下代码，没反应

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

此主题相关图片如下：材料录入1.jpg