Foxtable(狐表)用户栏目专家坐堂 → 多条件代码怎么简洁


  共有3185人关注过本帖树形打印复制链接

主题:多条件代码怎么简洁

帅哥哟,离线,有人找我吗?
chnfo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2312 积分:18999 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2021/9/18 14:00:00 [显示全部帖子]

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"," ")) 

 回到顶部