以文本方式查看主题

-  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,取消正在进行的保存。