If Me.Combo0 <> " " Then
职工.visible______ = True '将名称为职工的子窗体可见性设为true
strsql = "___select 工号，姓名，性别，年龄 from 职工_______='" & _combo0.value________ & "'" '定义SQL语句进行查询
Else
mesbox "请选择工号"___________ 'msgbox给出："请选择工号"的提示
End If
me.职工.form.recordsource________ = strsql
End Sub
调试一下吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024