主题：[求助]当前表里面查找录入

Select Case e.DataCol.name
    Case "项目编码","国家"
        Dim xh As String
        Dim gg As String
        If e.DataCol.Name= "项目编码" Then
            xh = e.NewValue
            gg = e.DataRow("国家")
        Else
            gg = e.NewValue
            xh = e.DataRow("项目编码")
        End If
        If xh > "" AndAlso gg  > "" Then 
            Dim dr As DataRow = e.DataRow
            If DataTables("地理").Find("项目编码 = '" & xh & "' And 国家 = '" & gg & "'") IsNot Nothing Then

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