Office中国论坛/Access中国论坛

标题: 帮忙看看这个代码片断，为何老是错误呢？ [打印本页]

作者: luoxxx_xp 时间: 2004-4-2 04:53
标题: 帮忙看看这个代码片断，为何老是错误呢？
Private Sub Frame9_BeforeUpdate(Cancel As Integer)
Select Case Frame9.Value = 1
      Text18.Enabled = False
      Text20.Enabled = False
      Text22.Enabled = False
Case Frame9.Value = 2
      Text18.Enabled = True
      Text20.Enabled = False
      Text22.Enabled = False
Case Frame9.Value = 3
      Text18.Enabled = False
      Text20.Enabled = True
      Text22.Enabled = True
End Select
End Sub

说明：Frame9为一个选项组，有三个单选框
text18、text20、text22分别为三个文本框
这段代码要实现的就是如果Frame9选第一个，则下面三个文本框都不可用，若Frame9选第二项，则text18可用，另外两个不可用；若Frame9选第三项，则text18不可用，后面两个可用。

我现在运行后，只要做出选择，便提示Select case和第一个case之间的语句和标签无效，请问是我的代码写错了吗？

作者: tmtony 时间: 2004-4-2 04:57
应该是
Select Case Frame9.value
case 1
      Text18.Enabled = False
      Text20.Enabled = False
      Text22.Enabled = False

作者: luoxxx_xp 时间: 2004-4-2 05:15
原来这样啊，多谢了啊！tmtony老兄

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)