Olá amigos....

 

Como faço para contar dados em um campo de uma tabela num DBGrid?

Tipo assim, preciso contar quantos dados tem em uma coluna, somente valores não nulos.

 

Muito obrigado por qualquer ajuda

qtd=0

while not rs.eof

   if not isnull(rs!campo) then

      qtd=qtd+ 1

   endif

   rs.movenext

wend

blz, mas como faço para contar várias colunas???

Estou tentando isso num ListView1

 

Dim qtd As Long
Dim lstNum As ListItem
...

ListView1.ListItems.Clear
qtd = 0
Set lstNum = ListView1.ListItems.Add(, , "Titulo1")
Do While Not Rs.EOF
    If Rs!Campo1 > "" Then
        qtd = qtd + 1
        Text1.Text = qtd
    End If
Rs.MoveNext
Loop
lstNum.SubItems(1) = qtd

... acontece que tenho varios titulos e campos, só consigo com um campo

 

PODERIA TAMBEM SER A CONTAGEM DE TODOS OS CAMPOS EM UM DBGRID - acho que seria mais fácil... sei lá