Sean:
 Where gonghao='" & Forms!SysFrmMain!frmyuangong!sfrList![gonghao] & "'"

Sean:

取主窗体下子窗体的控件。是这样写？

欧志华 :
 Where gonghao='" & Forms!SysFrmMain!frmyuangong!sfrList.form![gonghao] & "'"

Sean:


欧志华 :
这是根据你提供的代码改的，你检查窗体名称。

Sean:

  Set rst = CurrentDb.OpenRecordset("Select * FROM tblyuangong Where gonghao='" & Forms!SysFrmMain!sfrChild!sfrList.Form![gonghao] & "'", , dbReadOnly)

改成这样，问题解决。