<>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 员工编号='" & Me.列表3.Column(0) & "'")<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 员工编号=" & Me.列表3.Column(0) & "")</P>
<P>用数值类型的时候SQL语句中应该注意一下符号 单引为字符类型</P>
<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>