[求助]小白求助前辈们关于在窗口中文本框控件的值不能重复输入的写法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]小白求助前辈们关于在窗口中文本框控件的值不能重复输入的写法

共有8251人关注过本帖树形打印复制链接主题：[求助]小白求助前辈们关于在窗口中文本框控件的值不能重复输入的写法

程兴刚

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

加好友

发短信

等级：超级版主帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/12/26 1:17:00 [显示全部帖子]

Dim drs As List(Of DataRow)
drs = DataTables("某某表").Select("[某某列] = '" & e.Form.Controls("该控件").text & "'")
If drs.Count > 1
MessageBox.show("重复")
End If

程兴刚

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

加好友

发短信

等级：超级版主帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/12/26 1:20:00 [显示全部帖子]

Dim drs As List(Of DataRow)
drs = DataTables("某某表").Select("[某某列] = '" & e.Form.Controls("该控件").text & "'")
If drs.Count > 1
MessageBox.show("重复")
Return
End If
'下面是保存代码,或者是您的自定义保存代码
Syscmd.Project.Save(True)

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

主题：[求助]小白求助前辈们关于在窗口中文本框控件的值不能重复输入的写法