关于DATAREPORT1.LABEL1.CAPTION

[gzlpyb]

如何把FORM1中的TEXT1.TEXT的内容给DATAREPORT1.LABEL1.CAPTION（连接数据库的是ADO代码，不用控件），以便打印出来。如果用窗体打印该如何写代码？

[蔡健常熟]

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

• 打赏
• 举报

回复 赞

[gzlpyb]

有提示：未找到DATAFIELD！

• 打赏
• 举报

回复 赞