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哎 没人了吗

那些控件好像固定行距了,不能自由调整
怎么设置为自由调整????
自由的拉来拉去!!!!!!!!!!!!!
自由的移来移去……

如何自由调整里面的控件大小自已解决了,进来送分.那我就来接分了！恩,接分

如需要阅读该回复，请登录或注册

楼主这个问题是如何解决的？？请教。

哈哈，jf<
<
接分~~<
恭喜，结贴吧LZ

现有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板块下。
他一直在。

为什么说我的还没有被定义：
Private Sub MENU_REPORT_EMPLOYEE_Click()
Dim rpt As New DataReport1
rpt.Show
End SubDataReport1是什么，要是form，才能show默认的设计报表，在设计器里面Private Sub MENU_REPORT_EMPLOYEE_Click()
Dim rpt As New DataReport
rpt.Show
End Sub<
小娟，冒是不行。如果
2。工程——〉添加 data report

lz的代码应该可以，确认DataReport1是否对现在我按照一来做，引用了。但是又出现说rpt.show是未找到方法或数据成员。
怎么做呢？休假中，家里没vb。
等待小娟。求救啊问多个问题
点样可以将固定的路径改成相对的路径
用app.path怎样改
例如：data source=" &"user.mdb"新问题出现，rpt.show哪里它说我未找到方法或数据成员
可以怎样做？<
<
按2做，lz的代码是对的
Dim rpt As New DataReport1 '要确保这个DataReport1名字是对的

实在不明白lz错在哪里

***********************************
强调

lz不要用
1。引用——〉microsoft data report designer v6.0

用
2。工程——〉添加 data report

查一下报表对象引用了没有?

在CSDN里下的这个控件没有数据库
http://download.csdn.net/source/802214
源码天空里的这个有数据库
http://jlhttp.codesky.net/codesky2009/20061111947377.rar

我电脑里没有VSFXEXGRID 所有用的是MSFLEXGRID

预览时表格线都有的，打印时表格线就不全了！ 打印到PDF里也是一样没有表格线的！
PDF虚拟打印机地址：thunder://QUFodHRwOi8vd3QuY25nci5jbi8yMDA3MDUvUERGLXhsZHlqLnJhclpa自己先顶一下！ 在线等待中….可以设置gridlines ,但这个控件有问题,我也发过打印的帖子,现在将就用着<
如何设置 gridlines  能解决这个问题吗？
用的什么控件，什么方式打印？MSFLEXGRID.ocx本来就是vb自带的控件(打过补丁),还需要下载吗
gridlines 是控件的属性,不会的话搜吧

DataReport_FileInG.Orientation = rptOrientLandscape
DataReport_FileInG.Show 1
把报表设为横向打印，但提示第一句错误“未找到方法或数据成员”。
奇怪的是在当前模块中我也使用了同样的语句来设置另一个报表就不会出错，还有就是在我自己的电脑上是不会出现错误的，到其他几台电脑都会出现这种错误。
请各位帮帮助！

用Printer.Orientation = vbPRORLandscape就会提示"报表宽度大于纸的宽度"的错误!减小报表的宽度或者设置纸张类型
搜下"报表宽度大于纸的宽度"终于解决问题啦!原来是没有打补丁,我打上SP6补丁后Orientation属性出现了,问题也解决了.