USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Soma, print
Rondo
não registrado
Postada em 28/06/2008 19:57 hs   
1 Set Tb = Banco.OpenRecordset(sql, dbOpenDynaset)
While Not Tb.EOF
Printer.Print Tab(3); Tb!Código;
Printer.Print Tab(10); Tb!Cliente;
Printer.Print Tab(30); Tb!paciente;
Printer.Print Tab(50); Tb!guia;
Printer.Print Tab(60); Tb!produto1;
Printer.Print Tab(80); Tb!produto2;
Printer.Print Tab(100); Tb!Total;
Printer.Print Tab(115); Tb!Andamento;
Printer.Print Tab(135); Tb!Data_Entr;
Printer.Print Tab(150); Tb!data_Saida;

Tb.MoveNext
Wend
Printer.EndDoc

o negocio é que eu quero contar( não somar) produto1 + produto 2...

por ex:
Produto1> "' = 1
produto2>""=1

"total de produtos igual a 2"

Acontece que as vezes tem produto2 =""no fim tentei,tentei e não consegui fazer esta soma...

alguem? obrigado.
     
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
Postada em 28/06/2008 21:24 hs            
Seria contar quantos produto1 e produto2  são diferentes de "" ?
 
Set Tb = Banco.OpenRecordset(sql, dbOpenDynaset)
Dim conta as long
 
Conta = 0
While Not Tb.EOF
Printer.Print Tab(3); Tb!Código;
Printer.Print Tab(10); Tb!Cliente;
Printer.Print Tab(30); Tb!paciente;
Printer.Print Tab(50); Tb!guia;
Printer.Print Tab(60); Tb!produto1;
Printer.Print Tab(80); Tb!produto2;
Printer.Print Tab(100); Tb!Total;
Printer.Print Tab(115); Tb!Andamento;
Printer.Print Tab(135); Tb!Data_Entr;
Printer.Print Tab(150); Tb!data_Saida;
if Tb!Produto1 <> "" then
   conta = conta + 1
end if
if Tb!Produto2 <> "" then
   conta = conta + 1
end if
Tb.MoveNext
Wend
Printer.EndDoc

     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página