一个crystalreport的问题? 用 Crsystal report 软件打开这个 .rpt文件在 report option 中有个 save data with report选项,去掉就可以了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在 Database 菜单中有个 Verify on Every Print 选项,选中它 Dim Cn1 as ADODBConnectionPrivate Sub cmdPrint_Click() Report.Connect = cn1 '设置连接 Report.ReportFileName = "report1.rpt" ' 设置文件 Report.Formulas(0) = "ProcMonth='十月份'" ' 设置参数 Report.Formulas(1) = "Stock='主仓库'" ' 设置参数 Report.SelectionFormula = "{table1.sid}='dddd'" ' 设置列印条件 Err = Report.PrintReport ' 列印 if Err<>0 Then MsgBox "列印失败" & Report.LastErrorString , 48, Me.Caption End Ifend sub 求标准的三层分布式应用例子 读取Excel文件数据速度太慢,请问是否有加速的方法? 满分求助!感激涕零!如何向封装在dll中的对象发送消息? 程序打包(ADO) 关于颜色 如何用inet来向网站提交POST数据?急!急!急! 可不可以按职工姓名中每个字的声母来查询职工姓名,怎么实现? 数组格式化后并存为文本文件,请暴风雨老大看一下,谢谢 ActiveX控件中如何关闭包含它的Form窗体? 如何将EXE ,dll文件中的图标提取出来形成 ICO 文件 (用VB)? ##我又遇到新问题了,帮帮我给30分!###### 我如何知道这个窗体是否在打开状态?
Private Sub cmdPrint_Click()
Report.Connect = cn1 '设置连接
Report.ReportFileName = "report1.rpt" ' 设置文件
Report.Formulas(0) = "ProcMonth='十月份'" ' 设置参数
Report.Formulas(1) = "Stock='主仓库'" ' 设置参数
Report.SelectionFormula = "{table1.sid}='dddd'" ' 设置列印条件
Err = Report.PrintReport ' 列印
if Err<>0 Then
MsgBox "列印失败" & Report.LastErrorString , 48, Me.Caption
End If
end sub