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

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  Ganhando performance no MSFlexgrid
Postada em 14/7/2003 por Everest            
'O q baixa a performace do carregamento é colocar cores nas celulas

Dim BD As DAO.Database
Dim rst As DAO.Recordset

Private Sub Form_Click()

Form_Load

MSHFlexGrid1.Rows = 1

MSHFlexGrid1.CellForeColor = vbGreen
MSHFlexGrid1.CellFontBold = True

End Sub

'
Private Sub Form_Load()
Set BD = OpenDatabase("c:\Teste.mdb", False, False, ";pwd=" & "123")
Set rst = BD.OpenRecordset("Tabela", dbOpenSnapshot)

    MSHFlexGrid1.Cols = 11

MSHFlexGrid1.FormatString = "^Documento |<Descrição                 |<Data             |>Entrada            |>Saída            "

DoEvents

While Not rst.EOF
    MSHFlexGrid1.AddItem Format(rst.Fields(3).Value, "000000000") & Chr(9) & _
                         rst.Fields(4).Value & Chr(9) & _
                         rst.Fields(5).Value & Chr(9) & _
                         Format(CStr(rst.Fields(6).Value), "##,###.00") & Chr(9) & _
                         Format(CStr(rst.Fields(7).Value), "##,###.00") & Chr(9) & _
                         rst.Fields(8).Value & Chr(9) & _
                         rst.Fields(9).Value & Chr(9) & _
                         rst.Fields(14).Value & Chr(9) & _
                         rst.Fields(16).Value & Chr(9) & _
                         rst.Fields(18).Value
                        
                         MSHFlexGrid1.Row = rst.AbsolutePosition + 2
                         If UCase(rst.Fields(14).Value) = "CRÉDITO" Then
                            MSHFlexGrid1.Col = 3
                            MSHFlexGrid1.CellForeColor = &H8000&
                            MSHFlexGrid1.CellFontBold = True
                            Else
                            MSHFlexGrid1.Col = 4
                            MSHFlexGrid1.CellForeColor = &H80&
                            MSHFlexGrid1.CellFontBold = True
                         End If

    rst.MoveNext

Wend

MsgBox rst.RecordCount

End Sub
 


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