option控件
option1是系统管理 option2是老师 option3是学生
Set rs = db.RunSelectSQL("SELECT 部门 FROM 毕设教务管理系统..用户清单 WHERE 用户编号='" + UserId + "'")
If Trim(rs("部门")) = "系统管理" And Option1.Value = True Then......
ElseIf Trim(rs("部门")) = "老师" And Option2.Value = True Then.......
Else....
之前没有用option控件时都可以执行,但加了option控件以后,输入系统管理员的用户编号时可以执行,但输入老师和学生的用户编号时,总是显示If Trim(rs("部门")) = "系统管理" And Option1.Value = True Then这句话错误,这是问什么呢
[解决办法]
是你的sql语句构建除了问题,Option.value=True是不正确的
[解决办法]
If Trim(rs("部门")) = "系统管理" And Option1.Value = True Then
改成:
If (Trim(rs("部门")) = "系统管理") and Option1.Value then 试试
另外,程序稍微优化一下吧, 这代码效率不高.
比如:
If Trim(rs("部门")) = "系统管理" ......
ElseIf Trim(rs("部门")) = "老师" .......
Else....
这种可以用Select case语句来简化, 并且结构更清晰, 不容易出错:
先定义一个字符串变量
dim BM as string
......
BM = Trim(rs("部门"))
Select case BM
case "系统管理": if Option1.Value then ...... '前面那句出错的语句这样写就可以了.
case "老师": ......
case "xxx": .....
end select
这样子是不是变得更加清晰了呢.