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


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

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

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


加好友 发短信
等级:狐神 帖子:4761 积分:34613 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2021/9/18 12:00:00 [显示全部帖子]

Dim dic As New Dictionary(Of object, String)
dic.add(forms("窗口13").controls("checkbox1"),"第一列 =         ")
dic.add(forms("窗口13").controls("checkbox2"),"第二列 =         ")
dic.add(forms("窗口13").controls("checkbox3"),"第三列 =         ")
Dim lst As new List(of String)
For Each k As object In dic.Keys
    If k.checked = True Then lst.add(dic(k))
Next
Output.Show(String.join(" and ",lst))

 回到顶部