请各位大虾，帮我看看这段VB代码有什么问题？

来源：百度知道编辑：UC知道时间：2024/05/09 11:06:56

我是初学者，按照书上的范例打了这段代码。但是运行时，总是提示编译错误：子程序或函数未定义

Private Sub form_load()
Dim i, Result As Integer
'设定复合框初始状态
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo1.Clear
Combo2.Clear
Combo3.Clear
'为复合框内容设定初始值
Combo1.AddItem "男"
Combo1.AddItem "女"
Combo2.AddItem "大学"
Combo2.AddItem "大专"
Combo2.AddItem "中专"
Combo2.AddItem "高中"
Combo2.AddItem "其它"
Combo3.AddItem "美术"
Combo3.AddItem "文艺"
Combo3.AddItem "舞蹈"
Combo3.AddItem "棋牌"
Dbstr = "selec * from person where [姓名]=[姓名]"
Data1.DatabaseName = App.Path + "\db.mdb"
Data1.RecordSource = Dbstr
'更新数据库
List1.Clear
'在列表框中显示姓名
Data1.R

试试通过选Form对象的load事件来自动调出
Private Sub Form_Load()

End Sub

如果提示编译错误子程序或函数未定义的话
那VB应该把错误区域告诉你啊

Data1.Recordset.Move下一步
下一步 i

上面这两句是怎么回事? 好像是"下一步"应该替换为"Next".

很简单了．
估计是你的数据库有问题或者是你查询的哪个代码有问题了．
并且你的for与next 也不对应啊．．
你自己再检查检查吧．．．
你是不是把课本上的注释对应的抄下来了啊？？

请各位大虾，帮我看看这段VB代码有什么问题？请帮我看看这段vb的程序请帮我看看这段vb代码请VB高手帮我看看这段代码请各位大虾帮我看看。请各位大虾帮我看看这几个手提怎么样？各位大虾帮我看看这段程序有什么问题。谢谢了！！！！！！！！！！！！！！各位大虾，帮我看看这段ASP代码那儿错了请VB高手帮我看看分析解释这段代码:谢谢请帮我看看这段代码。刚学asp期望大虾们指点。