以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个代码应该怎么改？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83932)
--  作者：zsslly
--  发布时间：2016/4/19 20:49:00
--  这个代码应该怎么改？
\'打开查看收据开始
If e.Col.Name = "平面及活动定金收据","设计费定金收据","设计费全额收据","工程首付款收据","工程二期款收据","工程三期款收据","工程尾款收据","其它款项一收据","其它款项二收据","其它款项三收据" Then
    e.Cancel = True \'取消默认动作
    Dim idx As Integer = Tables("峰和设计部").FindRow(e.Row.DataRow)
    Tables("峰和设计部").Position = idx
    Forms("查看收据").Open()
End If
\'打开查看收据结束


If e.Col.Name = "平面及活动定金收据","设计费定金收据","设计费全额收据","工程首付款收据","工程二期款收据","工程三期款收据","工程尾款收据","其它款项一收据","其它款项二收据","其它款项三收据" Then
这一行后面的连接不对，求助？
--  作者：大红袍
--  发布时间：2016/4/19 20:57:00
--  

参考

 

http://www.foxtable.com/help/topics/0224.htm

 
--  作者：zsslly
--  发布时间：2016/4/19 21:09:00
--  
我只会用在土的办法，就是一个一个的指定，Select Case语句还不会用，能否指点？
--  作者：大红袍
--  发布时间：2016/4/19 21:34:00
--  
Select Case e.Col.Name
    Case "平面及活动定金收据","设计费定金收据","设计费全额收据","工程首付款收据","工程二期款收据","工程三期款收据","工程尾款收据","其它款项一收据","其它款项二收据","其它款项三收据"
        e.Cancel = True \'取消默认动作
        Dim idx As Integer = Tables("峰和设计部").FindRow(e.Row.DataRow)
        Tables("峰和设计部").Position = idx
        Forms("查看收据").Open()
End Select
--  作者：zsslly
--  发布时间：2016/4/19 21:50:00
--  
谢谢老师，学习了