以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Select Case语句我把各类值用变量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170018)

--  作者:2425004926
--  发布时间:2021/7/9 14:19:00
--  [求助]Select Case语句我把各类值用变量
Select Case语句我把各类值用了变量,比如红色部分

例如:
Select Case e.sender.text
    Case Tables("表A").Rows(0)("第一列")
        e.Form.Controls("TextBox1").text = 1
    Case Tables("表A").Rows(1)("第一列")
        e.Form.Controls("TextBox1").text = 2
End Select

button1是Tables("表A").Rows(0)("第一列")的值,button2是Tables("表A").Rows(1)("第一列")的值,测试是可以用的,没有问题

可如果Tables("表A").Rows(0)("第一列")有两个以上的值,那么这个单元格里怎么编辑呢?我加双引号测试没有成功,两个双引号也不行,该怎么表示呢,比如两个值:
button1和button3

--  作者:有点蓝
--  发布时间:2021/7/9 14:30:00
--  
if Tables("表A").Rows(0)("第一列") like "*" & e.sender.text & "*" then
e.Form.Controls("TextBox1").text = 1
elseif  Tables("表A").Rows(1)("第一列") like "*" & e.sender.text & "*" then
e.Form.Controls("TextBox1").text = 2
end if

--  作者:2425004926
--  发布时间:2021/7/9 18:58:00
--  
 好的,谢谢!