以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于 in 和 not in 的写法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73759)
--  作者：李睿涵
--  发布时间：2015/8/26 8:43:00
--  关于 in 和 not in 的写法
一直不太会在代码里写 in 和 not in
请教以下代码该怎么改：

For Each dt As DataTable In DataTables
    If dt.Name not In ("表1","表2") Then
        msgbox(dt.name)
    End If
Next

其中红色代码通不过，改为单引号又变成注释功能了
--  作者：大红袍
--  发布时间：2015/8/26 9:06:00
--  
For Each dt As DataTable In DataTables
    If dt.Name <> "表1" andalso dt.name <> "表2" Then
        msgbox(dt.name)
    End If
Next
--  作者：李睿涵
--  发布时间：2015/8/26 9:07:00
--  
就是说代码里不支持in和not in哦？
--  作者：程兴刚
--  发布时间：2015/8/26 9:08:00
--  

For Each 循环变量 As 变量类型 In 集合
    代码
Next

 

所以您应该：

 

For Each dt As DataTable In DataTables
    If dt.Name <> "表1" And dt.Name <> "表2" Then
        MessageBox.show(dt.name)
    End If
Next

 
--  作者：jspta
--  发布时间：2015/8/26 9:11:00
--  
select case dt.name
case "表1","表2"

end select
--  作者：李睿涵
--  发布时间：2015/8/26 9:13:00
--  

嗯 我改成jspta的写法了

也能使代码简洁些

谢谢各位