主题：判断输入数据在数据库是否存在

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

请教这个判断怎么写，谢谢！

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

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

在订单表设置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