USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  SALVAR O MSFLEXGRID
Nilton Vianna
AMPARO
SP - BRASIL
Postada em 12/09/2009 12:07 hs         

Ola amigos,

 

Minha duvida é seguinte, tenho meu projeto de emissão de pedidos..

 

Nome.

Endereço.

 

 

Quant   Produto             Unitário          Soma

 

Pois  bem tenho um  MSFLEXGRID onde lanço meus produtos

Pois gostaria do exemplo pra gravar as linhas do grid. Pois são duas tabelas diferentes

Um nome grava normal.

 

As linhas que lancei no grid não estão conseguindo gravar.

 

Tipo

addNew

 

+ ou - assim

RS.files (“Produto”) textmatriz, i, 0)

 

Só gravo na primeira tabela

A aonde vai à linha do grid em outra tabela não esta gravando.

 

Grato

 Nilton

 

     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 12/09/2009 12:17 hs            
Seria assim
 
With MSFlexGrid1
For F = 1 To .Rows - 1
RS. AddNew
RS.Fields("Produto") = .TextMatrix(F, 0) 'Coluna 0
RS.Fields("Descricao") = .TextMatrix(F, 1) 'Coluna 1
' e assim por diante
RS.Update
Next F
End With
 
   
Nilton Vianna
AMPARO
SP - BRASIL
Postada em 12/09/2009 22:43 hs         
Valeu Treze
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.
 
 
 
 
 
     
Nilton Vianna
AMPARO
SP - BRASIL
Postada em 12/09/2009 23:17 hs         
deu certo achei
' Não guardar a ultima lina
For F = 1 To FG1.Rows - 2
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página