关于DATAREPORT1.LABEL1.CAPTION

gzlpyb 2004-04-29 11:20:55
如何把FORM1中的TEXT1.TEXT的内容给DATAREPORT1.LABEL1.CAPTION(连接数据库的是ADO代码,不用控件),以便打印出来。如果用窗体打印该如何写代码?
...全文
23 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1190

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-04-29 11:20
社区公告
暂无公告