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

和上一个问题类似

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