水晶报表用法

abianyu 2002-05-27 02:27:50

一个很基础的问题：问水晶报表在VB中的实现报表打印的全过程（各种语句）
肯定给分

...全文

169 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

zzzbbb 2002-06-02

打赏
举报

我也要，zzzbbb0281@sina.com.cn

cgh1970 2002-06-02

打赏
举报

大哥我急用也给我一份
cgh1970@etang.com

sbamdanb 2002-05-29

打赏
举报

大哥我急用也给我一份
sbamdanb@sohu.com

LXFY 2002-05-29

打赏
举报

能不也给我一份：LXFY@acen.com.cn
谢谢！！

wssqsh 2002-05-29

打赏
举报

能不也给我一份：wss@jiaxin.org
谢谢！！

alaoway008 2002-05-29

打赏
举报

tonyjoule(寒星㊣)：
谢谢你！

hhfh 2002-05-28

打赏
举报

能不也给我一份：hhhbcn@sohu.com
谢谢！！

alaoway008 2002-05-28

打赏
举报

能不也给我一份：alaoway008@371.net
谢谢！！

dyugao 2002-05-28

打赏
举报

xi_sea 2002-05-28

打赏
举报

看看吧，如果你想学crystal report ，会有好处的！

xi_sea 2002-05-28

打赏
举报

Public Sub XsPrintReport(language As Integer, rptName As String, sltFormula As String, obj As Object)
Dim strReportFileName As String
Select Case language
Case 1: strReportFileName = App.Path & "\Report\c" & rptName
Case 2: strReportFileName = App.Path & "\Report\j" & rptName
Case 3: strReportFileName = App.Path & "\report\e" & rptName
End Select
obj.ReportFileName = strReportFileName
obj.DiscardSavedData = True
obj.SelectionFormula = sltFormula
MsgBox sltFormula
obj.Destination = crptToWindow

obj.Action = 1
End Sub

xi_sea 2002-05-28

打赏
举报

Private Function IOrderPrint_OrderHistoryFormula(Optional objCrpt As Variant, Optional Ppnum As Variant, Optional BgnDate As Variant, Optional EndDate As Variant) As String
Dim strFormula As String

If IsMissing(Ppnum) And IsMissing(BgnDate) And IsMissing(EndDate) Then
strFormula = " "
ElseIf IsMissing(Ppnum) And IsMissing(BgnDate) And Not IsMissing(EndDate) Then
strFormula = "{userorderhistory.handindate} < date(" & Year(EndDate) & "," & Month(EndDate) & "," & Day(EndDate) & ")"
objCrpt.Formulas(1) = "endtime='" & EndDate & "'"
ElseIf IsMissing(Ppnum) And Not IsMissing(BgnDate) And IsMissing(EndDate) Then
strFormula = "{userorderhistory.handindate} > date(" & Year(BgnDate) & "," & Month(BgnDate) & "," & Day(BgnDate) & ") "
objCrpt.Formulas(0) = "starttime='" & BgnDate & "'"
ElseIf IsMissing(Ppnum) And Not IsMissing(BgnDate) And Not IsMissing(EndDate) Then
strFormula = "{userorderhistory.handindate} in date(" & Year(BgnDate) & "," & Month(BgnDate) & "," & Day(BgnDate) & ") to date(" & Year(EndDate) & "," & Month(EndDate) & "," & Day(EndDate) & ")"
objCrpt.Formulas(0) = "starttime='" & BgnDate & "'"
objCrpt.Formulas(1) = "endtime='" & EndDate & "'"
ElseIf Not IsMissing(Ppnum) And IsMissing(BgnDate) And IsMissing(EndDate) Then
strFormula = "{userorderhistory.ppnum}='" & Ppnum & "' "
ElseIf Not IsMissing(Ppnum) And IsMissing(BgnDate) And Not IsMissing(EndDate) Then
strFormula = "{userorderhistory.ppnum}='" & Ppnum & "' and {userorderhistory.handindate} < date(" & Year(EndDate) & "," & Month(EndDate) & "," & Day(EndDate) & ")"
objCrpt.Formulas(1) = "endtime='" & EndDate & "'"
ElseIf Not IsMissing(Ppnum) And Not IsMissing(BgnDate) And Not IsMissing(EndDate) Then
strFormula = "{userorderhistory.ppnum}='" & Ppnum & "' and {userorderhistory.handindate} in date(" & Year(BgnDate) & "," & Month(BgnDate) & "," & Day(BgnDate) & ") to date(" & Year(EndDate) & "," & Month(EndDate) & "," & Day(EndDate) & ")"
objCrpt.Formulas(0) = "starttime='" & BgnDate & "'"
objCrpt.Formulas(1) = "endtime='" & EndDate & "'"
ElseIf Not IsMissing(Ppnum) And Not IsMissing(BgnDate) And IsMissing(EndDate) Then
strFormula = "{userorderhistory.ppnum}='" & Ppnum & "' and {userorderhistory.handindate} > date(" & Year(BgnDate) & "," & Month(BgnDate) & "," & Day(BgnDate) & ") "
objCrpt.Formulas(0) = "starttime='" & BgnDate & "'"
End If
IOrderPrint_OrderHistoryFormula = strFormula
End Function

lat35dn 2002-05-28