LOOP COMPLICADO

USUARIO.EXCLUIDOS 11/10/2010 15:26:48
#354858
Boa tarde, pessoal do forum.

To quebrando a cabeça essa questão.

exemplo: TENHO UM LISTWIEW COM 7 COLUNAS, UM FORMULARIO COM 7 TEXTBOX E UM FUNÇÃO DE GERA BOLETO.

GOSTARIA QUE AO CLICAR NO BOTÃO DE COMANDO OS DADOS DO LISTWIEW SEJA COLOCADO NOS TEXTBOX E DEPOIS EXECUTA-SE A FUNÇÃO E DEPOIS QUE EXECUTA A FUNÇÃO FOSSE-SE GRAVADO NA TABELA OS DADOS DE OUTROS 7 TEXTBOX QUE FOI GERADO PELA FUNÇÃO, SENDO QUE ISSO SERIA EM UM LOOP, TIPO O LOOP FOSSE PEGANDO REGISTRO POR REGISTRO NO LISTWIEW E FOSSE FAZENDO O QUE CITEI ACIMA ATé O ULTIMO REGISTRO DO LISTWIEW.

CODIGO QUE TO TENTANDO USAR:

Private Sub GERABOLETO_Click()
Dim Boleto1 As New Recordset
Boleto1.Open [Ô]tblBoleto[Ô], con, adOpenDynamic, adLockPessimistic

Do While Boleto1.EOF [ô]-----------> PEGA DADOS DO LISTWIEW, MAIS NÃO TA CONSEGUINDO PEGAR
sacado.Text = LV.SubItems(2) & [Ô][Ô]
cnpjsacado.Text = LV.SubItems(3) & [Ô][Ô]
endereco.Text = LV.SubItems(4) & [Ô][Ô]
bairro.Text = LV.SubItems(5) & [Ô][Ô]
cep.Text = LV.SubItems(8) & [Ô][Ô]
cidade.Text = LV.SubItems(6) & [Ô][Ô]
uf.Text = LV.SubItems(7) & [Ô][Ô]

Call ImprimirBoletoUnico [ô]-----------------> FAZ A FUNÇÃO DE GERAR OS BOLETOS PELAS TEXTBOX ACIMA

Boleto1.AddNew [ô]----------------> ADICIONA OS DADOS DO BOLETO GERADO NO BANCO DE DADOS
Boleto1!CLIENTE = sacado.Text & [Ô][Ô]
Boleto1!LINHADIGITAVEL = cnpjsacado.Text & [Ô][Ô]
Boleto1!NUDOCUMENTO = bairro.Text & [Ô][Ô]
Boleto1!vencimento = cep.Text & [Ô][Ô]
Boleto1.Update
MsgBox [Ô]certo[Ô]
Boleto1.MoveNext
Loop
End Sub


SO PESSOAL QUE NÃO TA PEGANDO OS DADOS DA LISTWIEW
MARCELO.TREZE 11/10/2010 15:48:15
#354863 Resposta escolhida
tenata assim


Private Sub GERABOLETO_Click()
Dim Boleto1 As New Recordset
Boleto1.Open [Ô]Select * From tblBoleto[Ô], con, adOpenDynamic, adLockPessimistic

Do While Not Boleto1.EOF [txt-color=#007100][ô]-----------> mudei para Do While Not[/txt-color]
sacado.Text = LV.SubItems(2) & [Ô][Ô]
cnpjsacado.Text = LV.SubItems(3) & [Ô][Ô]
endereco.Text = LV.SubItems(4) & [Ô][Ô]
bairro.Text = LV.SubItems(5) & [Ô][Ô]
cep.Text = LV.SubItems(8) & [Ô][Ô]
cidade.Text = LV.SubItems(6) & [Ô][Ô]
uf.Text = LV.SubItems(7) & [Ô][Ô]

Call ImprimirBoletoUnico [ô]-----------------> FAZ A FUNÇÃO DE GERAR OS BOLETOS PELAS TEXTBOX ACIMA

Boleto1.AddNew [ô]----------------> ADICIONA OS DADOS DO BOLETO GERADO NO BANCO DE DADOS
Boleto1!CLIENTE = sacado.Text & [Ô][Ô]
Boleto1!LINHADIGITAVEL = cnpjsacado.Text & [Ô][Ô]
Boleto1!NUDOCUMENTO = bairro.Text & [Ô][Ô]
Boleto1!vencimento = cep.Text & [Ô][Ô]

Boleto1.Update
MsgBox [Ô]certo[Ô]
Boleto1.MoveNext
Loop
End Sub


teste
USUARIO.EXCLUIDOS 11/10/2010 15:54:02
#354864
Boa tarde.

Dim Boleto1 As New Recordset
Boleto1.Open [Ô]Select * From tblBoleto[Ô], con, adOpenDynamic, adLockPessimistic

Do While Not Boleto1.EOF [ô]-----------> mudei para Do While Not
sacado.Text = LV.SubItems(2) & [Ô][Ô]cnpjsacado.Text = LV.SubItems(3) & [Ô][Ô] [ô]<<<------------ [txt-color=#e80000]da erro, method or date member not found[/txt-color]endereco.Text = LV.SubItems(4) & [Ô][Ô]
bairro.Text = LV.SubItems(5) & [Ô][Ô]
cep.Text = LV.SubItems(8) & [Ô][Ô]
cidade.Text = LV.SubItems(6) & [Ô][Ô]
uf.Text = LV.SubItems(7) & [Ô][Ô]

Call ImprimirBoletoUnico [ô]-----------------> FAZ A FUNÇÃO DE GERAR OS BOLETOS PELAS TEXTBOX ACIMA

Boleto1.AddNew [ô]----------------> ADICIONA OS DADOS DO BOLETO GERADO NO BANCO DE DADOS
Boleto1!CLIENTE = sacado.Text & [Ô][Ô]
Boleto1!LINHADIGITAVEL = cnpjsacado.Text & [Ô][Ô]
Boleto1!NUDOCUMENTO = bairro.Text & [Ô][Ô]
Boleto1!vencimento = cep.Text & [Ô][Ô]

Boleto1.Update
MsgBox [Ô]certo[Ô]
Boleto1.MoveNext
Loop


acho que não ta pegando os dados da listwiew
MARCELO.TREZE 11/10/2010 16:10:32
#354866
bom acho que estamos trabalhando invertido vamos tentar isto


Private Sub GERABOLETO_Click()
Dim Boleto1 As New Recordset
Boleto1.Open [Ô]Select * From tblBoleto[Ô], con, adOpenDynamic, adLockPessimistic

With LV
For j = 1 To .ListItems.Count
sacado.Text = .ListItems(j).ListSubItems(2)
cnpjsacado.Text = .ListItems(j).ListSubItems(3)
endereco.Text = .ListItems(j).ListSubItems(4)
bairro.Text = .ListItems(j).ListSubItems(5)
cep.Text = .ListItems(j).ListSubItems(6)
cidade.Text = .ListItems(j).ListSubItems(7)
uf.Text = .ListItems(j).ListSubItems(8)

Call ImprimirBoletoUnico [ô]-----------------> FAZ A FUNÇÃO DE GERAR OS BOLETOS PELAS TEXTBOX ACIMA

Boleto1.AddNew [ô]----------------> ADICIONA OS DADOS DO BOLETO GERADO NO BANCO DE DADOS
Boleto1!CLIENTE = sacado.Text & [Ô][Ô]
Boleto1!LINHADIGITAVEL = cnpjsacado.Text & [Ô][Ô]
Boleto1!NUDOCUMENTO = bairro.Text & [Ô][Ô]
Boleto1!vencimento = cep.Text & [Ô][Ô]

Boleto1.Update
MsgBox [Ô]certo[Ô]
Boleto1.MoveNext
Next j
End With
End Sub


tenta novamente
USUARIO.EXCLUIDOS 11/10/2010 19:29:32
#354888
Boa noite, deu certinho amigo MARCELO-TREZE, valeu pela força.
LEOBOCARDI 11/10/2010 19:30:32
#354889
Encerra o tópico =)
Tópico encerrado , respostas não são mais permitidas
Voltar