Foxtable(狐表)用户栏目专家坐堂 → 数据有效性验证


  共有1927人关注过本帖树形打印复制链接

主题:数据有效性验证

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 回到顶部