Office中国论坛/Access中国论坛

标题: 关于在窗体中查询出结果以后,在报表里面显示的数据可以排序????[含源代码] [打印本页]

作者: kingboyszxf 时间: 2006-9-7 18:49
标题: 关于在窗体中查询出结果以后,在报表里面显示的数据可以排序????[含源代码]
如何在窗体中查询出结果以后,在报表里面显示的数据可以排序????

Option Compare Database
Dim varStr As String

------------------------------------------
Private Sub btnCount_Click()

Call CountBill

DoCmd.OpenReport "业务财务统计", acViewPreview, varStr

End Sub

-----------------------------------------

Public Sub CountBill()

varStr = "Select Mblno,Hblno,发货人简称,收货人简称,通知人简称,出口年月日,到港日,所属主单号,单据类型,船名 from FindCorps where 系统编号<>0 "

If IsNull(TextStartDate) = False Then

If IsNull(TextStopDate) = False Then

   varStr = varStr & " and 出口年月日 Between #" & TextStartDate & "# and #" & TextStopDate & "# "

Else

   varStr = varStr & " and 出口年月日=#" & TextStartDate & "#"

End If

Else

If IsNull(TextStopDate) = False Then

   varStr = varStr & " and 出口年月日=#" & TextStopDate & "#"

End If

End If

If IsNull(StartDate) And IsNull(StopDate) Then

  If StartDate < StopDate Then

MsgBox " 日期选择错误! ", , "提示"
Exit Sub

  End If

End If

If IsNull(TextVsl) = False Then

  varStr = varStr & " and 船名='" & TextVsl & "'"

End If

If IsNull(Textvoy) = False Then

  varStr = varStr & " and 航次='" & Textvoy & "'"

End If

If IsNull(TextShipper) = False Then

  varStr = varStr & " and 收货人='" & TextShipper & "' or 通知人='" & TextShipper & "'  "

End If

If IsNull(TextConsignee) = False Then

  varStr = varStr & " and 发货人名称='" & TextConsignee & "'"

End If

If IsNull(ComboCTNSType) = False Then

  If ComboCTNSType = "ALL" Then

varStr = varStr & " and  单据类型<>'MH' and 单据类型<>'COLOAD' "

  Else

varStr = varStr & " and 货物类型='" & ComboCTNSType & "'"

  End If

End If

If CheckFCL.Value = -1 Then

  varStr = varStr & " and IsNull(所属主单号)=false  "

End If

If IsNull(TextMasterNo) = False Then

  varStr = varStr & " and 工作编号='" & TextMasterNo & "' or 所属主单号='" & TextMasterNo & "'"

End If

If IsNull(FrmFilter) = False Then

  Select Case FrmFilter

  Case 1 '船名

varStr = varStr & "  order by 船名"

  Case 2 'hblno

varStr = varStr & "  order by HBLNO"

  Case 3 'mblno

varStr = varStr & "  order by MBLNO"

  Case 4 'ETD

varStr = varStr & "  order by 出口年月日"

  Case 5 '发货人

varStr = varStr & "  order by 发货人简称"

  Case 6 '收货人

varStr = varStr & "  order by 收货人简称"

  End Select

End If

MsgBox varStr

End Sub
------------------------------------

以上是我写的代码,但是为什么在报表当中,不能进行排序呢.不管选哪种方法排序..

报表和窗体的数据源都是:表FindCorps

请各位高手,给指点一下...最好是有示例说明一下...万分感谢!

作者: kingboyszxf 时间: 2006-9-7 22:30
继续求助ing...

作者: kingboyszxf 时间: 2006-9-9 02:56
沉到海底了....[em06][em06][em06]

作者: fan0217 时间: 2006-9-9 03:16
这是个基础问题哦，看看报表设计工具栏上的一个按钮：排序与分组

作者: kingboyszxf 时间: 2006-9-11 19:46
谢谢版主的回复:

关键是:我是根据用户自己选择的排序字段来排序的,这个排序不是固定的某个字段,而是根据用户选择哪个字段,就用哪个字段来排序的..

继续求助ing....

作者: kingboyszxf 时间: 2006-9-12 16:33
[em06][em06][em06]

作者: kingboyszxf 时间: 2006-9-14 20:08
[em03][em03][em03]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)