msflexgrid - refresh


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: msflexgrid - refresh

lamattina

ASSIS
SP - BRASIL

ENUNCIADA !

Postada em 10/01/2008 23:41 hs

Saudações.

Não consigo dar um refresh na grid.

            rs.AddNew
            rs!CdPais = StrConv(txtCodigo.Text, vbUpperCase)
            rs!nmpais = StrConv(txtCodigo.Text, vbUpperCase)
            rs.Update
            Inserir = True
            msfPais.Refresh

Alguém pode me dar uma luz?

Cardoso G

PATOS DE MINAS
MG - BRASIL

ENUNCIADA !

Postada em 11/01/2008 09:05 hs

qual o problema ?

Treze
não registrado

ENUNCIADA !

Postada em 11/01/2008 09:13 hs

Lammatina, qual oresultado que você deseja deste código, atualizar apos inclusão ou algo parecido por favor explique melhor

Lamattina

ASSIS
SP - BRASIL

ENUNCIADA !

Postada em 11/01/2008 09:28 hs

Treze/Cardoso G

Bom dia.

Exato, gostaria de atualizar a grid após a inclusão!

Treze

SÃO VICENTE
SP - BRASIL

Postada em 11/01/2008 09:47 hs

msfpai é o seu grid

faça o seguinte

crie uma sub com o nome atualizarMsfPais()

private Sub AtualizarMsfPais()

' apague a msflexgrid com o código abaixo

msfPais.Clear

' e atualize com seu código para carregar o msflexgrid

em seguida o código que você utiliza para carregar sua gird com os dados

end sub

agora lá no botão de incluir, excluir, etc...

basta você chamar esta sub assim

AtualizarMsfPais

exemplo:

    rs.AddNew
            rs!CdPais = StrConv(txtCodigo.Text, vbUpperCase)
            rs!nmpais = StrConv(txtCodigo.Text, vbUpperCase)
            rs.Update
            Inserir = True
            AtualizarMsfPais

é bem melhor e a atualização vai ser automática

poste o resultado

Lamattina

ASSIS
SP - BRASIL

ENUNCIADA !

Postada em 11/01/2008 10:35 hs

Treze,

Eu estou fora de forma ainda mas eu chego lá! rsrsrsrs

Ele atualiza a grid com o último registro, mas traz os registros anteriores em branco.

Eu fiz assim:

(no botao)

call CarregaGrid(rs)

Private Sub CarregaGrid(ByRef rsSelect As ADODB.Recordset)
    With msfPais
        Do While Not rsSelect.EOF
            .Rows = .Rows + 1 'a cada registro novo adiciona uma nova linha
             'CODIGO
            .TextMatrix(0, 0) = "Código"
            .TextMatrix(.Rows - 1, 0) = rsSelect!CdPais
            .ColAlignment(0) = flexAlignLeftCenter
             'NOME
            .TextMatrix(0, 1) = "Descrição"
            .TextMatrix(.Rows - 1, 1) = rsSelect!nmpais

            .ColAlignment(1) = flexAlignLeftCenter
            rsSelect.MoveNext
        Loop
    End With

End Sub

Página(s): 1/2 PRÓXIMA »