特别说明:例子功能要全面,能正常运行,随便弄个mdb数据库作例子吧:)
1.动态指定rpt报表文件的数据源,就是能带参数那种,比如日期在某段时间内的记录等等
2.rpt报表文件的分组汇总要有,就是sub total ,grand total之类
3.如何读取或者设置rpt文件上面那些label或者textfield的文字,如label1我要显示当前的日期等;如何指定某些字段显示在某些textfield上,比如这个textfield1我要显示的是select a from b.请将例子email到[email protected].关于给分,email收到例子后我运行正常.我将上这个版面,查看留言,然后给分.给分方法:最多给给我例子的2个人,每个人50,如果某个人的例子very ok.100奉送!
1.动态指定rpt报表文件的数据源,就是能带参数那种,比如日期在某段时间内的记录等等
2.rpt报表文件的分组汇总要有,就是sub total ,grand total之类
3.如何读取或者设置rpt文件上面那些label或者textfield的文字,如label1我要显示当前的日期等;如何指定某些字段显示在某些textfield上,比如这个textfield1我要显示的是select a from b.请将例子email到[email protected].关于给分,email收到例子后我运行正常.我将上这个版面,查看留言,然后给分.给分方法:最多给给我例子的2个人,每个人50,如果某个人的例子very ok.100奉送!
解决方案 »
- 如何让VarType函数输出?(在线等了,标题长长长长长长长长)
- 关于在VB中用ADO读取SQL中binary字段出现乱码的问题?
- 简单问题,高手们过来抢分了!!
- 怎样用ADO连接到ACCESS数据库
- 问一个简单问题,为什么我的程序在没有装VB的电脑上会出错?
- (100分+万分感谢)请问LoadPicture函数有没有替代方法。我在PB当中要用到LoadPicture,但是pb没有,有没有变通的方法
- 请问处理事务时,connection的Cursorlocation一定要用adUseServer,不能用adUerClient吗?
- vb6中函数重载需要怎样说明?
- 在richtextbox中如何把光标移到你所要的行?
- 那位兄弟有SMTP协议的完整介绍.....
- 怎样在程序里通过语言与数据库进行连接。
- DataGrid下标超限怎么办?急!!!!!
Private Const ODBC_ADD_DSN = 1
Private Const ODBC_CONFIG_DSN = 2
Private Const ODBC_REMOVE_DSN = 3
Private Const vbAPINull As Long = 0&
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As LongPublic Function CreateDSN(ByVal sTPath As String, ByVal sTDsn As String) As Long
Dim strDriver As String
Dim strAttributes As String
strDriver = "Microsoft Access Driver (*.mdb)"
' strAttributes = "SERVER=SomeServer" & Chr$(0)
strAttributes = strAttributes & "DESCRIPTION=筑龙供应商管理" & Chr$(0)
strAttributes = strAttributes & "DSN=" & sTDsn & Chr$(0)
strAttributes = strAttributes & "DBQ=" & sTPath & Chr$(0)
strAttributes = strAttributes & "UID=" & Chr$(0)
strAttributes = strAttributes & "PWD=" & Chr$(0)
CreateDSN = SQLConfigDataSource(0, ODBC_ADD_DSN, strDriver, strAttributes)
End FunctionPrivate Sub Form_Load()
If CreateDSN(App.Path & "\ZLGYSR.mdb", "ZLGYS") <> 0 Then
End If
Dim CRY As CRAXDRT.Report
Dim CRYAT As CRAXDRT.Application
Set CRYAT = New CRAXDRT.Application
Set CRY = CRYAT.OpenReport(App.Path & "\CP91.rpt")
CR91.ReportSource = CRY
CR91.ViewReport
' CRY.PrintOut True
End Sub
但也对jadehong达人表示万分感谢,毕竟能热心回答问题的人太少了.
给分
jadehong大人,cr报表动态改变一个field的值怎么办呢?就比如一个form上面我放个textfield,我可以textfield1.text="xxx"来随时改变我的显示文本,在cr designer上面我该怎么办?这个field不一定是数据库里面的字段,因为我只想动态改变显示一些文本信息而已.