下面以frmProject窗体为例，1.打开时加载全部数据；2.打开时只显示待审核数据

要实现该功能，需要以下步骤：

1.在模块种新增两个函数：

Public ProjectOpenMode As Long '全局变量

Public Function OpenProjectForm()
    ProjectOpenMode = 0
    RunMenuCommand "OpenForm|frmProject|||||-1|"
End Function

Public Function OpenProjectWaitAuditForm()
    ProjectOpenMode = 1
    RunMenuCommand "OpenForm|frmProject|||||-1|"
End Function

2.在项目管理(显示全部数据)菜单编辑中，选择指定代码，然后在函数名称种输入：OpenProjectForm

3.在待审核项目管理的菜单编辑中，选择指定代码，然后在函数名称种输入：OpenProjectWaitAuditForm

4.在frmProject中的加载时间中，Me.Recalc 这行之前插入：

Select CASE ProjectOpenMode
CASE 0
	Me.sfrList.Form.RecordSource = "Select * FROM tblProject"
CASE 1
	Me.sfrList.Form.RecordSource = "Select * FROM tblProject Where Audit=False "
CASE ...'根据需要还可以在增加其他模式
End Select

这样设置下来，即可通过项目管理查看所有项目信息；通过待审核项目管理查看待审核项目信息。