标题：请教:如果一个表中有几处用到自定义的目录树自动输入

1楼

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

2楼

狐狸爸爸 发表于：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

3楼

八婺发表于：2009/4/20 20:18:00

应该用Select Case语句

4楼

yangming 发表于：2009/4/20 20:55:00

谢谢二位

共4 条记录, 每页显示 10 条, 页签: [1]