简单的分级，组合框联动代码

医院地域，是上级表
医院目录，是下级表
根据医院地域组合框的值，更新治疗医院组合框中的值

治疗医院组合框，数据源：
Select tblYiYuanMuLu.医院名称, tblYiYuanMuLu.所属地域
FROM tblYiYuanMuLu
Where (((tblYiYuanMuLu.所属地域)=[forms]![frmZhuYuanDengJi]![医院地域]));

医院地域组合框更新后事件：
Private Sub 医院地域_AfterUpdate()
'更新后事件
On Error Resume Next
   Me![治疗医院] = ""
   Me![治疗医院].Requery
End Sub