Foxtable(狐表)用户栏目专家坐堂 → 关于In运算符


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

主题:关于In运算符

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


加好友 发短信
等级:小狐 帖子:366 积分:2478 威望:0 精华:0 注册:2013/1/13 23:43:00
关于In运算符  发帖心情 Post By:2013/10/28 22:09:00 [显示全部帖子]

If e.Sender.Name In ('出库记录','出库明细','库存表','入库记录','入库明细','货品信息')
    Dim lst As new List(Of String)
    Dim gb As WinForm.GroupBox = e.Form.Controls("GroupBox2")
    Dim cb As WinForm.Control
    For Each cb  In e.Form.Controls
        If Typeof cb Is winform.checkbox Then
            Dim c As WinForm.CheckBox = cb
            If c.Checked = 1 Then
                lst.add(c.Text)
            End If
        End If
    Next
   
    If lst.count > 0 Then
        e.Form.Controls("初始化以下表").Enabled = True
    Else
        e.Form.Controls("初始化以下表").Enabled = False
    End If
End If

 

上面的代码红字部分会报错,因为汉字部分全部被注释掉了。

但是In运算符用去类确实方便,有没有什么办法呢?


 回到顶部
帅哥哟,离线,有人找我吗?
东坡一剑
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:2478 威望:0 精华:0 注册:2013/1/13 23:43:00
  发帖心情 Post By:2013/10/29 1:40:00 [显示全部帖子]

谢谢诸位指点!

 回到顶部