以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]小白求助前辈们关于在窗口中文本框控件的值不能重复输入的写法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27239)

--  作者:不倒的翁
--  发布时间:2012/12/26 1:00:00
--  [求助]小白求助前辈们关于在窗口中文本框控件的值不能重复输入的写法
小白求助,碰到个问题。
在窗口中有个文本框输入数值后点击保存,文本框不绑定到列,保存按钮中如何操作查询重复值。
感谢前辈们。

--  作者:程兴刚
--  发布时间: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

--  作者:程兴刚
--  发布时间: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)

--  作者:不倒的翁
--  发布时间:2012/12/26 11:23:00
--  
  谢谢程老师啊。这么晚了还在热心回答问题。感谢。