SALVAR NO MSFLEXGRID

NILTON.VIANNA 12/09/2009 22:54:36
#322728

Estou com uma duvida..

With FG1
For F = 1 To .Rows - 1
RS.AddNew
RS.Fields([Ô]PedidoID[Ô]) = txtPedidoID.Text

RS.Fields([Ô]Quat[Ô]) = .TextMatrix(F, 1) [ô]Coluna 0
RS.Fields([Ô]Descricao[Ô]) = .TextMatrix(F, 2) [ô]Coluna 2
RS.Fields([Ô]Unitario[Ô]) = .TextMatrix(F, 3) [ô]Coluna 3
RS.Fields([Ô]Soma[Ô]) = .TextMatrix(F, 4) [ô]Coluna 4

RS.Update
Next F
End With
RS.Close

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

so que é seguinte
na tabela fica assim

PedidoID Produto Unitario
1 Teste 20,00
1 Teste2 30,00
1 <NULL> <-------------------------(nao era pra gravar)

Salva dudo bem
so qua acrecebta 1 em braco, Ápenas 1 em branco.

Alguen tem uma ideia pra mim
Grato