以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文本框输入的值是否已经存在  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79961)
--  作者：huhu
--  发布时间：2016/1/13 9:59:00
--  [求助]文本框输入的值是否已经存在
Dim kwmch As WinForm.TextBox = e.Form.Controls("TextBox3")
If kwmch.text <> "" Then
    For Each r As DataRow In DataTables("仓库管理").DataRows
        If r("库位名称") = kwmch.text Then
            MessageBox.show("你输入的库位名称已经存在,请更换重新输入","提示")
        Else
            MessageBox.show("你输入的库位名称可用","提示")
        End If
    Next
Else
    MessageBox.show("请输入新的库位名称才能检测","提示")
End If

不要用for each next，每循环一次就弹出msgbox。有简单的实现方式么。
--  作者：大红袍
--  发布时间：2016/1/13 10:07:00
--  
Dim kwmch As WinForm.TextBox = e.Form.Controls("TextBox3")
If kwmch.text <> "" Then
    Dim fdr As DataRow = DataTables("仓库管理").find("库位名称 = \'" & kwmch.text & "\'")
    If fdr IsNot Nothing Then
        MessageBox.show("你输入的库位名称已经存在,请更换重新输入","提示")
    Else
        MessageBox.show("你输入的库位名称可用","提示")
    End If
Else
    MessageBox.show("请输入新的库位名称才能检测","提示")
End If
--  作者：huhu
--  发布时间：2016/1/13 10:29:00
--  
Dim kwmch As WinForm.TextBox = e.Form.Controls("TextBox3")
If kwmch.text <> "" Then
    Dim fdr As DataRow = DataTables("仓库管理").find("库位名称 = \'" & kwmch.text & "\'")
    If fdr IsNot Nothing Then
        MessageBox.show("你输入的库位名称已经存在,请更换重新输入","提示")
        kwmch.text = ""
    Else
        MessageBox.show("你输入的库位名称可用","提示")
    End If
Else
    MessageBox.show("请输入新的库位名称才能检测","提示")
End If

希望当执行完下面代码后光标自动定位到这个文本框上。
MessageBox.show("你输入的库位名称已经存在,请更换重新输入","提示")
 kwmch.text = ""
--  作者：Hyphen
--  发布时间：2016/1/13 10:54:00
--  
 kwmch.select