以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教:如果一个表中有几处用到自定义的目录树自动输入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2528)
--  作者：yangming
--  发布时间：2009/4/20 19:15:00
--  请教:如果一个表中有几处用到自定义的目录树自动输入
如果一个表中有几处用到自定义的目录树自动输入,那么在窗口的CellButtonClick中如何输入代码?是否这样?
 

If e.Col.Name = "第三列"
    e.Cancel = True \'取消默认动作
    Forms("窗口1").Open()
End If
 

If e.Col.Name = "第五列"
    e.Cancel = True \'取消默认动作
    Forms("窗口2").Open()
End If
 

If e.Col.Name = "第八列"
    e.Cancel = True \'取消默认动作
    Forms("窗口2").Open()
End If
--  作者：狐狸爸爸
--  发布时间：2009/4/20 20:17:00
--  
Select Case e.Col.Name
    Case "第三列"
        e.Cancel = True \'取消默认动作
        Forms("窗口1").Open()
  Case "第五列","第八列"
        e.Cancel = True \'取消默认动作
        Forms("窗口2").Open()
End Select
--  作者：八婺
--  发布时间：2009/4/20 20:18:00
--  
应该用Select Case语句
--  作者：yangming
--  发布时间：2009/4/20 20:55:00
--  
谢谢二位