程序中若只有一个DataReport的名字的字符串,如何找到该DataReport并打印该报表?

wufu2000 2000-09-03 02:22:00
举例:
程序中有一个字符串为"TestReport" ,并且该程序中已有一个实际存在的数据报表
为TestReport,若不用TestReport.printreport方法,如何只利用该字符串定位到该报表并打印?
...全文
79 1 打赏 收藏 转发到动态 举报
写回复
用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中使用参数，使用DataReport1.Dsr、DataEnvironment1.Dsr
VB6.0在DED中使用参数,使用了DataReport1.Dsr、DataEnvironment1.Dsr两个文件，打开编译生成的程序后，请输入MS JET OLE DB初始化信息，包括数据源、用户名、密码、应商字符串、选择打开方式等。点确认后移动记录指针。 运行环境：Windows/VB6
VB中给DataReport指定打印机
　　DataReport是VB的报表工具，其简单方便快捷，解决常用的报表问题还是不错的。不过在打印功能上有一个非常大的弱点，就是在代码中不能通过相关属性或方法来指定打印机，只能用系统默认打印机来打印报表。这个问题也是论坛上常议的话题，在网上搜索一下，你可以找到解决方法（我没测试过），不过代码量不小，而且大量的API和Printer对象，令初学者望而却步。一直在找一个较为简单的解决方案，于是想到了注
DataReport动态报表
Private Sub cmd_report_Click() If lst_selected.ListCount     Call fieldwidth(lst_selected) '设置字段宽度     Call setDatareport(lst_selected, Dtreport, Trim$(txt_caption))     Dtreport.Show Else    
多媒体

809

社区成员

8,275

社区内容

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章