Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口控件全部必填应该怎么写.


  共有3160人关注过本帖树形打印复制链接

主题：窗口控件全部必填应该怎么写.
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		窗口控件全部必填应该怎么写.  发帖心情 Post By：2020/11/16 9:50:00 [只看该作者]

请指教,窗口控件全部必填怎么写.请指教
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		帮忙看一下代码.  发帖心情 Post By：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

代码报错。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/16 11:43:00 [只看该作者]

BeforeSaveDataRow

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

e参数属性：
　
DataTable: 返回正在保存的数据表。
DataRow:   返回正在保存的数据行。
Cancel：   逻辑型，设为True，取消正在进行的保存。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询