combobox，如何设置禁止改变为某个值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码写在，窗口名：男生资料主窗口；控件类型：combobox ，控件名：cmbhuiydj，事件：textchanged

'会员等级:相应的变化

Select Case user.name

Case "admin"

If Tables("Tablenanszl").Current("会员等级") = "未注册" Then

If e.Sender.Text = "普通会员" Then '当前会员等级:未注册,不能改为:普通会员

e.Sender.Text = "未注册"

msgbox("当前会员等级:未注册,不能改为:普通会员")

ElseIf e.Sender.Text = "中级会员" Then '当前会员等级:未注册,不能改为:中级会员

e.Sender.Text = "未注册"

msgbox("当前会员等级:未注册,不能改为:中级会员")

End If

ElseIf Tables("Tablenanszl").Current("会员等级") = "普通会员" Then

If e.Sender.Text = "未注册" Then '当前会员等级:普通会员,不能改为:未注册

e.Sender.Text = "普通会员"

msgbox("当前会员等级:普通会员,不能改为:未注册")

ElseIf e.Sender.Text = "中级会员" Then '当前会员等级:普通会员,不能改为:中级会员

e.Sender.Text = "普通会员"

msgbox("当前会员等级:普通会员,不能改为:中级会员")

End If

ElseIf Tables("Tablenanszl").Current("会员等级") = "中级会员" Then

If e.Sender.Text = "未注册" Then '当前会员等级:中级会员,不能改为:未注册

e.Sender.Text = "中级会员"

msgbox("当前会员等级:中级会员,不能改为:未注册")

ElseIf e.Sender.Text = "中级会员" Then '当前会员等级:中级会员,不能改为:普通会员

e.Sender.Text = "普通会员"

msgbox("当前会员等级:中级会员,不能改为:普通会员")

End If

End Select
图片点击可在新窗口打开查看

此主题相关图片如下：4321.png

主题：combobox，如何设置禁止改变为某个值