主题：[求助]求修改，编译不过

 回复8楼，基础的写法就是不断的 andalso 下去。

 可以优化成这样

Dim names() As String = {"编辑者", "执行次数"}
Dim i As boolean = false
For Each c As Col In e.Table.Cols
    If r.DataRow.OriginalValue(c.name)  =  r(c.name) then
        i = True
    End If
    For Each name As String In names      
        If c.name = name Then
            i = True
        End If
    Next
End If
Next
If i Then
    r.reject
End If