以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何设置该列为必填？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43289)
--  作者：chen3728060
--  发布时间：2013/12/3 20:04:00
--  请问如何设置该列为必填？
我有个出库表。我想设置里面的“商品编号”列为必填，不能为留空。否则保存的时候提示“商品编号不能为空！”，并自动跳转到商品编号为空的那一行
--  作者：czy
--  发布时间：2013/12/3 20:30:00
--  

和上一个问题类似

 

If DataTables("表A").Select("[商品编号] is null").Count > 0
    MessageBox.Show("提示")
With CurrentTable
    Dim r As Integer
    r = .FindRow("[商品编号] is null") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With
Else
    Syscmd.Project.Save()
End If
--  作者：chen3728060
--  发布时间：2013/12/3 20:45:00
--  
我想问下，放在什么事件里面？
--  作者：有点甜
--  发布时间：2013/12/3 20:46:00
--  
 单独做一个按钮。见你发的另一个帖子