- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]文本框空值错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151884)
-- 发布时间：2020/7/6 18:00:00
-- [求助]文本框空值错误
想在文本框空值时，点设置 会有提示要选择相关表。
但确出来错误提示。
通过判断 .value .text 仍然出来相关错误。
此主题相关图片如下：文本框空值错误.png
-- 发布时间：2020/7/6 18:49:00
--
if e.Form.Controls("txtName").value = "" then
msgbox("选择相关表")
Return
end if
-- 发布时间：2020/7/7 8:57:00
--
之前就试过了，这样还是会出现上面的错误。
-- 发布时间：2020/7/7 9:04:00
--
实例如下，请帮看下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:文本框空值错误.foxdb |
-- 发布时间：2020/7/7 9:14:00
--
把判断放到前面
Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If cb.value = "" Then
MessageBox.Show("选择相关表")
Return
End If
Dim tb As Table = Tables("列属性设置_table1")
Dim dtl As DataTable = DataTables("列属性")
Dim dt As DataTable = DataTables(cb.Value) \' 所选择的表
都还没有判断，就使用了，DataTables(cb.Value)肯定会出错了
-- 发布时间：2020/7/7 9:20:00
--
定义也会影响到！！！
谢了，修正后，OK!