以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉框选择列表，激活SelectedIndexChanged事件如何撤消或提前拦截  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106216)
--  作者：zhuya820
--  发布时间：2017/9/4 19:48:00
--  下拉框选择列表，激活SelectedIndexChanged事件如何撤消或提前拦截
Dim cnm = e.form.Controls("ComboBox") 

如何在ComboBox.text   已有数据   “数值”

下拉框选择列表，激活SelectedIndexChanged事件相应操作后，选择“操作”并激活相应操作后，默认框数据 “数值” 会为被替换成 “操作” 数值 

问题：如何撤消或提前拦截 “操作” 数据的输入 并保持原来的 “数值数据”
--  作者：有点蓝
--  发布时间：2017/9/4 20:23:00
--  
在赋值已有数据   “数值”的时候同时设置：

vars("原值") = "数值"

TextChanged事件
If vars("原值") = "数值" And e.Sender.Text = "操作" Then
    e.Sender.Text = "数值"
End If
--  作者：zhuya820
--  发布时间：2017/9/4 21:22:00
--  

vars("原值") = "数值"

[此贴子已经被作者于2017/9/4 22:51:07编辑过]
--  作者：有点蓝
--  发布时间：2017/9/4 21:24:00
--  
如果是绑定的直接在datacolchangIng事件处理即可。文本框没有什么OldValue的用法。

具体上传实例看看
--  作者：zhuya820
--  发布时间：2017/9/4 21:33:00
--  
SelectedIndexChanged事件代码：
Dim esd = e.Sender
If esd.text = "+管理" Then
    Tables("列表目录").Filter = "列表名称_3级 = \'\'"
    Forms("列表快速编辑").open
    esd.text = ""
End If


[此贴子已经被作者于2017/9/4 22:50:42编辑过]
--  作者：有点蓝
--  发布时间：2017/9/4 21:46:00
--  
TextChanged事件

Dim esd = e.Sender
If esd.text = "+管理" Then
    Tables("列表目录").Filter = "列表名称_3级 = \'\'"
    Forms("列表快速编辑").open
    esd.text = Vars("原值")
Else
    Vars("原值") = esd.text
End If