[求助]datacolchanging - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这段代码没问题，加入msgbox定位错误。

RejectChanges之后，再执行，不要写在前面。

Dim fdr2 As List(of DataRow) = dt2.Select("表名='"& bm &"' And 不允许重复=True")

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

以下是引用blsu33在2016/1/12 16:16:00的发言：
老师，

在自定义函数中使用 Return 仅仅是停止执行一下，不需要返回值，用 Return Nothing 还是用Return false 哪一个好？

都可以，都是用return nothing

以下是引用blsu33在2016/1/12 16:25:00的发言：
顺便在问下老师，

7楼代码，判断好些罗列，是否过于啰嗦，请问老师会怎么设计或是写代码。

是要这样写代码

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

主题：[求助]datacolchanging