如何实现筛选子窗体结果按字段排序打开新窗体或报表

lmqlt　发表于：2011-03-27 15:59:39 　

刘小军的子窗体查询很好用，但有一个问题是，将筛选出来的结果按一定字段排序打开新窗体或输出报表，没有必要做N个窗体或报表，用VBA语言控制 Me.存书查询子窗体.Form.Filter = strWhere， Me.存书查询子窗体.Form.FilterOn = True，将 GROUP BY 字段名加在 strWhere后面或者什么的，有什么招吗？请高手赐教，谢谢！

点击下载此附件

Top

煮江品茶发表于：2011-03-28 10:28:34

用窗体的OrderBy属性处理。

Top

煮江品茶发表于：2011-03-28 10:36:19

Private Sub Frame30_AfterUpdate()
Dim frm As Form
Set frm = Me.存书查询子窗体.Form
frm.OrderByOn = True
Select Case Me.Frame30.Value
    Case 1
        frm.OrderBy = "书名"
    Case 2
        frm.OrderBy = "类别"
    Case 3
        frm.OrderBy = "作者"
    Case 4
        frm.OrderBy = "出版社"
    Case 5
        frm.OrderBy = "单价"
End Select
End Sub

Top

lmqlt 发表于：2011-03-31 00:14:30

收到，谢谢，如果是倒序，可在字段名后加desc

Top

lmqlt 发表于：2011-04-08 13:15:00

Private Sub SetRecordSource_TBasic_SearchOFF()
DailyReport_Sub.Form.RecordSource = _
"SELECT * FROM mainOccurrenceReport WHERE Name_Ship = '" & Nz(Me!Name_Ship) & "'"
DailyReport_Sub.Form.OrderBy = "IdentificationNo"
DailyReport_Sub.Form.OrderByOn = True

End Sub

Private Sub 产品ID_DblClick(Cancel As Integer)
    strWhere = ""
    stDocName = "产品编辑窗体"
    strWhere = ""
    DoCmd.OpenForm stDocName, acNormal, , strWhere
    Forms![产品编辑窗体].Form.OrderBy = "单价 DESC"
    Forms![产品编辑窗体].Form.OrderByOn = True
    Forms![产品编辑窗体].Recordset.FindFirst "[产品ID]=" & Me.产品ID
End Sub

Top

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

Access交流中心

如何实现筛选子窗体结果按字段排序打开新窗体或报表