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

combobox绑定表,通过下拉菜单改变值，如果之前值为“1”，禁止改变为值“2”，怎么做？

[此贴子已经被作者于2016/11/24 9:31:24编辑过]

绑定的到表格DataColChanging事件处理，http://www.foxtable.com/webhelp/scr/0624.htm

你可以去编写 TextChanged 或者 Validating 事件

If Tables("表A").Current("第一列") = "1" Then

If e.Sender.Text = "2" Then

e.Sender.Text = 1

msgbox("不能修改为2")

End If

根据3楼的方法处理了，在窗口测试，提示错误

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2016.7.29.1

错误所在事件：窗口,男生资料主窗口,cmbhuiydj,TextChanged

详细错误信息：

重载决策失败，因为没有 Public“=”可以用这些参数调用:

'Public Shared Operator =(a As String, b As String) As Boolean':

与参数“a”匹配的参数无法从“ComboBox”转换为“String”。

贴出你的错误代码

以下代码写在，窗口名：男生资料主窗口；控件类型：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

代码应该是没错的。那你加入msgbox调试一下哪一行出错

http://www.foxtable.com/webhelp/scr/1485.htm

表名调整了，还有这段代码前面的一段代码，有权限设置，处理后，现在正常了

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