Dim css As String = "第一列,第二列,第三列"
Dim cs As String() = css.Split(",")
Dim s As String = ""
For i As Integer = 1 To 3
If forms("窗口1").controls("checkbox" & i).checked Then
s &= cs(i-1) & "= 'xx' and "
End If
Next
Dim drs As List(of DataRow) = DataTables("表A").Select(s.trim("a","n","d"," "))