VB6 problema no Next


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: VB6 problema no Next

Felipe Porto
não registrado

ENUNCIADA !

Postada em 04/08/2011 14:44 hs

Bom... primeiro nao sei se postei na classificação certa entao desculpe caso eu tenho errado.

Eu estou tentando fazer um insert em uma grid
até ai tudo está certo (aparentemente)
porém para eu adicionar demais campos da grid caso sejá necessário eu utilizei o for/next
porém o next está fazendo looping infinito
e o count nao está funcionando

        For i = 1 To gridend.Rows

    strSQL = strSQL & " declare @end int"
    strSQL = strSQL & " select @end = IsNull(MAX(COD_CLIENTE_END), 0) + 1 from tblCLIENTE_END"
    strSQL = strSQL & " insert into tblCLIENTE_END (cod_cliente_end, no_rua, nu_numero, no_bairro, nu_cep, no_cidade, no_uf, cod_cliente)"
    strSQL = strSQL & " values (@end, '" & gridend.TextMatrix(i, 1) & "','" & gridend.TextMatrix(i, 2) & "','" & gridend.TextMatrix(i, 3) & "','" & gridend.TextMatrix(i, 4) & "','" & gridend.TextMatrix(i, 5) & "','" & gridend.TextMatrix(i, 6) & "', @cliente)"

            Next i

o script é esse

quando utilizo gridend.rows.count
ele da um erro
não sei oque faço para por um fim no next

Agradeceria a ajuda

Obrigado

dr.X

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 05/08/2011 16:51 hs

Coloque um limitador ao chegar no total de recordset ou total do gridend

dim tr as integer

tr = rsRS.recorcount

if tr = i then

exit for (saida função)

end if

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 08/08/2011 16:55 hs

se for mshflexgrid esta certo ele va recorrer todas as linhas do grid.

Presuntus

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 09/08/2011 11:41 hs

Olha nao entendi bem seu codigo. entao peço desculpas caso tenha entendido errado.
Tambem to meio enferrujado em vb 6, faz mais de ano que nao o uso.

1º. Vc esta inserindo uma linha na grid dentro do for ??
Se for isso, o codigo For i = 1 To gridend.Rows ele entra em um loop infinito pois vc esta variando de 1 ao numero de linhas no grid, ou seja ele sempre aumenta em 1 em cada passagem do for.

2º A grid comeca da linha zero entao For i = 1 To gridend.Rows - 1 (para nao ultrapassar a ultima linha)

3º gridend.rows.count -> acho que o comando eh gridend.rowcount

4º . Tenta debugar sua aplicacao (eu acho o debug do vb6 um dos melhores), coloca um ponto de interrupcao no for e roda sua aplicacao e vai dando f8 linha a linha e testando se o valor de i esta mudando ou se o valor do gridend.Rows esta mudando (para descobri o motivo do loop)

Atenciosamente

Paulo Rogerio
3º

Página(s): 1/1

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

VOLTAR