- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助][求助]文本框输入及查询问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107591)
-- 发布时间：2017/10/2 10:04:00
-- [求助][求助]文本框输入及查询问题
此主题相关图片如下：捕获.png
请教各位老师，文本框已经关联表，但是添加的时候可以有空值，要怎么才能不允许空值出现？如没输入按添加时则提示某某列不能为空，都输入好了才可以添加。此主题相关图片如下：捕获.png1.png
一起问下这个图，怎么可以实现按复选框中的条件查询啊？
[此贴子已经被作者于2017/10/3 16:19:15编辑过]
-- 发布时间：2017/10/2 12:06:00
--
[此贴子已经被作者于2017/10/3 12:10:14编辑过]
-- 发布时间：2017/10/3 16:55:00
--
求教了
-- 发布时间：2017/10/4 10:58:00
--
1、判断为空：http://www.foxtable.com/webhelp/scr/0426.htm
可以在添加按钮原先的添加代码之前判断，如果指定的列为空则退出
2、窗口查询参考：
-- 发布时间：2017/10/5 11:46:00
--
感谢老师的指点，查询问题已经解决，但是判断指定列为空后按确定仍然可以插入行啊，
Dim r As Row = Tables("sydj").insertnew()
Tables("sydj").Position = 0
r("来样日期") = Date.Today()
If DataTables("sydj").DataRows(2).IsNull("委托单位") Then
MessageBox.Show("错误,委托单位不能为空!")
End If
If DataTables("sydj").DataRows(1).IsNull("试样名称") Then
MessageBox.Show("错误,试样名称不能为空!")
End If
-- 发布时间：2017/10/5 11:49:00
--
dim r as row = Tables("sydj").Current
if r isnot nothing then
If r.IsNull("委托单位") Then
MessageBox.Show("错误,委托单位不能为空!")
return
End If
If r.IsNull("试样名称") Then
MessageBox.Show("错误,试样名称不能为空!")
return
End If
end if
Tables("sydj").Position = 0
Dim r As Row = Tables("sydj").insertnew()
r("来样日期") = Date.Today()
-- 发布时间：2017/10/5 14:20:00
--
又解决了一个问题，谢谢老师帮助。