OLÁ PESSOAL.
Alguem poderia me dar uma dica para que eu quando alterasse algum valor e pedisse para atualizar o msflexgrid, ele retornasse na linha que foi alterada?
Porque atualmente estou usando o REFLESH só que quando eu altero , ele volta pra primeira linha. e eu queria que quando alterasse, ele voltasse para a linha alterada.
Abraços

Nao sei como voce esta montando o flex mais voce pode salvar a linha onde o cursor esta (row) e depois voltar o cursor para la.

Rocha ,

poderia passar a sintaxe do row?

abraços

Para salvar a linha voce faz

Dim salva_linha as long

salva_linha = mfg.row

 

Para marcas a linha novamente

mfg.Row = salva_linha
mfg.ColSel = mfg.Cols - 1
mfg.CellBackColor= QBColor(3)
Provavelmente deve ter alguma API ou outro jeito de fazer novamente a marcacao, mais eu nao sei.

 

Algumas propriedades devem estar marcada no flex para poder fazer esta marcacao.

Fillstyle = 1

selectmode = 1

oi rocha. tudo certinho?

eu fiz a rotina que vc me mandou, só que essa rotina so me passa a linha selecionada. no meu formulario tem os textbox para ser preenchidos ou alterados quando vc clica no msflexgrid. Entao eu queria que quando clicasse na linha 100, eu alterasse o valor na textbox e alterasse só a linha do msflexgrid. ou entao alterasse e voltasse o foco pra linha alterada. pq atualmente eu uso o reflesh e ele volta pra linha inicial. segue o codigo pra sua analise. agradeço a ajuda. abraços

 

Private Sub AtualizaGrid()
   
    SQL = " SELECT * FROM FIRMA "
    SQL = SQL & " ORDER BY INSCRICAO,FIRMA,EXERCICIO "
   
    If DE_SCE.rsSQL_GRD_FIRMA.State = 1 Then DE_SCE.rsSQL_GRD_FIRMA.Close
   
    DE_SCE.rsSQL_GRD_FIRMA.Open SQL
   
    MSHFlexGrid.DataMember = ""
    MSHFlexGrid.DataMember = "SQL_GRD_FIRMA"
    MSHFlexGrid.Refresh
   
    Option1.Value = True
End Sub