UPDATE ENTRE TABELAS

NILTON.VIANNA 25/02/2013 11:32:13
#419600

Bom dia amigos,
Alguém pode me ajudar, estou tentando fazer um INTO e UPDATE ao mesmo tempo entre duas tabelas.
usando o MSFlexGrid

Salva na Tabela01 Perfeito
Agora na Tabela02 UPDATE salvar só que INVERTE os Produtos

Normal é assim
Produto = ID 30 Custo = 10,00 Quantidade = 20
Produto = ID 31 Custo = 1,00 Quantidade = 10

Após o UPDATE fica assim

Produo = ID 30 Custo = 1,00 Quantidade = 10
Produto = ID 31 Custo = 10,00 Quantidade = 20

ou seja ele troca os Produto

Função
On Error Resume Next
For i = 1 To FG1.Rows - 1

[ô]Tabela01 - esta normal
CnSql.Execute [Ô]INSERT INTO Cad_PedidoID (PedidoID, Nome, Quant, Custo, ProdutoID) VALUES ([ô][Ô] & txtPedidoID.Text _
& [Ô][ô],[ô][Ô] & txtNome.Text & [Ô][ô],[ô][Ô] & FG1.TextMatrix(i, 0) & [Ô][ô],[ô][Ô] & FG1.TextMatrix(i, 1) & [Ô][ô],[ô][Ô] & FG1.TextMatrix(i, 2) & [Ô][ô])[Ô]

[ô]Tabela02 - aquie inverte
CnSql.Execute [Ô]UPDATE Cad_Produto SET DtaCompra = [ô][Ô] & txtEmissao.Text & [Ô][ô], Quant = [ô][Ô] & FG1.TextMatrix(i, 0) & [Ô][ô], Custo = [ô][Ô] & FG1.TextMatrix(i, 01) & [Ô][ô] WHERE ProdutoID = [Ô] & FG1.TextMatrix(FG1.Rows - i, 2)
Next i

Grato