Loop 4 vezes


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Loop 4 vezes

Zork

SÃO PAULO
SP - BRASIL

Postada em 11/01/2007 13:38 hs

Exemplo:

Seleciono um Produto, ai na LIST me aparece apenas os Sub-Produtos ( que pode variar ), esta informação que para mim no Banco de Dados é código, ponho na GRID.

A GRID é preenchida conforme a quantidade de FORNECEDORES que eu tenho podendo variar tb.

Ai com as informaoes que tenho numa TEXT pego os valores da GRID Grid.TextMatrix(i,1) e o codigo do meu fornecedor referente á LIST.

tenderao ?

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 11/01/2007 14:00 hs

Vc quer gravar algo assim? Exemplo:

conteúdo do grid: cod

conteúdo do combo: texto

cod texto

1 texto1a

1 texto1b

2 texto2a

2 texto2b

Os dados q vai ser gravados vc quer arranjados desse jeito?

O grid conteria o valor 1 e seria carregado na combo os valores: texto1a e texto1b

Se fosse carregado o valor 2 no grid na combo apareceria: texto2a e texto2b

Reiterando a pergunta: Vc quer q seja gravado na tabela do jeito q está descrito acima?

Zork

SÃO PAULO
SP - BRASIL

Postada em 11/01/2007 14:41 hs

Nao!

é o seguinte!

Tenho um LIST que possui PRODUTOS, quando clico nele em um outro LIST me aparece os fornecedores referentes aquele produto. Estes fornecedores eu seleciono os que eu quero que apareca na minha GRID ( Apenas o Nome ). Depois em alguns TEXT eu ponho valores e do OK para esses valores aparecerem respectivos na GRID junto ao nome do meu fornecedor.

Ao gravar no Banco gravo as informacoes das TEXT e o CODIGO do Fornecedor no Banco da LIST usando o LIST.ITEMDATA(LIST.LISTINDEX).

Mas como estou fazendo 2 loops para verificar quantos fornecedores eu tenho selecionado e quantas linhas eu tenho na grid, ele roda dobrado o codigo me duplicando no banco os valores.

san
não registrado

Postada em 11/01/2007 16:13 hs

Se entendi direito, no primeiro listbox vc só pode selecionar um registro e no segundo (fornecedores) vc pode selecionar diversos registros. Então, vc não deve usar dois For, mas apenas um que percorra o listbox dos fornecedores e que aplique a instrução sql para todo fornecedor selecionado. Assim, se vc tiver dois fornecedores selecionados, vc vai usar o insert duas vezes, se tiver 10, vai usar 10 vezes e assim por diante.

Zork

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 11/01/2007 16:22 hs

San até ai blz, o problema é que uso um Laço para poder percorrer a minha GRID, pegar as informacoes e jogar no banco.

Grid.TextMatrix(i,1); Grid.TextMatrix(i,2) e assim vai. Por isso uso 2 Laços um deles é para percorrer minha GRID pegar os dados e jogar em suas respectivos campos na tabela

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 11/01/2007 20:55 hs

Acho q entendi... pelo q vi vc resolve seu problema se o código do fornecedor estiver no grid.

Digamos q em vez do código do fornecedor ser vet(ii) seja V_CODFOR então:

For i = 1 To Grid.Rows - 1

              IncluirCotacao = "INSERT INTO COTACAO(NCOD,VALUNICOMP,IPI,OBS,PRAZOENT,FORMAPG,PRAZCOT,CODPROD,CODFOR,CODSET,CODGRUPO,SOLICITANTE) " _
                             & "VALUES(" & NCOD & ",'" & Grid.TextMatrix(i, 1) & "','" & Grid.TextMatrix(i, 2) & "','" & txtOBS & "','" & Grid.TextMatrix(i, 3) & "', " _
                             & "'" & Grid.TextMatrix(i, 4) & "','" & Grid.TextMatrix(i, 5) & "'," & lstProduto.ItemData(lstProduto.ListIndex) & ", " _
                             & "" & V_CODFOR & "," & cboSetor.ItemData(cboSetor.ListIndex) & "," & cboGrupo.ItemData(cboGrupo.ListIndex) & ",'" & Trim(lblSOLICITANTE.Caption) & "')"
              Banco.Execute IncluirCotacao

Next

Pq vc só está fazendo 2 laços para percorrer o list e pegar o código do fornecedor selecionado. Coloca o código na grid. Se o cliente não quiser q aparece o código do fornecedor então esconda.

qq dúvida postae

at+

Página(s): 2/3 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR