
加好友 发短信
等级:贵宾
帖子: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
|
|