不能刷新的问题？

jia　发表于：2010-08-19 15:45:36 　

复制

各位老师们好：

请教一个关于查询后不能刷新的问题。

在一个窗体中，查询后，能刷新返回。如果，点击表头排序后，就不刷新返回？请指教。

谢谢

点击下载此附件

Top

煮江品茶发表于：2010-08-19 15:56:11

Private Sub 查询_Click()
    Dim strWhere As String
    strWhere = "True"
    If Not IsNull(Me.王码) Then
        strWhere = strWhere & " AND ([王码] like '*" & Me.王码 & "*')"
    End If
    Me.子窗体.Form.Filter = strWhere
    Me.子窗体.Form.FilterOn = True
End Sub

Private Sub 清除_Click()
Me.王码 = Null
Call 查询_Click
End Sub

Top

jia 发表于：2010-08-19 16:02:31

谢谢老师！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

不能刷新的问题？