DUVIDA EM ROTINA COM FLEXGRID

SOBERASSL 13/11/2010 12:22:10
#357385

conectar.Execute [Ô]insert into Itens_venda (Cod_barra,Cod_prod,Qtde,Preco_unit) values([ô][Ô] & txtcodbarra & [Ô][ô],[ô][Ô] & prod & [Ô][ô], [ô][Ô] & Quantidade & [Ô][ô], [ô][Ô] & preco_unitario & [Ô][ô])[Ô]


1º>>>>> Call carregar_flex

If txtcodbarra.Text = [Ô][Ô] Then
Exit Sub

------------------------------------------------------------
carregar_flex ()


If Itens_venda.BOF = False Or Itens_venda.EOF = False Then


Do Until Itens_venda.EOF


mfgLista.TextMatrix(mfgLista.Rows - 1, 0) = tab_prod!nome
mfgLista.TextMatrix(mfgLista.Rows - 1, 1) = tab_prod!descricao
mfgLista.TextMatrix(mfgLista.Rows - 1, 2) = tab_prod!P_venda
mfgLista.RowData(mfgLista.Row) = Itens_venda!codigo
2º >>>>>>>>> mfgLista.Row = mfgLista.Row + 1
Itens_venda.MoveNext


Loop

--------------------------------------------------------------------------------------------

conectar.Execute [Ô]insert into Itens_venda (Cod_barra,Cod_prod,Qtde,Preco_unit) values([ô][Ô] & txtcodbarra & [Ô][ô],[ô][Ô] & prod & [Ô][ô], [ô][Ô] & Quantidade & [Ô][ô], [ô][Ô] & preco_unitario & [Ô][ô])[Ô]


Call carregar_flex

3º >>>>>>>>>>If txtcodbarra.Text = [Ô][Ô] Then
Exit Sub



chega no 1º>>> ele vai para o [Ô]carregar_flex[Ô] , mas qnd chega no 2º>>> aonde era para eu termina ler a proxima linha e o loop ele vai direto para o 3º>>>...



clguem sabe por que?