TextChanged筛选重复值过不了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → TextChanged筛选重复值过不了

共有2701人关注过本帖树形打印复制链接主题：TextChanged筛选重复值过不了

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：TextChanged筛选重复值过不了