以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编号重复  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21862)

--  作者:x123h123x
--  发布时间:2012/7/26 11:54:00
--  编号重复
在窗口控件中Textbox,怎么实现输入编号重复后,不能离开控件呀

--  作者:don
--  发布时间:2012/7/26 14:09:00
--  

Validating


--  作者:狐狸爸爸
--  发布时间:2012/7/26 15:28:00
--  
Dim dr As DataRow
dr = DataTables("表A").Find("订单号 = \'" & e.Form.Controls("TextBox1").value  & "\' And [_Identiry] <> " & Table("xxx").Current("_Identify"))
If dr IsNot Nothing Then
    MessageBox.Show("此订单号已经存在!")
    e.Form.Controls("TextBox1").value = ""
End If
[此贴子已经被作者于2012-7-26 15:44:12编辑过]