对于平台的查询功能的进一步完善，当点击清除后，返回所有值，那程序的操作更加方便，方法如下：

1、查询窗体usysfrmFind，进入设计界面，然后在进入清除按钮的单击事件。

2、把下面一段代码贴到清除按钮的单击事件中：

Private Sub cmdClear_Click()
    Dim Q_name As String
    Q_name = Me.labDataSource.Caption
    g_usysfrmFind_cmdClear_Click    '       -----------系统代码,请勿修改-----------
    Forms!usysfrmMain!frmChild.Form.RecordSource = "select * from " & Q_name & ""
    Forms!usysfrmMain!frmChild.Requery
End Sub

完成后操作一下

查询后

点击清除后