主题：输入限制

你在表属性->事件->beforesavedatarow 写代码

保存之前检测一下

Dim cs() As String = {"第二列", "第三列", "第五列"}
For Each c As String In cs
    If e.DataRow.Isnull(c) Then
        msgbox(c & " 需要填写")
        e.cancel = True
        Return
    End If
Next