主题：[求助]如何禁止多列输入重复内容

    Case "型号","规格","类别"
        Dim xh As String
        Dim gg As String

         Dim ss As String
        If e.DataCol.Name= "型号" Then
            xh = e.NewValue
            gg = e.DataRow("规格")

               ss =e.DataRow("类别")
        ElseIf e.DataCol.Name= "规格" Then
            gg = e.NewValue
            xh = e.DataRow("型号")
               ss =e.DataRow("类别")

          else

               ss = e.NewValue

        End If
        If xh > "" AndAlso gg  > "" Then 
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("型号 = '" & xh & "' And 规格 = '" & gg & "' And 类别 = '" & ss & "'") IsNot Nothing Then

                MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.Cancel = True
            End If
        End If