主题：请问如何设置该列为必填？

我有个出库表。我想设置里面的“商品编号”列为必填，不能为留空。否则保存的时候提示“商品编号不能为空！”，并自动跳转到商品编号为空的那一行

和上一个问题类似

 

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

我想问下，放在什么事件里面？

 单独做一个按钮。见你发的另一个帖子