I have designed a datareport with VB6. With a query I deside which info I will display on the report.
There is a field named Primary_address, this field is an integer field.
His value can be 0,1,2,3.... etc. When the value is 0, I will display
a text in the report. How can I do that? I used the code below.
VB Code:
Dim rsDutten As ADODB.Recordset Set rsDutten = New ADODB.Recordset rsDutten.CursorType = adOpenKeyset rsDutten.LockType = adLockOptimistic rsDutten.ActiveConnection = cnParm rsDutten.Source = "SELECT Type, Benaming, Fabrikant, Datum, Revisie_proc, Aktief, Driver, Primary_address, Secondary_address FROM dutten WHERE Station = '" & Station & "' ORDER BY Type;" rsDutten.Open Set DataReport2.DataSource = rsDutten DataReport2.Orientation = rptOrientLandscape DataReport2.Show




Reply With Quote