急!请大家帮我想想办法!
我现在做一个数据库应用程序,我在一个类模块中建立了与数据库的连接(ADO对象),在显示数据的窗体中有一个DataGrid控件和几个文本框,但是我不能让DataGrid中显示记录,另外,在运行的时候我数据库中的两个字段明明是可以为空,可是有两个文本框却报错说不能引用空值(但在数据库中手动加上一个值就不会报错了),这是什么原因,有什么办法可以解决吗?相关代码于下所示:(请大家指教,非常感谢)
Dim myObj As ClsDBCon
Private Sub Form_Load()
Set myObj = New ClsDBCon
myObj.DB_connect
data_Display
Set DataGrid.DataSource = myObj.rs 'The rowset is not bookmarkable
End Sub
Public Sub data_Display()
txtNum.Text = myObj.rs!工号
txtName.Text = myObj.rs!姓名
cboSex.Text = myObj.rs!性别
txtBorn.Text = myObj.rs!生日
txtAge.Text = myObj.rs!年龄
txtID.Text = myObj.rs!身份证号码
txtDpt.Text = myObj.rs!所属部门
txtPosit.Text = myObj.rs!职位
txtDate.Text = myObj.rs!入职时间
txtAddress.Text = myObj.rs!家庭住址
txtTel.Text = myObj.rs!电话号码
txtOther.Text = myObj.rs!其它联系方式 '不能引用空值的字段
txtExp.Text = myObj.rs!经验与特长 '不能引用空值的字段
End Sub
问题点数:50、回复次数:6Top
1 楼longhairgw(长发飘飘)回复于 2002-07-06 00:33:02 得分 0
记录返回null
文本框不能接收空值nullTop
2 楼monkey_zeng(未来报告)回复于 2002-07-06 00:52:27 得分 20
楼上老兄说得对,你返回了NULL,文本框当然不接受。
可以在后面加上 & ""
如:
txtExp.Text = myObj.rs!经验与特长 & ""
Top
3 楼spar8086()回复于 2002-07-06 01:29:20 得分 10
改为下面的吧:
txtOther.Text =iif( isnull(myObj.rs!),"",myObj.rs!)
txtExp.Text =iif(isnull(myObj.rs!),"",myObj.rs!)Top
4 楼jyu1221(天同)回复于 2002-07-06 07:28:00 得分 20
monkey_zeng(未来报告) 的方法是最好的
spar8086()的方法不怎么好,因为它引用了2次对象Top
5 楼leonkokona(蓝色动力)回复于 2002-07-06 13:35:54 得分 0
谢谢大家的指教~以后还请各位多多帮忙!Top
6 楼leonkokona(蓝色动力)回复于 2002-07-06 13:51:45 得分 0
另外,要让DataGrid控件显示数据库中的记录该如何解决呀?我用的是(ADO对象),如果用控件的话非常容易~可是编代码却总是报错!再次感谢!Top




