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

 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