以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  判断输入数据在数据库是否存在  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24666)

--  作者:watchbird
--  发布时间:2012/10/19 18:13:00
--  判断输入数据在数据库是否存在

有两个表【商品表】、【订单表】,在订单表中输入商品条码时,判断所录入的条码是否在商品表已经建立,如果商品表中没有所录入的条码则弹出提示信息“条码输入错误或未建立条码信息!”

请教这个判断怎么写,谢谢!


--  作者:mr725
--  发布时间:2012/10/19 18:29:00
--  

用find查找,用messagebox.show显示提示框。。。

 


--  作者:watchbird
--  发布时间:2012/10/19 18:46:00
--  

原理我明白,但是不知道在FOXtabale里怎么写


--  作者:有点甜
--  发布时间:2012/10/19 20:46:00
--  

在订单表设置DataColchanging事件:

 

if e.DataCol.Name = "商品条码" Then

    Dim tm As String = e.NewValue

    If  tm > "" Then

         If DataTables("商品表").Find("商品条码 = \'" & tm & "\'") Is Nothing Then

            MessageBox.show("输入的条码不存在!")

            e.Cancel = True

         End If

    End If

End If