LANCAR PRODUTOS NO MSFLEXGRID

MACKEY 14/06/2010 13:24:00
#344761
boa tarde jovens, estou quase terminando meu projeto e só me falta arrumar o msflexgrid...o que acontece é o seguinte, digito a quantidade e o codigo do produto, ele entra no msflex normal, mas quando tento vende um proximo produto ele substitui a linha que estava preenchida, alguem sabe como fazer ele criar outra linha????

abaixo a tela e o codigo:

esse é o codigo pra quando dou enter na text box codigo



Private Sub txtcod_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set Rec = New ADODB.Recordset
comandsql = [Ô]select * from tblprodutos where idproduto = [Ô] & txtcod.Text & [Ô][Ô]
Rec.open comandsql, cnnsoftpark, adOpenStatic

If Rec.EOF Then
LblMsgSis.Caption = ([Ô]produto bloqueado ou não cadastrado.[Ô])
txtqtd.Text = [Ô][Ô]
txtcod.Text = [Ô][Ô]
txtqtd.SetFocus
Else
MSFlexGrid1.TextMatrix(MSFlexGrid1.rows - 1, 1) = txtqtd.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.rows - 1, 2) = Rec([Ô]idproduto[Ô])
MSFlexGrid1.TextMatrix(MSFlexGrid1.rows - 1, 3) = Rec([Ô]descricao[Ô])
MSFlexGrid1.TextMatrix(MSFlexGrid1.rows - 1, 4) = txtqtd.Text * Rec([Ô]valor[Ô])
MSFlexGrid1.TextMatrix(MSFlexGrid1.rows - 1, 5) = Rec([Ô]imposto[Ô])
MSFlexGrid1.TextMatrix(MSFlexGrid1.rows - 1, 6) = Rec([Ô]categoriaimposto[Ô])
txtqtd.SetFocus
LblTotalVal.Caption = txtqtd.Text * Rec([Ô]valor[Ô])
End If
If txtqtd.Text = 0 And txtcod.Text = 0 Then
frmRecConta.Show
End If


End If
End Sub


e esse é o codigo quando le o form:

Private Sub Form_Load()
Set Rec = New ADODB.Recordset
MSFlexGrid1.cols = 7

MSFlexGrid1.TextMatrix(0, 1) = [Ô]Quantidade[Ô]
MSFlexGrid1.TextMatrix(0, 2) = [Ô]Código[Ô]
MSFlexGrid1.TextMatrix(0, 3) = [Ô]Descrição[Ô]
MSFlexGrid1.TextMatrix(0, 4) = [Ô]Valor[Ô]
MSFlexGrid1.TextMatrix(0, 5) = [Ô]Imposto[Ô]
MSFlexGrid1.TextMatrix(0, 6) = [Ô]Cat. Imposto[Ô]

MSFlexGrid1.ColWidth(0) = 200
MSFlexGrid1.ColWidth(1) = 1300
MSFlexGrid1.ColWidth(2) = 900
MSFlexGrid1.ColWidth(3) = 3500
MSFlexGrid1.ColWidth(4) = 900
MSFlexGrid1.ColWidth(5) = 900
MSFlexGrid1.ColWidth(6) = 1580

txtqtd.Text = [Ô][Ô]
txtcod.Text = [Ô][Ô]

End Sub
ACG1574 14/06/2010 14:48:50
#344766 Resposta escolhida
If Rec.EOF Then
LblMsgSis.Caption = ([Ô]produto bloqueado ou não cadastrado.[Ô])
txtqtd.Text = [Ô][Ô]
txtcod.Text = [Ô][Ô]
txtqtd.SetFocus
Else
MSFlexGrid1.additem txtqtd.Text & chr(9) & Rec([Ô]idproduto[Ô]) & chr(9) & Rec([Ô]descricao[Ô]) & chr(9) & txtqtd.Text * Rec([Ô]valor[Ô]) & chr(9) & Rec([Ô]imposto[Ô]) & chr(9) & Rec([Ô]categoriaimposto[Ô]), msflexgrid1.rows -1
txtqtd.SetFocus
LblTotalVal.Caption = txtqtd.Text * Rec([Ô]valor[Ô])
End If
MARCELO.TREZE 14/06/2010 15:30:59
#344770
Ou

With MSFlexgrid1
  If Rec.EOF Then
            LblMsgSis.Caption = ([Ô]produto bloqueado ou não cadastrado.[Ô])
            txtqtd.Text = [Ô][Ô]
            txtcod.Text = [Ô][Ô]
            txtqtd.SetFocus
        Else
            .Rows = .Rows + 1
            .TextMatrix(.rows - 1, 1) = txtqtd.Text
            .TextMatrix(.rows - 1, 2) = Rec([Ô]idproduto[Ô])
            .TextMatrix(.rows - 1, 3) = Rec([Ô]descricao[Ô])
            .TextMatrix(.rows - 1, 4) = txtqtd.Text * Rec([Ô]valor[Ô])
            .TextMatrix(.rows - 1, 5) = Rec([Ô]imposto[Ô])
            .TextMatrix(.rows - 1, 6) = Rec([Ô]categoriaimposto[Ô])
        txtqtd.SetFocus
        LblTotalVal.Caption = txtqtd.Text * Rec([Ô]valor[Ô])
        End If
        If txtqtd.Text = 0 And txtcod.Text = 0 Then
            frmRecConta.Show
        End If
End With
Tópico encerrado , respostas não são mais permitidas
Voltar