|
|
|
|
|
|
|
|
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
|
|
|
|
|
