MSFLEX ADD ITEM A ITEM

MASTER2020 16/02/2010 13:06:59
#334498

Ola pessoal estou montando um sistema pra alrmazenar receitas, eu estou tendo dificuldades, vou explicar
eu tenho num form duas texts destas texts precisa ser adicionados no msflxgrid

ex
txtingredites,txtpeso

ao clicar no botao ele adiciona no msflex

MASTER2020 16/02/2010 13:19:49
#334499

eu fiz assim

mslista.TextMatrix(1, 1) = txtingrediente.Text
mslista.TextMatrix(1, 2) = txtpeso.Text

DANIKULL 16/02/2010 13:40:48
#334500

PATOLOCO, boa tarde.

Você deve fazer o seguinte:


mslista.TextMatrix(mslista.Rows -1, 1) = txtingrediente.Text
mslista.TextMatrix(mslista.Rows -1, 2) = txtpeso.Text
mslista.Rows = mslista.Rows + 1

Veja ai se funciona, ok???

Qualquer coisa posta ai de novo.

MASTER2020 16/02/2010 18:10:26
#334516

Ol danikull, muito obrigado pela ajuda, seu codigo funcionou, mas qdo vou adicionar o segundo ingrediente ele sobre poe o primeiro registro.
o codigo

mslista.TextMatrix(1, 1) = txtingrediente.Text
mslista.TextMatrix(1, 2) = txtpeso.Text
mslista.Rows = mslista.Rows + 1

txtingrediente.Text = [Ã”][Ã”]
txtpeso = [Ã”][Ã”]
txtingrediente.SetFocus

MARCELO.TREZE 16/02/2010 18:49:58
#334519 Resposta escolhida

só faça esta inversão no código do colega

mslista.Rows = mslista.Rows + 1
mslista.TextMatrix(1, 1) = txtingrediente.Text
mslista.TextMatrix(1, 2) = txtpeso.Text

MASTER2020 16/02/2010 20:46:36
#334526

Ola Marcelo boa noite, muito obrigado por postar, eu fiz a alteracao que vc mencionou, mas o problema persiste.

MARCELO.TREZE 16/02/2010 20:57:54
#334527

vamos começar do zero

faça assim

primeiro crie o flex com apenas uma linha, ou seja o cabeçalho, para isto crie uma sub

Sub Cabecalho()
With MSFlexgid1
.Rows = 1
.Cols = 2
.FixedRows = 1
.FixedCols = 0
.FormatString = [Ã”]Ingrediente                                   |Peso                     [Ã”]
End With
End Sub

Chame esta sub no Load do form

agora no Botão incluir Coloque

With MSFlexgrid1
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = txtIngrediente.Text
.TextMatrix(.Rows - 1, 1) = txtPeso.Text
End With

quando vc quiser zerar o grid basta chamar a sub Cabecalho

veja se agora resolve

MASTER2020 16/02/2010 21:05:03
#334528

Marcelo esta parte do codigo e assim msm

.FormatString = [Ã”]Ingrediente |Peso [Ã”]

MASTER2020 16/02/2010 21:07:00
#334529

Marcelo funcionou o codigo com uma linha

MASTER2020 16/02/2010 21:14:49
#334531

marcelo funcionou sim o codigo ficou assim do command

With mslista
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = txtingrediente.Text
.TextMatrix(.Rows - 1, 2) = txtpeso.Text
End With

mas aproveitando o topico, ao corregar o form o mshflex, apresenta sempre um linha em branco, tem como resolver isso

no load eu fiz assim

Private Sub Form_Load()

mslista.ColWidth(0) = 50
mslista.ColWidth(1) = 4000
mslista.ColWidth(2) = 1000

mslista.TextMatrix(0, 1) = [Ã”]Ingrediente[Ã”]
mslista.TextMatrix(0, 2) = [Ã”]Peso[Ã”]

End Sub

vc tema alguma sujestao

MARCELO.TREZE 16/02/2010 21:27:39
#334532

colega lembra da sub cabecalho tente usa-la

veja com as alterações conforme sua necessidade

Sub Cabecalho()
With mslista
.Rows = 1
.Cols = 2
.FixedRows = 1
.FixedCols = 0
.FormatString = [Ã”]Ingrediente |Peso[Ã”]
.ColWidth(0) = 4000
.ColWidth(1) = 1000
End With
End Sub

no Load basta chamar a sub

Private Sub Form_Load()
Cabecalho
End Sub

e mude isto no botao

With mslista
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = txtingrediente.Text
.TextMatrix(.Rows - 1, 1) = txtpeso.Text
End With

veja que funcionará 100%

Página 1 de 2 [14 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar