- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 错误框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107773)
-- 发布时间：2017/10/9 19:00:00
-- 错误框
在系统设置窗体 的AfterLoad事件中写了如下代码当数据库中无数据时弹出错误框
此主题相关图片如下：588.png
此主题相关图片如下：589.png
Dim r As Row = Tables("系统设置").Current
If r IsNot Nothing Then
e.Form.Controls("shifouqidongtixing").BindingField = Tables("系统设置").Current("是否提醒")
End If
Dim cmb As WinForm.CheckBox = e.form.Controls("shifouqidongtixing")
cmb.Checked = DataTables("系统设置").GetComboListString("是否提醒")
-- 发布时间：2017/10/9 19:42:00
--
DataTables("系统设置").GetComboListString("是否提醒") 合成的就是以“|”分割的字符串
-- 发布时间：2017/10/9 19:57:00
--
不明白你的意思
-- 发布时间：2017/10/9 20:17:00
--
先搞懂GetComboListString和Checked分别是干嘛用的！
-- 发布时间：2017/10/9 20:32:00
--
应该没错呀,数据库中如果有数据时，就给"shifouqidongtixing"控件赋值呀
如果改为以下代码如果数据库里无数据时也会出错
此主题相关图片如下：1111.png
此主题相关图片如下：222.png
e.Form.Controls("shifouqidongtixing").BindingField = Tables("系统设置").Current("是否提醒")
Dim cmb As WinForm.CheckBox = e.form.Controls("shifouqidongtixing")
cmb.Checked = DataTables("系统设置").GetComboListString("是否提醒")
[此贴子已经被作者于2017/10/9 20:46:05编辑过]
-- 发布时间：2017/10/9 20:44:00
--
Messagebox.show(DataTables("系统设置").GetComboListString("是否提醒")) ‘弹出的是什么内容？
CheckBox.Checked 需要的是逻辑值（True/False）
[此贴子已经被作者于2017/10/9 20:44:35编辑过]
-- 发布时间：2017/10/9 20:48:00
--
如果数据库中无数据什么也返不过来的
-- 发布时间：2017/10/9 20:59:00
--
cmb.Checked = DataTables("系统设置").GetComboListString("是否提醒") > ""
-- 发布时间：2017/10/9 21:04:00
--
不明白蓝老师的意思，这样同样弹出错误框
我试了就是"e.Form.Controls("shifouqidongtixing").BindingField = Tables("系统设置").Current("是否提醒")"和“cmb.Checked = DataTables("系统设置").GetComboListString("是否提醒")”代码引起的，
如果数据库中没有数据时就会出错，如果有数据是就正常了看看怎么解决一下呀？
[此贴子已经被作者于2017/10/9 21:10:03编辑过]
-- 发布时间：2017/10/9 21:09:00
--
e.Form.Controls("shifouqidongtixing").BindingField = "系统设置.是否提醒"