社区
数据库(包含打印,安装,报表)
帖子详情
关于DATAREPORT1.LABEL1.CAPTION
gzlpyb
2004-04-29 11:20:55
如何把FORM1中的TEXT1.TEXT的内容给DATAREPORT1.LABEL1.CAPTION(连接数据库的是ADO代码,不用控件),以便打印出来。如果用窗体打印该如何写代码?
...全文
89
2
打赏
收藏
关于DATAREPORT1.LABEL1.CAPTION
如何把FORM1中的TEXT1.TEXT的内容给DATAREPORT1.LABEL1.CAPTION(连接数据库的是ADO代码,不用控件),以便打印出来。如果用窗体打印该如何写代码?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
gzlpyb
2004-04-30
打赏
举报
回复
有提示:未找到DATAFIELD!
蔡健常熟
2004-04-29
打赏
举报
回复
Private Sub Command1_Click()
Set Report_RC.DataSource = frmData.Adodc1 '设置report数据源
DR_KP.Orientation = 2 '文档打印以纸的宽边作顶部。(打印时才有效果)
Report_RC.Sections("Sections1").Controls("LABEL1").Caption = FORM1.TEXT1.TEXT
'===============================================================================
Report_RC.Sections(2).Controls(1).Caption = "名称"
Report_RC.Sections(2).Controls(2).Caption = "规格型号"
Report_RC.Sections(2).Controls(3).Caption = "单 价"
Report_RC.Sections(2).Controls(4).Caption = "库存数量"
Report_RC.Sections(2).Controls(5).Caption = "单 位"
Report_RC.Sections(2).Controls(6).Caption = "购入日期"
Report_RC.Sections(2).Controls(7).Caption = "购入单位"
Report_RC.Sections(3).Controls(1).DataField = "名称" '绑定数据字段
Report_RC.Sections(3).Controls(2).DataField = "规格型号"
Report_RC.Sections(3).Controls(3).DataField = "单价"
Report_RC.Sections(3).Controls(4).DataField = "库存数量"
Report_RC.Sections(3).Controls(5).DataField = "单位"
Report_RC.Sections(3).Controls(6).DataField = "购入日期"
Report_RC.Sections(3).Controls(16).DataField = "购入单位"
Report_RC.Show '显示预览
End Sub
Private Sub Command2_Click()
Set DR_KP.DataSource = frmData.Adodc1 '设置report数据源
DR_KP.Orientation = 2 '文档打印以纸的宽边作顶部。(打印时才有效果)
DR_KP.Sections("Se1").Controls("Text1").DataField = "名称" '绑定数据字段
DR_KP.Sections("Se1").Controls("Text2").DataField = "规格型号"
DR_KP.Sections("Se1").Controls("Text3").DataField = "单价"
DR_KP.Sections("Se1").Controls("Text4").DataField = "库存数量"
DR_KP.Sections("Se1").Controls("Text5").DataField = "单位"
DR_KP.Sections("Se1").Controls("Text6").DataField = "购入日期"
DR_KP.Sections("Se1").Controls("Text7").DataField = "购入单位"
DR_KP.Show '显示预览
DR_KP.WindowState = 2
End Sub
Visual+Basic下的四种常用报表的打印方法
1. **
Data
Report
**
Data
Report
是VB内置的报表工具,适合快速开发简单的报表。它的优势在于操作简单,开发效率高,但其缺点是功能有限,无法创建复杂的报表布局或精细的分页控制。
Data
Report
的使用步骤包括: - ...
VB数据库项目设计实验报告.doc
- 界面设计与控件:VB提供多种控件,如
Label
(标签)、Textbox(文本框)、CommandButton(命令按钮)等,用于构建用户界面。 2. 数据库管理: - Microsoft Office Access 2003:这是一个关系型数据库管理系统,...
Visual Basic 6编程技术大全 中译本扫描版带书签 1/2
19.5.1 DHTML数据绑定758 19.5.2使用RDS对象763 19.5.3定制商用组件765 19.6 DHTMLEdit控件769 19.6.1安装769 19.6.2属性和方法769 第20章Internet信息服务器应用程序771 20.1 Internet Information Server 4介绍771...
Visual Basic 6编程技术大全 中译本扫描版带书签 2/2
19.5.1 DHTML数据绑定758 19.5.2使用RDS对象763 19.5.3定制商用组件765 19.6 DHTMLEdit控件769 19.6.1安装769 19.6.2属性和方法769 第20章Internet信息服务器应用程序771 20.1 Internet Information Server 4介绍771...
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
数据库(包含打印,安装,报表)
1,217
社区成员
55,952
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章