VB程序员博客

水晶报表10实现以下分页求和功能：
1.明细资料以领料日期排序
2.对本页中的资料以币别求和
3.每种币别和独占一行

例如：
日期 币别 金额 描述
2010.05.01 RMB 1000 …
2010.05.02 USD 500 …
2010.05.03 RMB 2000 …
2010.05.04 VND 1500 …
2010.05.05 USD 800 …
—————————-
  合计： RMB 3000
  USD 1300
  VND 1500

描述栏位设为可自由换行，也就根据内容长度自动换行

每页的币别数不定，行数也不定
以上所说报表是单独的.rpt文件，不是在VB中使用水晶报表控件那种图表区，问问啊泰图表区？
能否告知具体路径

哪个有关于VB与水晶报表的电子书啊

有的话传份给我了,谢谢了,daniel-zhag@163.com

或有下载地址也可以帮楼主顶上去。

我有装水晶报表11.5中文版的,但安装目录下没有

阿泰,能否传一份给我,TKS俺也没找到，如果有也给俺一份，email: li1639999@163.com
谢谢了you can download the samples from its website

Dim Cryapp As New CRAXDRT.Application 
 Dim report As New CRAXDRT.report 

 以上两句是引用水晶报表的哪个文件

 我用的水晶报表是 Crystal Reports XI R2 版本

 看下图

 用Visual Studio自带的OLE-COM Object Viewer看一下。
也可以用VB的对象浏览器。我的机子上只有10.5版的

以下仅供参考：
引用Crystal Reports ActiveX Designer Design and Runtime Library 10.5

Dim Cryapp As New CRAXDDRT.Application
Dim report As New CRAXDDRT.report
我只用到8，8.5 和9.
C:Program FilesCrystal DecisionsReport Designer Componentcraxdrt9.dll#Crystal Reports 9 ActiveX Designer Run Time LibraryCrystal Reports ActiveX Designer Run Time Library 11.5VB 里面没有此工程控件了

Crystal Reports ActiveX Designer Run Time Library 11.5

是我这个版本的问题还是什么,还是文件不完整

看不到图。
不是控件。控件是viewer control哎 没人了吗

现有N个固定资产的代码需要打印，打印出来的格式如下：

资产代码1             资产代码2         资产代码3
打印日期             打印日期         打印日期

资产代码4             资产代码5         资产代码6
打印日期             打印日期         打印日期

。。。。。。

按上述布局，打在A4纸上，“资产代码”取自数据库字段。
请教：在水晶报表中如何设置？
数据库与报表连接起来就可以了，日期取电脑的系统时间，只要连接帮定了，系统时间自动出来，这个很容易的。

2楼阿泰看明白了问题所在，你所提供的解决办法也是有效的，给你结帖了，多谢指教。

问题：水晶报表已经设置好了，但在vb程序中如何显示出这个报表，请高人指点，新手还请明示。        Getmarg "", "tj.rpt"
        FrmRpt!Report1.SelectionFormula = "{pjx.glid}=" & Val(glid) & " and {pjx.username}='" & ComputerName & "'"
        FrmRpt!Report1.Formulas(0) = "a='" & Zcdwname & "统计表" & "'"
        FrmRpt!Report1.Formulas(1) = "dw='" & Zcdwname & "'"
        FrmRpt!Report1.Destination = 0
        On Error Resume Next
        FrmRpt!Report1.Action = 1

Sub Getmarg(title As String, filename As String)
    Dim ssn As New ADODB.Recordset
    ssn.Open "select * from report where title='" & title & "' and printer_type='" & PrinterSet & "'", cn
    If Not ssn.EOF Then
        FrmRpt!Report1.ReportFileName = ReportPath & ssn("filename")
        FrmRpt!Report1.MarginLeft = ssn("marginleft")
        FrmRpt!Report1.MarginTop = ssn("margintop")
    Else
        FrmRpt!Report1.ReportFileName = ReportPath & filename
    End If
    FrmRpt!Report1.Connect = "DSN=" & DsnName & ";UID=" & DatabaseLoginUid & ";PWD=" & DatabaseUserPwd & ";"
    ssn.Close: Set ssn = Nothing
End Sub

    现在我在学习软件的打包。工程语言是VB6.0；水晶报表版本是V9.2简体中文版；打包工具是Installshield 2008简体中文版。
    软件的打包需要“水晶报表的合并安装模块”，因为我不懂英文，所以我无法到水晶报表的官方网站去下载，所以我到这里来求助大家了，请有心的朋友能传一份给我，谢谢。我的邮箱是：xieyudada@163.com
    我现在使用的水晶报表的版本是V9.2简体中文版，请问后面的版本有没有中文版的呢？比如10、11或12版等？如果有的话请告诉我一下下载地址，谢谢。

    另外我现在使用水晶报表还碰到一个问题，在此请教。就是在调试工程的时候，打开“打印预览”窗体，调用水晶报表时会跳出警告：
    "0×3c2ce642"指令引用的”0×00720111”内存。该内存不能为”read”。
    或
    "0×3c2ce670"指令引用的”0×00720111”内存。该内存不能为”written”。
    我到网上看了帖子，有人只是简单的说了下，说是水晶报表的安装包的问题，要下载个新的就可以了。我抓瞎了，我不知道这个什么安装包到哪里下载，下载下来后又怎么操作呢？谢谢各位老师能够来帮助我。谢谢。

    不好意思，我对我们论坛不太了解，请问图表区的路径是什么？然后怎么才能找到阿泰老师呢？当然，我依然希望能在这里有朋友能够帮到我，谢谢。在。net板块下。
他一直在。

頁頭 : id:3002
      id1:20090101001
______________________________________________________
group by id1 為隱藏
______________________________________________________
prod amt
明細： 001 12
002 13
_______________________________________________________
頁腳: amt合計: 15

現在不知道這AMT合計怎么做出來

up

是你做的有问题吧，我过去没碰到过

這是老大咯問題

有人知道麼?

up

如题

Dim oApp As New CRAXDRT.Application
        Dim oRpt As CRAXDRT.Report
        Dim reportName As String
        reportName = App.Path & "
eportquotation.rpt"    '定义要引用的rpt文件
       
        Set oRpt = oApp.OpenReport(reportName, 1)
        oRpt.DiscardSavedData
       
        oRpt.EnableParameterPrompting = False
        oRpt.ParameterFields.GetItemByName("client_code").AddCurrentValue (cls.ClientModel.ClientCode)
        oRpt.ParameterFields.GetItemByName("client_name").AddCurrentValue (cls.ClientModel.ClientName)
        oRpt.ParameterFields.GetItemByName("quotation_code").AddCurrentValue (cls.QuotationCode)
        oRpt.ParameterFields.GetItemByName("quotation_date").AddCurrentValue (g_Turn_Dtm_Str(cls.QuotationDate))
        oRpt.ParameterFields.GetItemByName("client_person").AddCurrentValue cls.ClientModel.Linkman
        oRpt.ParameterFields.GetItemByName("client_phone").AddCurrentValue cls.ClientModel.Phone
        oRpt.ParameterFields.GetItemByName("client_fax").AddCurrentValue cls.ClientModel.Fax
        oRpt.ParameterFields.GetItemByName("client_email").AddCurrentValue cls.ClientModel.Email
        oRpt.ParameterFields.GetItemByName("client_address").AddCurrentValue cls.ClientModel.Address
        oRpt.ParameterFields.GetItemByName("employee_name").AddCurrentValue cls.EmployeeModel.EmployeeName
        oRpt.ParameterFields.GetItemByName("employee_phone").AddCurrentValue cls.EmployeeModel.Phone
        oRpt.ParameterFields.GetItemByName("employee_fax").AddCurrentValue cls.EmployeeModel.Fax
        oRpt.ParameterFields.GetItemByName("employee_email").AddCurrentValue cls.EmployeeModel.Email

        oRpt.DataBase.SetDataSource cls.QuotationDetailRst  '连接水晶报表和数据源
        oRpt.ReadRecords
       
        Dim frm As New frmPrint
        frm.CRViewer1.ReportSource = oRpt
        frm.CRViewer1.Refresh
        frm.CRViewer1.ViewReport
        frm.Show
————————————————–
报表中显示上面的那几个参数，含有中文的就乱码，
但是oRpt.DataBase.SetDataSource cls.QuotationDetailRst 数据集中的中文就没问题

我晕！！！知道了，我太糊涂了，是自体，我把参数的自体定为  Arial  了！！！不乱码才怪，换成宋体就好了

我用的代码是：
Dim txta As TextObject
txta = oRpt.ReportDefinition.ReportObjects.Item("text11")
txta.Text = frmLogin.Text1.Text

数据库连接省略，想要将对话框frmlogin的text1的值赋给水晶报表的text11,为什么出错？谢谢！

就parameter是什么意思？

就是你定义参数，然后给参数传值一定不会错的

txta.text 是只读属性
赋值是
txta.SetText 方法

不过在vb里好像是不能
txta = oRpt.ReportDefinition.ReportObjects.Item("text11")
这样的吧

可以这样

Dim txta As TextObject
Set txta = objCRReport.Sections(1).ReportObjects.Item(1)
txta.SetText "zzz"

和这样
http://www.cnblogs.com/babyt/archive/2007/12/26/1016076.html

谢谢阿泰，这个问题困扰我很长时间了，用你的办法解决了。

我怎么给你奖励分呀？

这个页面上有“结贴去”这个按钮，点进去后，在后面的黄色框里输入每个人的得分，然后点 结贴 就可以了

vb6.0中水晶报表上的sql表达式编辑器不见了

之前还用过，一段时间后重新修改这个程序的时候突然发现这个程序中的sql表达式编辑器变成了不可用状态，为什么呢？
此处生成了a.rpt文件

做过如下试验：

1.在此就程序基础上，重新建立一个CrystalReport，里面的sql表达式仍然不可以用.
2.重新新建一个程序，再新建一个报表，里面的sql是好用的。但是同样导入此a.rpt文件仍然不好用。

请高手解释，谢谢

我更新过了，可是仍然不存在