Member Avatar for labq5

How to show field/row serial number on detail data report without use data environment?

simply view like this


|Number|WO Number|WO DATE|ERROR DESCRIPTION|LOCATION|EXECUTOR NAME|
___________________________________________________________________
| 1 |N0.000001|10-01-1|
| 2 |N0.000002|10-01-2|
| 3 |N0.000003|10-01-3|
| 4 |N0.000004|10-01-4|
| 5 |N0.000005|10-01-5|
___________________________________________________________________

  • 4 Contributors
  • 6 Replies
  • 1K Views
  • 2 Years Discussion Span
  • Latest Post Latest Post by nihar1989
Member Avatar for AndreRet

You do not have to use Data Report, you can use something like the Listview Control etc. The Listview can sort data in columns etc.

Member Avatar for labq5

i see
but I want to view the report, and it can be printed.
and I usually use Data Deport.

but yours is okay. I will be learn.

Member Avatar for AndreRet

If you use the VB6 Data Report, you have to use the Data Environment, because the report needs to be connected to your database, which is only available through the data environment.

You can use third party tools as well like Crystal Reports etc. The easiest in your situation would be the Listview, which you can still view AND print as in a normal data report. Just google Listview in VB6, there is plenty of tutorials on the Listview with code samples.

Good luck.

Member Avatar for labq5

Let Me try, so thanks v much :)

Member Avatar for edoasu

This will do the trick :)

dim rsReport as ADODB.Recordset
dim n as integer

'create temporary recordset
Set rsReport = New ADODB.Recordset
With rsReport
Set .ActiveConnection = Nothing
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
    
.Fields.Append "Serial", adBigInt 'show your serial
.Fields.Append "Column1", adVarChar, 50
.Fields.Append "Column2", adVarChar, 50

.Open
End With

'copy your recordset, assume rs is your active recordset
Do While Not rs.EOF
rsReport.AddNew
rsReport.Fields("Serial") = n
rsReport.Fields("Column1") = rs.Fields(0)
rsReport.Fields("Column2") = rs.Fields(1)

'generate your serial here
n=n+1
rs.MoveNext
loop

'finally, bound to your datareport
With DataReport1
.Hide
Set .DataSource = rsReport

'bound your report on detail section here
With .Sections("Section3")
  
end with

.Refresh
.Show
end with

cheers

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.