主题：遍历的疑问，望精通者释惑

1、将所有表的审核列设置为：如果已经审核，则不允许修改

DataColChanging

 

If e.DataCol.Name = "审核" AndAlso e.DataRow("审核") = True then

   e.Cancel = True

End If

不起作用，你这个只能针对某个表事件吧，在全局表中的pe或锁定行中设置，提示不是其中的成员。

表事件

小伙子，学艺不精啊。

  e.datarow("审核"）.AllowEdit = false  则锁定该行，此行不允许修改

遍历所有表所有列，很慢吧。。。

我遍历所有表是否haschange都觉得慢了。。。。

For Each dt As DataTable In DataTables '遍历所有表
    If dt.DataCols.Contains("审核") Then
        Dim cmd As new SQLCommand
        cmd.CommandText = "update {" & dt.Name & "} set [_Locked] = true where [审核] = true "

        cmd.ExecuteNonQuery
        dt.Load
    End If
Next

只要设置一个按钮执行就行了，不需要放到表事件里，而且这个只需要执行一次，不需要每次启动执行，锁定行是永久性的

PrepareEdit

If e.Table.Cols.Contains("审核") Then

    If e.Row("审核") = True Then

        e.Cancel = True

    End If

End If

然后在项目事件Initialize加入代码：

For Each dt As DataTable In DataTables
    dt.GlobalHandler.PrepareEdit = True
Next

谢谢，解决