NUMERAR RELATORIO
Olá,
Como numerar os dados que são exibidos na section1(detail) do data report do vb6. Vi na net que no crystal tem uma opção que exibe uma coluna de contagem a esquerda, seria algo semelhante. Como já tinha vários relatórios pré-prontos, não quis mudar para crystal reports.é isso ai....
Alan
Como numerar os dados que são exibidos na section1(detail) do data report do vb6. Vi na net que no crystal tem uma opção que exibe uma coluna de contagem a esquerda, seria algo semelhante. Como já tinha vários relatórios pré-prontos, não quis mudar para crystal reports.é isso ai....
Alan
Olá,
No momento consegui essa sub abaixo, mas só que todos os registros do relatório ficam com o número 1 na frente, e não em sequência: 1,2,3,...Alguém pode dar uma olhada nessa sub....?
Sub ContaRel()
Dim Total As Integer
Dim j As Integer
Total = 0
With rptLista
With .Sections([Ô]Section1[Ô]).Controls
For j = 1 To .Count
If TypeOf .Item(j) Is RptLabel Then
.Item(j).Caption = Total + 1
End If
Next j
End With
End With
End Sub
No momento consegui essa sub abaixo, mas só que todos os registros do relatório ficam com o número 1 na frente, e não em sequência: 1,2,3,...Alguém pode dar uma olhada nessa sub....?
Sub ContaRel()
Dim Total As Integer
Dim j As Integer
Total = 0
With rptLista
With .Sections([Ô]Section1[Ô]).Controls
For j = 1 To .Count
If TypeOf .Item(j) Is RptLabel Then
.Item(j).Caption = Total + 1
End If
Next j
End With
End With
End Sub
Tópico encerrado , respostas não são mais permitidas