wenight
Jul 23rd, 2007, 06:52 AM
Can Data Report read data from diffrent table...???
because when at final set the Report.DataSource can only set to one record set... if I wan read from two table I ahve two record set......
Data Report can read data into label?? like Report.Label1.Caption= xxx ...??
Dim sqlcom As String
Dim rscom As New ADODB.Recordset
sqlcom = "SELECT * FROM Company"
rscom.Open sqlcom, Conn
With Report.Sections("Section1").Controls
.Item("Text7").DataField = rscom("CompanyName").Name
.Item("Text8").DataField = rscom("Address").Name
End With
Dim rsPrint As New ADODB.Recordset
Dim strPrint As String
strPrint = "SELECT * FROM QuoDetail"
rsPrint.Open strPrint, Conn
With Report.Sections("Section1").Controls
.Item("Text1").DataField = rsPrint("ItemNo").Name
.Item("Text2").DataField = rsPrint("ItemDescription").Name
.Item("Text3").DataField = rsPrint("Quantity").Name
End With
Set Report.DataSource = rsPrint
Load Report
because when at final set the Report.DataSource can only set to one record set... if I wan read from two table I ahve two record set......
Data Report can read data into label?? like Report.Label1.Caption= xxx ...??
Dim sqlcom As String
Dim rscom As New ADODB.Recordset
sqlcom = "SELECT * FROM Company"
rscom.Open sqlcom, Conn
With Report.Sections("Section1").Controls
.Item("Text7").DataField = rscom("CompanyName").Name
.Item("Text8").DataField = rscom("Address").Name
End With
Dim rsPrint As New ADODB.Recordset
Dim strPrint As String
strPrint = "SELECT * FROM QuoDetail"
rsPrint.Open strPrint, Conn
With Report.Sections("Section1").Controls
.Item("Text1").DataField = rsPrint("ItemNo").Name
.Item("Text2").DataField = rsPrint("ItemDescription").Name
.Item("Text3").DataField = rsPrint("Quantity").Name
End With
Set Report.DataSource = rsPrint
Load Report