对象变量或with块未设置？？？怎么改过来？？学生学籍管理

[lamian55]

Public Sub viewdata() '由于程序中各处需要显示数据，定义函数ViewData


Combo1.Text = dream.Fields(0) 错误在这

Text2.Text = dream.Fields(1)
Text3.Text = dream.Fields(2)
Text4.Text = dream.Fields(3)
Text5.Text = dream.Fields(4)
Text6.Text = dream.Fields(5)
Text7.Text = dream.Fields(6)
Text8.Text = dream.Fields(7)
Text9.Text = dream.Fields(8)
Text10.Text = dream.Fields(9)
Text11.Text = dream.Fields(10)
Text12.Text = dream.Fields(11)
Text13.Text = dream.Fields(12)
Text14.Text = dream.Fields(13)
Text15.Text = dream.Fields(14)
Text16.Text = dream.Fields(15)
Text17.Text = dream.Fields(16)
Text18.Text = dream.Fields(17)
Text19.Text = dream.Fields(18)

End Sub

[jhone99]

这个过程写在哪里？窗体？公共模块？
公共模块中看不到这些控件，你在窗体中可能试验成功，但这里不能这么用
传递窗体过来，把控件名前加窗体

[lamian55]

写在成绩修改的窗体里,combo1 是考试类型的选择。

[lamian55]

[Quote=引用 8 楼 jhone99 的回复:]
引用 5 楼 lamian55 的回复:
算了，是我描述不清吧！唉……


那就重新描述呗
[/Quote]
恩，不要这个程序了，太复杂了。谢谢你哈！

[jhone99]

分别测试

Public Sub viewdata() '由于程序中各处需要显示数据，定义函数ViewData

    MsgBox dream.Fields(0)
'  Combo1.Text = dream.Fields(0) '错误在这
'
'  Text2.Text = dream.Fields(1)
'  Text3.Text = dream.Fields(2)
'  Text4.Text = dream.Fields(3)
'  Text5.Text = dream.Fields(4)
'  Text6.Text = dream.Fields(5)
'  Text7.Text = dream.Fields(6)
'  Text8.Text = dream.Fields(7)
'  Text9.Text = dream.Fields(8)
'  Text10.Text = dream.Fields(9)
'  Text11.Text = dream.Fields(10)
'  Text12.Text = dream.Fields(11)
'  Text13.Text = dream.Fields(12)
'  Text14.Text = dream.Fields(13)
'  Text15.Text = dream.Fields(14)
'  Text16.Text = dream.Fields(15)
'  Text17.Text = dream.Fields(16)
'  Text18.Text = dream.Fields(17)
'  Text19.Text = dream.Fields(18)
    
End Sub

Public Sub viewdata() '由于程序中各处需要显示数据，定义函数ViewData

    Combo1.Text = "hihi"
'  Combo1.Text = dream.Fields(0) '错误在这
'
'  Text2.Text = dream.Fields(1)
'  Text3.Text = dream.Fields(2)
'  Text4.Text = dream.Fields(3)
'  Text5.Text = dream.Fields(4)
'  Text6.Text = dream.Fields(5)
'  Text7.Text = dream.Fields(6)
'  Text8.Text = dream.Fields(7)
'  Text9.Text = dream.Fields(8)
'  Text10.Text = dream.Fields(9)
'  Text11.Text = dream.Fields(10)
'  Text12.Text = dream.Fields(11)
'  Text13.Text = dream.Fields(12)
'  Text14.Text = dream.Fields(13)
'  Text15.Text = dream.Fields(14)
'  Text16.Text = dream.Fields(15)
'  Text17.Text = dream.Fields(16)
'  Text18.Text = dream.Fields(17)
'  Text19.Text = dream.Fields(18)
    
End Sub

[lyserver]

dream.Fields(0)中的dream设置为模块级变量或工程级变量或在viewdata函数里加上参数viewdata。

[lamian55]

算了，是我描述不清吧！唉……

[lamian55]

谢谢大家！！！！！

[舉杯邀明月]

dream 对象创建或初始化了吗？

[jhone99]

[Quote=引用 5 楼 lamian55 的回复:]
算了，是我描述不清吧！唉……
[/Quote]

那就重新描述呗