ADODC 连接 DataReport 打印
VB6中用DataReport做报表,使用ADODC设置DataReport的数据源的实现代码:
Private Sub DataReport_Initialize()
Set Me.DataSource = frmFirstForm.Adodc1.Recordset
DataReportLoc1.Sections("Section1").Controls("Text1").DataMember = frmFirstForm.Adodc1.Recordset.DataMember
DataReportLoc1.Sections("Section1").Controls("Text2").DataMember = frmFirstForm.Adodc1.Recordset.DataMember
DataReportLoc1.Sections("Section1").Controls("Text3").DataMember = frmFirstForm.Adodc1.Recordset.DataMember
DataReportLoc1.Sections("Section1").Controls("Text4").DataMember = frmFirstForm.Adodc1.Recordset.DataMember
DataReportLoc1.Sections("Section1").Controls("Text5").DataMember = frmFirstForm.Adodc1.Recordset.DataMember
DataReportLoc1.Sections("Section1").Controls("Text1").DataField = frmFirstForm.Adodc1.Recordset.Fields("序号").Value
DataReportLoc1.Sections("Section1").Controls("Text2").DataField = frmFirstForm.Adodc1.Recordset.Fields("时间").Value
DataReportLoc1.Sections("Section1").Controls("Text3").DataField = frmFirstForm.Adodc1.Recordset.Fields("流向").Value
DataReportLoc1.Sections("Section1").Controls("Text4").DataField = frmFirstForm.Adodc1.Recordset.Fields("功能码").Value
DataReportLoc1.Sections("Section1").Controls("Text5").DataField = frmFirstForm.Adodc1.Recordset.Fields("继电器状态").Value
End Sub
但总是报错， 错误信息： DataField '1' not found
这是为什么？
请教如何使用 adodc 控件 实现编程打印 data report (不要使用 DataEnvironment)
[解决办法]
或frmFirstForm.Adodc1.Recordset.Fields("序号").name ,它也就是"序号"
