社区
多媒体
帖子详情
程序中若只有一个DataReport的名字的字符串,如何找到该DataReport并打印该报表?
wufu2000
2000-09-03 02:22:00
举例:
程序中有一个字符串为"TestReport" ,并且该程序中已有一个实际存在的数据报表
为TestReport,若不用TestReport.printreport方法,如何只利用该字符串定位到该报表并打印?
...全文
86
1
打赏
收藏
程序中若只有一个DataReport的名字的字符串,如何找到该DataReport并打印该报表?
举例: 程序中有一个字符串为"TestReport" ,并且该程序中已有一个实际存在的数据报表 为TestReport,若不用TestReport.printreport方法,如何只利用该字符串定位到该报表并打印?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Un1
2000-09-06
打赏
举报
回复
程序初始化时Load所有报表把其对象Add到Collection,后期用:
load testreport
colreport.add testreport,"TestReport"
load testreport1
colreport.add testreport1,"TestReport1"
dim s as string
s="TestReport"
colReports(s).Show
VB在DED中使用参数,使用
Data
Report
1.Dsr、
Data
Environment1.Dsr
VB6.0在DED中使用参数,使用了
Data
Report
1.Dsr、
Data
Environment1.Dsr两个文件,打开编译生成的
程序
后,请输入MS JET OLE DB初始化信息,包括数据源、用户名、密码、应商
字符串
、选择打开方式等。点确认后移动记录指针。 运行环境:Windows/VB6
VB中给
Data
Report
指定打印机
Data
Report
是VB的
报表
工具,其简单方便快捷,解决常用的
报表
问题还是不错的。不过在打印功能上有
一个
非常大的弱点,就是在代码中不能通过相关属性或方法来指定打印机,只能用系统默认打印机来打印
报表
。这个问题也是论坛上常议的话题,在网上搜索一下,你可以
找到
解决方法(我没测试过),不过代码量不小,而且大量的API和Printer对象,令初学者望而却步。一直在找
一个
较为简单的解决方案,于是想到了注
Data
Report
动态
报表
Private Sub cmd_
report
_Click() If lst_selected.ListCount Call fieldwidth(lst_selected) '设置字段宽度 Call set
Data
report
(lst_selected, Dt
report
, Trim$(txt_caption)) Dt
report
.Show Else
多媒体
809
社区成员
8,275
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章