杭州交通信息网长沙华美达酒店涉黄:大家帮忙看一下这段代码如何修改
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 13:23:45
Private Sub Form_Load()
Adodc1.RecordSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\dxq-s-\桌面\数据库\1\公寓管理信息系统.mdb;Persist Security Info=False;Initial Catalog=公寓管理信息系统;Data Source=."
Adodc1.ConnectionString = ConnectString
Adodc1.RecordSource = "select * from SANIT"
Dim i As Integer
For i = 0 To 6
Set Text1(i).DataSource = Adodc1
Text1(i).DataField = Adodc1.Recordset.Fields(i).Name
Next i
Set DataGrid1.DataSource = Adodc1
ChangeFormPos 公寓管理系统, Me
End Sub
这是个公寓管理信息系统其中宿舍管理的部分，运行时老弹出一个窗体指着这段代码说“编译错误，子程序或函数未定义”
Adodc1.RecordSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\dxq-s-\桌面\数据库\1\公寓管理信息系统.mdb;Persist Security Info=False;Initial Catalog=公寓管理信息系统;Data Source=."
Adodc1.ConnectionString = ConnectString
Adodc1.RecordSource = "select * from SANIT"
Dim i As Integer
For i = 0 To 6
Set Text1(i).DataSource = Adodc1
Text1(i).DataField = Adodc1.Recordset.Fields(i).Name
Next i
Set DataGrid1.DataSource = Adodc1
ChangeFormPos 公寓管理系统, Me
End Sub
这是个公寓管理信息系统其中宿舍管理的部分，运行时老弹出一个窗体指着这段代码说“编译错误，子程序或函数未定义”
检查一下是不是哪个你自定义的函数忘记写了。
可能出在“ChangeFormPos 公寓管理系统, Me ”这一句上。