[求助]关于引用控件及格式问题

sbsfhgl

<BR>
< >请问调动窗体点击列表框时运行显示，“编译错误，用户定义类型未定义”，应引用什么控件？</P>
< >上面改好了过后，请问调动窗体点击列表框后运行显示，“运行错误，标准表达式中数据类型不匹配”，我知道是将“员工编号”改为“文本”就好了，如果我非要用“数字”又应改哪儿呢？</P>
< >谢谢为我解答的人。。。</P>
<P > </P>

Grant

<DIV class=quote><B>以下是引用<I>sbsfhgl</I>在2007-7-23 15:03:00的发言：</B><BR>
<>  Set db = CurrentDb<BR>CurrentDb?是什么意思？</P><BR></DIV>
<>CurrentDb 指当前数据库</P>

sbsfhgl

<>  Set db = CurrentDb<br>CurrentDb?是什么意思？</P>

[此贴子已经被作者于2007-7-23 15:38:41编辑过]

Grant

<>rivate Sub 列表3_AfterUpdate()</P>
<>    Set db = CurrentDb<BR>'        Dim db As DAO.Database        这里重复声明了<BR>'    Dim Zf As DAO.Recordset<BR>    Dim str As String<BR>    <BR>    Set Zf = db.OpenRecordset("select * from 员工 where 员工编号='" &amp; Me.列表3.Column(0) &amp; "'")<BR>    Me.部门1 = Zf("所属部门")<BR>    Me.部门2 = Zf("所属部门")<BR>    Me.职务1 = Zf("职务")<BR>    Me.职务2 = Zf("职务")<BR>    <BR>End Sub</P>

<P>还有就是对DAO的引用 </P>
<P>microsoft dao 3.6 object library</P>
<P>office版本不同引用的控件版本也有所不同</P>

<P>Set Zf = db.OpenRecordset("select * from 员工 where 员工编号=" &amp; Me.列表3.Column(0) &amp; "")</P>
<P>用数值类型的时候SQL语句中应该注意一下符号 单引为字符类型</P>