- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- TextChanged筛选重复值过不了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106013)
-- 发布时间：2017/8/31 10:12:00
-- TextChanged筛选重复值过不了
TextChanged
控件的Text属性发生变化后执行。
在控件中每输入或删除一个字符，都会触发TextChanged事件。
\'查找数据
Dim tbx As WinForm.ComboBox = e.form.Controls(e.Sender.Name)
Dim tbl As DataRow = Tables("系统列表目录").Find("[列表分级_名称] = \'" & e.form.Controls("ComboBox主列表名称").text & "\'")
If tbl = "" Then
\'一个预定义对话框,用于向用户显示信息,并根据用户单击按钮的动作返回不同的值.
MessageBox.Show("主列表名称重复了,请重新输入!")
End If
此主题相关图片如下：qq图片20170831101428.png
提示是上面什么意思
[此贴子已经被作者于2017/8/31 10:14:57编辑过]
-- 发布时间：2017/8/31 10:14:00
--
Dim dr As DataRow = DataTables("系统列表目录").Find("[列表分级_名称] = \'" & e.form.Controls("ComboBox主列表名称").text & "\'")
If dr IsNot Nothing Then
\'一个预定义对话框,用于向用户显示信息,并根据用户单击按钮的动作返回不同的值.
MessageBox.Show("主列表名称重复了,请重新输入!")
End If
-- 发布时间：2017/8/31 10:17:00
--
谢谢老师
-- 发布时间：2017/8/31 10:25:00
--
\'查找数据
Dim tbx As WinForm.ComboBox = e.form.Controls(e.Sender.Name) \'AT注释:定义数组为当前界面组合列表框 = 调用Form表中指定名称的控件的属性
Dim dr As DataRow = DataTables("系统列表目录").Find("[列表分级_名称] = \'" & e.form.Controls("ComboBox主列表名称").text & "\'")
If dr IsNot Nothing Then
\'一个预定义对话框,用于向用户显示信息,并根据用户单击按钮的动作返回不同的值.
MessageBox.Show("主列表名称重复了,请重新输入!")
‘返回控件所在框直到修改完成方可退出该框
End If
-- 发布时间：2017/8/31 10:27:00
--
Dim tbx As WinForm.ComboBox = e.form.Controls(e.Sender.Name) \'AT注释:定义数组为当前界面组合列表框 = 调用Form表中指定名称的控件的属性
Dim dr As DataRow = DataTables("系统列表目录").Find("[列表分级_名称] = \'" & e.form.Controls("ComboBox主列表名称").text & "\'")
If dr IsNot Nothing Then
\'一个预定义对话框,用于向用户显示信息,并根据用户单击按钮的动作返回不同的值.
MessageBox.Show("主列表名称重复了,请重新输入!")
e.sender.select
e.sender.selectAll
End If