主题：对逻辑列进行设置的问题！！请专家赐教！

表A中 共有10列：列1，列2.....列10，其中列1到列9内 有逻辑列  有整数列  有日期列  有单双精度小数列！

列10为逻辑列！

要求：列1到列9内全部有数据（逻辑列处于被选中的状态）的时候，列10自动被选中！并且列10不能直接修改！

请专家赐教！

1 列10 锁定

DataTables("表A").DataCols("列10").AllowEdit = False

2 1-9 每一列的 DataColChanged事件

If e.DataCol.Name = "列X" Then '如果更改的是列X

If not e.DataRow.IsNull("列1")   and  e.DataRow("列2")=true  and ..........and  not e.DataRow.IsNull("列9")    Then 

e.DataRow(列10)=true

else

e.DataRow(列10)=false

 Datacolchanged事件

If e.DataCol.Name <> "第十列" Then
    Dim flag = True
    For Each dc As DataCol In e.DataTable.DataCols
        If dc.IsBoolean AndAlso e.DataRow(dc.Name) = False OrElse dc.IsBoolean = False AndAlso e.DataRow.IsNull(dc.Name) Then
            flag = False
            Exit For
        End If
    Next
    e.DataRow("第十列") = flag
End If