在报表里定义了一个公式字段,需要在vb里传递参数过去?在VB里应该怎么写啊?
解决方案 »
- 高手请进:InstallShieldX打包安装问题
- 我这里有个兼职的VB开发项目,实现短信发送WAP发送WAP书签功能
- 请问,怎样实现双击窗体上方的蓝色地带时窗体不会缩小啊?
- ActiveDLL 中是否可以发布全局使用的公有类
- 新手问:在列表框中list1.text和list1.listindex的区别
- 在Modules中定义的自定义数据类型为什么不能在Class Modules中使用??????
- vb+excel问题
- SysTray.ocx作出的托盘图标可以闪动么?高分在线等待。。。
- 在Word中插入文件,插入的文件的从中文字体变成西文的字体了?
- Excel中的Range的问题。急!
- 用 wse9 打包的问题,大虾赐教~~~
- 请BVA遍历表出现问题,请高手帮忙
我的代码是这样的,不知什么地方出错了
Private Sub Form_Load()Dim oApp As New CRAXDRT.Application
Dim oRpt As CRAXDRT.Report
Dim reportName As String
Dim StrTitle As StringStrTitle = "gggg"
Screen.MousePointer = vbHourglass
reportName = "\rpt\Pr2.rpt"Set oRpt = oApp.OpenReport(App.Path & reportName, 1)
'Title是报表的一个公式字段
oRpt.FormulaFields.GetItemByName("Title").Text = StrTitle oRpt.Database.SetDataSource rs
oRpt.ReadRecordsCRViewer91.ReportSource = oRptCRViewer91.ViewReport
Screen.MousePointer = vbDefault
End SubPrivate Sub Form_Resize()CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidthEnd SubPrivate Sub Form_Unload(Cancel As Integer)
Set rs = Nothing
Set conn = Nothing
Unload Form2
End Sub
对VB里调用水晶报表9.2