用户定义类型未定义，为何?

dasen

[B]Dim db As dao.database
Dim zf As dao.Recordset[/B]


以上代码，运行提示错误，用户定义类型未定义，为何？

sea.er

应该是引用的问题，引用DAO3.6，并把顺序调到ado之上

dasen

Private Sub 列表2_AfterUpdate()

Dim db As dao.database
Dim zf As dao.Recordset
Dim str As String

Set db = CurrentDb
Set zf = db.openrecordset("select * from 个人档案 where 工号='" & Me.列表2.Column(0) & " '")

Me.部门1 = zf("部门")
Me.部门2 = zf("部门")
Me.职务1 = zf("职务")
Me.职务2 = zf("职务")

End Sub

如何进行引用，代码如何写?

sea.er

转到代码窗口，工具－引用，引用DAO3.6，并把顺序调到ado之上

dasen

多谢！
有关于＜引用＞方面的资料吗？

sea.er

没有，不过一般出现这种类型的提示，就有可能是缺少了对dao的引用；再有就是检查一下看有没有丢失引用

[此贴子已经被作者于2004-4-15 12:56:01编辑过]