主题：全选反选复选框

全选逻辑列

With CurrentTable
    If .DataTable.DataCols(.Cols(.colsel).Name).IsBoolean Then    
        .DataTable.ReplaceFor(  .Cols(.colsel).Name ,True)
    Else
        MessageBox.Show("请先选择逻辑列","提示")
    End If   
End With

 

反选逻辑列

With CurrentTable
    If .DataTable.DataCols(.Cols(.colsel).Name).IsBoolean Then       
        For  Each r As Row In .Rows
            r(.ColSel) = not r(.ColSel)
        Next
    Else
        MessageBox.Show("请先选择逻辑列","提示")
    End If   
End With

 

全清逻辑列

With CurrentTable
    If .DataTable.DataCols(.Cols(.colsel).Name).IsBoolean Then       
        For  Each r As Row In .Rows
            r(.ColSel) = False
        Next
    Else
        MessageBox.Show("请先选择逻辑列","提示")
    End If   
End With

 

全清复选框

CurrentTable.ClearCheckedRows