请直接提出你的问题。或者google水晶报表高手哈此帖暂时保留,请自行编辑问题,3天后,如果依旧是此内容,做为广告帖删除。
解决方案 »
- 不知道各位大侠有没有遇到类似的问题,就是后台机与前台设备通讯的时候,偶尔出现通讯失败,这是干扰问题呢,还是我程序的问题??
- 求一遍历指定文件夹中所有文件的函数
- 在OutLook Express中是如何嵌入按钮的,像Meuu那样嵌入的
- 一个读文本文件的程序,不知哪里有问题,总是循环,帮忙看一下
- 动态添加窗体,怎么进行标识??
- 请问如何将24位位图转换成16位位图?在线等
- 如何知道textbox或richtextbox中某一行字的个数?
- 急,又是数据库问题~~
- VB怎么打开光驱和关闭光驱
- 如何通过ADO连接DB2数据库
- 如何用程序实现:判断一台计算机是否正在上网?
- 用sql語句,如何在幾十萬的記錄裏面,尋找一個位置的所在。急,在綫等!!!!!
2、CSDN能贴图吗?怎么贴?
何时上网?向你请教!
公共窗体上定义,窗体名为: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
我的聘书格式:
XXXX培训班
_____老师:
您所开设的______________专业_____________课程,现在特聘任您担任
这门课程的主讲教师.
下划线的是要从数据表里查询出来填充进去的.上面这个表的格式是在水晶报表里做的,存成cr.rpt文件.
请问当调用出这个格式显示的时候,怎么样把查询出来的内容填充进去.
非常紧急,请求各位了.