以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口控件全部必填应该怎么写.  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158310)
--  作者：夜点蚊香
--  发布时间：2020/11/16 9:50:00
--  窗口控件全部必填应该怎么写.
请指教,窗口控件全部必填怎么写.请指教
--  作者：有点蓝
--  发布时间：2020/11/16 9:56:00
--  
如果是绑定列的，直接判断表格的所有列是否有空值：http://www.foxtable.com/webhelp/topics/0595.htm

如果没有绑定，遍历所有输入控件判断，比如:http://www.foxtable.com/webhelp/topics/1849.htm
For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TextBox Then \'判断控件是否是文本框
        Dim t As WinForm.TextBox = c \'使用特定类型的变量引用控件
        if t.value is nothing then
msgbox(t.name & "控件没有录入")
return
end if
    End If
Next
--  作者：夜点蚊香
--  发布时间：2020/11/16 11:12:00
--  帮忙看一下代码.
写在表单的 BeforeSaveDataRow事件中。

Select Case e.DataCol.Name
    Case "校区"
    If e.Current.IsNull Then
        MessageBox.Show(e.DataCol.name & "不允许为空")
        e.Cancel = True
    End If
End Select

代码报错。
--  作者：有点蓝
--  发布时间：2020/11/16 11:43:00
--  

BeforeSaveDataRow

在保存某一数据行之前执行，可以在此对数据进行最终的验证。

e参数属性：
　
DataTable: 返回正在保存的数据表。
DataRow:   返回正在保存的数据行。
Cancel：   逻辑型，设为True，取消正在进行的保存。