|
|
Postada em 05/04/2006 10:41 hs
Pessoal, estou tentando fazer um calculo com o Do While de um campo do meu Dat, so q ele esta calculando so 1 registro, oq q eu to errando no codigo abaixo? -------------------- Dim VCont As Integer
datnotafiscal.Recordset.MoveMin
Do While Not datnotafiscal.Recordset.EOF
VCont = datnotafiscal.Recordset!quantidade
VCont = VCont + datnotafiscal.Recordset!quantidade
datnotafiscal.Recordset.MoveNext
Loop
txttotalqtdenota = VCont -------------------------------------- Abraços neves |
|
|
|
|
|
|
|
Postada em 05/04/2006 10:50 hs
tira essa linha: VCont = datnotafiscal.Recordset!quantidade
************************************** Dim VCont As Integer
datnotafiscal.Recordset.MoveMin
Do While Not datnotafiscal.Recordset.EOF
VCont = VCont + datnotafiscal.Recordset!quantidade
datnotafiscal.Recordset.MoveNext
Loop
txttotalqtdenota = VCont ********************************************* t+ |
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 05/04/2006 11:13 hs
Acredito que seja o que o ghost_jlp disse, porem se você necessitar pegar o valor do datnotafiscal pegue antes do loop. Dim VCont As Integer
datnotafiscal.Recordset.MoveMin VCont = datnotafiscal.Recordset!quantidade
Do While Not datnotafiscal.Recordset.EOF
VCont = VCont + datnotafiscal.Recordset!quantidade
datnotafiscal.Recordset.MoveNext
Loop
txttotalqtdenota = VCont |
|
|
|
|
|
Postada em 05/04/2006 11:21 hs
bom poderia jogar já o valor... mas vai somar com ele mesmo depois? Ou seja "primeiro registro" + "primeiro registro"?
Dim VCont As Integer
datnotafiscal.Recordset.MoveF irst VCont = datnotafiscal.Recordset!quantidade '<= atribui aqui
Do While Not datnotafiscal.Recordset.EOF
VCont = VCont + datnotafiscal.Recordset!quantidade '<= no caso soma o registro anterior com ele mesmo |
|
|
|
|
|
Postada em 05/04/2006 12:42 hs
Deu certo Ghost.........do primeiro jeito que vc disse, só retirar aquela linha!!
Agora vcs acham que daquele modo pode dar algum pau?!!??!q talvez desse ultimo modo nao de?! Valeu mesmo Abraço Neves |
|
|
|
|
|
Postada em 05/04/2006 13:27 hs
Na minha opiniao, o erro pode dar na segundo exemplo do ghost, pois vc ta tentando atribuir um valor do recordset antes de iniciar o loop, logo, se o recordset nao tiver nenhum registro, vai haver um erro de leitura do recordset...
Eu prefiriria deixar assim:
**************************************
Dim VCont As Integer
datnotafiscal.Recordset.MoveMin
Do While Not datnotafiscal.Recordset.EOF
VCont = VCont + datnotafiscal.Recordset!quantidade
datnotafiscal.Recordset.MoveNext
Loop
txttotalqtdenota = VCont
********************************************
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
