主题：[求助]datacolchanging

都可以，都是用return nothing

是要这样写代码

Dim bm As String=e.DataTable.name
Dim dt2 As DataTable=DataTables("表B")
Dim drs As List(of DataRow) = dt2.Select("表名='"& bm &"'")
For Each dr As DataRow In drs
    If e.DataTable.DataCols.Contains(dr("列名")) Then
        If dr("是否必填") = True Then
            If e.DataRow.IsNull(dr("列名")) OrElse e.DataRow(dr("列名")).trim = Nothing Then
                Dim Result As DialogResult
                Result = MessageBox.Show(dr("列名") & "列存在异常字符或为空,是否返回!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If Result = DialogResult.Yes Then
                    e.Cancel = True '则禁止退出编辑模式
                    Return
                Else
                    e.cancel = True
                    'e.DataTable.RejectChanges()
                    'Return
                End If
            End If
        End If
        If dr("不允许重复")=True Then
            Dim fdr As DataRow=e.DataTable.find(dr("列名") & "='" & e.DataRow(dr("列名")) & "' And _Identify <> '" & e.DataRow("_Identify") & "'")
            If fdr IsNot Nothing Then
                Dim Result As DialogResult
                Result =MessageBox.Show(e.DataRow(dr("列名")) & "已经重复,是否返回!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If Result = DialogResult.Yes Then
                    e.Cancel = True
                    Return
                Else
                    e.cancel = True
                    'e.DataTable.RejectChanges()
                    'Return
                End If
            End If
        End If
    End If
Next