以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据有效性验证  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84625)
--  作者：tim2016
--  发布时间：2016/5/5 23:03:00
--  数据有效性验证
各位大侠请问有没有什么办法可以验证用户输入到某一列的数据，必须是在数据库里存在的值。新手，多谢大家。
--  作者：大红袍
--  发布时间：2016/5/5 23:18:00
--  

 要编写代码控制。编写ValidateEdit事件

 

If e.Col.Name = "订单号" AndAlso e.Text > "" Then
    Dim dr As DataRow
    dr = DataTables("订单表").Find("订单号 = \'" & e.Text & "\'")
    If dr Is Nothing Then
        msgbox("订单号不存在")
        e.Cancel = True
    End If
End If