请直接提出你的问题。或者google水晶报表高手哈此帖暂时保留,请自行编辑问题,3天后,如果依旧是此内容,做为广告帖删除。

解决方案 »

  1.   

    1、水晶报表怎么用?我也想学。
    2、CSDN能贴图吗?怎么贴?
      

  2.   

    先把用水晶报表做好格,程序里用SQl 查询的结果传给水晶报表就可以了。
      

  3.   

    to w123wxh:
    何时上网?向你请教!
      

  4.   

    baidu,google搜一下,多的是
      

  5.   

    定义两个全局变量mpb_REportstr , mpb_REportpath ,一个是用来传递SQL语句,一个用来传递水晶报表的路径。新建一个公共的控体,用来做打印的窗体。
    公共窗体上定义,窗体名为:frmcommreport
    Private capp As New CRAXDRT.Application
    Private carp As New CRAXDRT.Report
    Private Sub CrystalActiveXReportViewer1_PrintButtonClicked(UseDefault As Boolean)
    Dim lngRet As Long    UseDefault = False    carp.PrinterSetup Me.hWnd    carp.PrintOutEx True
    End SubPrivate Sub Form_Load()On Error GoTo errDim strSQL As String    Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset    Set carp = capp.OpenReport(mpb_REportpath, crOpenReportByDefault)    If cn.state = adStateOpen Then cn.Close    If rs.state = adStateOpen Then rs.Close
        With rs
               .ActiveConnection = mpb_adocn
               .CursorLocation = adUseClient
               .Open mpb_REportstr, mpb_adocn, adOpenDynamic, adLockOptimistic
        End Withcarp.Database.SetDataSource rs
    CrystalActiveXReportViewer1.ReportSource = carp
    'CRViewer91.EnableExportButton = True   '导入
    'CRViewer91.EnableSelectExpertButton = False
    CrystalActiveXReportViewer1.Zoom 75
    CrystalActiveXReportViewer1.ViewReport
    CrystalActiveXReportViewer1.Zoom 75
    Screen.MousePointer = vbDefaultExit Sub
    err:
        MsgBox "打印预览失败!", vbExclamation + vbOKOnly, "信息提示!"End Sub
    调用:
    mpb_REportstr = "SELECT * FROM XXX"
    mpb_REportpath = App.Path & "\REPORT\XXX.rpt"
    Dim f As New frmcommreport
           f.Show
          f.Caption = "印品登录单(施工单)列印"
    Set f = Nothing
      

  6.   

    我是用VB6,要打印一格式的聘书,聘书格式我已经在水晶报表工具里设计好,存成rpt文件.在这张报表里,有几个项是需要从数据表里查询出来填充进去的.我现在能做到在VB里调用这个rpt文件,能够显示出来.我现在困惑得是:要在这张显示的聘书格式里的几项空白的内容,怎么样从数据表里查询出对应的字段,程序调用的时候,显示进去. 
    我的聘书格式: 
                                   XXXX培训班 
                   _____老师: 
                 您所开设的______________专业_____________课程,现在特聘任您担任 
                   这门课程的主讲教师. 
    下划线的是要从数据表里查询出来填充进去的.上面这个表的格式是在水晶报表里做的,存成cr.rpt文件. 
    请问当调用出这个格式显示的时候,怎么样把查询出来的内容填充进去. 
    非常紧急,请求各位了.