VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
VB编程问题
发表在VB答疑区
2009-10-12
是否精华
是
否
版块置顶:
是
否
你好
我是VB初学者，现在有一个问题如下：
子程序：
Dim RS1 As New ADODB.Recordset
Private Sub DispValue() '显示当前记录的值
Text1.Text = RS1.Fields("介质编号")
Text2.Text = RS1.Fields("分子式")
Text3.Text = RS1.Fields("闪点（℃）")
Text4.Text = RS1.Fields("外观和气味")
Text5.Text = RS1.Fields("介质名称")
Text6.Text = RS1.Fields("爆炸极限")
Text7.Text = RS1.Fields("自燃点（℃）")
Text8.Text = RS1.Fields("危险特性")
Text9.Text = RS1.Fields("灭火方法")
Text10.Text = RS1.Fields("用途")
End Sub
程序运行时出错了，错误信息如下：实时错误‘94’，无效使用Null
即text不能为空，但字段本身是非必填字段。
请问如何设置text才能正常运行
谢谢！
我是VB初学者，现在有一个问题如下：
子程序：
Dim RS1 As New ADODB.Recordset
Private Sub DispValue() '显示当前记录的值
Text1.Text = RS1.Fields("介质编号")
Text2.Text = RS1.Fields("分子式")
Text3.Text = RS1.Fields("闪点（℃）")
Text4.Text = RS1.Fields("外观和气味")
Text5.Text = RS1.Fields("介质名称")
Text6.Text = RS1.Fields("爆炸极限")
Text7.Text = RS1.Fields("自燃点（℃）")
Text8.Text = RS1.Fields("危险特性")
Text9.Text = RS1.Fields("灭火方法")
Text10.Text = RS1.Fields("用途")
End Sub
程序运行时出错了，错误信息如下：实时错误‘94’，无效使用Null
即text不能为空，但字段本身是非必填字段。
请问如何设置text才能正常运行
谢谢！
分享到：
