100分求代码控制水晶报表程序！不够再加

Question

要求：报表内容不要过于简单！100分全部给最优秀者！

Answer 1

你安装crystall report 8.0就自然有例子了。太大了，不能寄给你。

Answer 2

Public Sub printReport(Rpt As CrystalReport, ByVal sql As String)
Dim ReportFileName, ReportName As String
Rpt.WindowState = crptMaximized
ReportFileName = App.Path & "\glfjsyd\jsyd_fyqk_jsydzbgftjb_yi.rpt"
Rpt.Connect = "dsn=dytd;uid=dytd;pwd=dytd"
Rpt.ReportFileName = ReportFileName + ReportName
Rpt.SQLQuery = sql
Rpt.Action = 2
End SubPrivate Sub Command5_Click()
Dim sql As String
           If Combo1.Enabled = True And Combo2.Enabled = False Then
       sql = "select * from JS_FYQK_JSYDZBGFTJB where trim(SFJ_XH)='" & Trim(Combo1.Text) & "'"
       End If
       If Combo2.Enabled = True And Combo1.Enabled = False Then
       sql = "select * from JS_FYQK_JSYDZBGFTJB where trim(SFJ_DW)='" & Trim(Combo2.Text) & "'"
       End If
       If Combo2.Enabled = True And Combo1.Enabled = True Then
       sql = "select * from JS_FYQK_JSYDZBGFTJB where trim(SFJ_DW)='" & Trim(Combo2.Text) & "' AND trim(SFJ_XH)='" & Trim(Combo1.Text) & "'"
       End If
            If Combo1.Enabled = False And Combo2.Enabled = False Then
         sql = "select *  from JS_FYQK_JSYDZBGFTJB"End IfprintReport CrystalReport1, sql
End Sub
Command5是打印按钮！在窗体中添加CrystalReport1

Answer 3

bluesanke()是先建立一个空的报表然后再程序中调用是吗？

Answer 4

http://www.ourfly.com/forum/View.aspx?fbId=7&Id=422
Crystal Reports水晶报表设计与开发实务的源代码 
CrystalReport.Net部分请点击此处下载
Crystal Reports8.5部分---database数据库请点击此处下载
Crystal Reports8.5部分---Visual Basic部分 
Crystal Reports8.5部分---Visual c++部分

Answer 5

刚才忘了说了是先在水晶报表里建好报表！然后再调用！
ReportFileName = App.Path & "\glfjsyd\jsyd_fyqk_jsydzbgftjb_yi.rpt"
这句就是建好的路径及表名，就是打开glfjsyd文件夹下的jsyd_fyqk_jsydzbgftjb_yi.rpt这个表：）

Answer 6

打印按钮里的代码可以这样写我刚才贴的是我的！
Private Sub Command5_Click()
Dim sql As String
sql="select * from 表名 加查询条件"
printReport CrystalReport1, sql
End Sub
这样就能打印查询结果了！我用的是7。0，

Answer 7

Set CRY = CRYAT.OpenReport(App.Path + "\水晶报表\crystal.rpt")
这句话你没设好，要是已经加载CRYSTAL REPORTS 9 ACTIVEX DESIGNER RUN TIME LIBRARY和
CRYSTAL REPORTS VIEWER CONTROL9，“\水晶报表”是你放报表的文件夹名“\crystal.rpt”是你要打开的那个报表名！！！都写对不会有问题：）
9.0控件和库

Answer 8

Public Sub printReport(Rpt As CrystalReport, ByVal sql As String)
CrystalReport 这里提示未定义啊
我引用了那两个库了啊

Answer 9

Set CRY = CRYAT.OpenReport(App.Path + "\水晶报表\crystal.rpt")
这句话你没设好，要是已经加载CRYSTAL REPORTS 9 ACTIVEX DESIGNER RUN TIME LIBRARY和
CRYSTAL REPORTS VIEWER CONTROL9，“\水晶报表”是你放报表的文件夹名“\crystal.rpt”是你要打开的那个报表名！！！都写对不会有问题：）
9.0控件和库看以下的
用这个前提是你在水晶报表里已经建好了，然后在部件里填加CRYSTAL REPORTS VIEWER CONTROL9把它拖到你的窗口里，然后选工程---》引用----》CRYSTAL REPORTS 9 ACTIVEX DESIGNER RUN TIME LIBRARY再填加个打印按钮，在打印按钮里填加代码
Dim CRY As CRAXDRT.Report
  Dim CRYAT As CRAXDRT.Application
  Set CRYAT = New CRAXDRT.Application
  Set CRY = CRYAT.OpenReport(App.Path + "\水晶报表\crystal.rpt")
  Form1.CRViewer91.ReportSource = CRY
  Form1.CRViewer91.ViewReport注意Set CRY = CRYAT.OpenReport(App.Path + "\水晶报表\crystal.rpt")水晶报表是你保存好的文件夹，crystal.rpt是你要打开的报表文件就是你要打印的表：）