AGRUPAR E MOSTAR O ULTIMO

Private Sub cmdCONintervalo_Click()
    Call ABRIR_BD_SEM_DATA1
    SQL = [Ô]SELECT prd.Descricao AS var_Desc, prd.Codigo AS var_codEnt, prd.Quant_Estoque AS var_Quant, peiult.Custo AS var_Custo, peiult.Frete AS var_Frete, peiult.Imposto_Valor_Compra AS var_ImpCompra, peiult.Custo_Compra AS var_VlrCompra, peiult.VENDA AS var_VENDA FROM Produtos AS prd INNER JOIN  Produtos_Entrada_Itens AS peiult ON peiult.Codigo_Produto = prd.Codigo WHERE peiult.DATA_ENTRADA = (SELECT  MAX(pei.DATA_ENTRADA) FROM Produtos_Entrada_Itens AS pei WHERE pei.Data_Entrada between #[Ô] & Format(Mask1, [Ô]mm/dd/yy[Ô]) & [Ô]# and #[Ô] & Format(Mask2, [Ô]mm/dd/yy[Ô]) & [Ô]#  AND pei.Codigo_Produto = prd.Codigo)[Ô]
    Set Rs = BD.OpenRecordset(SQL)
    
    FormatarGrid
End Sub

Private Sub FormatarGrid()
Dim i

With Grid
    .Visible = False
    
    .Clear
    .Cols = 11
    .Rows = 2
        
    .ColWidth(0) = 0
    .ColWidth(1) = 900
    .ColWidth(2) = 4450
    .ColWidth(3) = 800
    .ColWidth(4) = 850
    .ColWidth(5) = 850
    .ColWidth(6) = 0 [ô]1000
    .ColWidth(7) = 850
    .ColWidth(8) = 850
    .ColWidth(9) = 1000
    .ColWidth(10) = 900
    
    .TextMatrix(0, 1) = [Ô]COD[Ô]
    .TextMatrix(0, 2) = [Ô]PRODUTO[Ô]
    .TextMatrix(0, 3) = [Ô]QUANT[Ô]
    .TextMatrix(0, 4) = [Ô]CUSTO[Ô]
    .TextMatrix(0, 5) = [Ô]FRETE[Ô]
    .TextMatrix(0, 6) = [Ô]IMPOSTO[Ô]
    .TextMatrix(0, 7) = [Ô]VALOR[Ô]
    .TextMatrix(0, 8) = [Ô]LUCRO[Ô]
    .TextMatrix(0, 9) = [Ô]IMPOSTO[Ô]
    .TextMatrix(0, 10) = [Ô]VENDA[Ô]

    
    [ô]colocar os cabeçalho em negrito
    For X = 0 To .Cols - 1
    .Col = X
    .Row = 0
    .CellFontBold = True
    Next X
    
    [ô]ALINHAMENTO
    .ColAlignment(2) = 1
    
    [ô]centralizar o titulo
    For f = 0 To .Cols - 1
    .Row = 0
    .Col = f
    .CellAlignment = flexAlignCenterCenter
    Next f
    
    i = 1
    
    Do Until Rs.EOF
    
      .Redraw = False
    
      [ô]mudar a cor da coluna
      
    For i = 1 To .Rows - 1
        .Row = i
        [ô].Col = 4:   .CellBackColor = &HC0FFFF
        [ô].Col = 10:   .CellBackColor = &HC0C0FF
    Next
      
      .Redraw = True
    
    If Not IsNull(Rs!var_CodEnt) Then .TextMatrix(.Rows - 1, 1) = Rs!var_CodEnt
    If Not IsNull(Rs!var_desc) Then .TextMatrix(.Rows - 1, 2) = Rs!var_desc
    [ô]If Not IsNull(Rs!var_Quant) Then .TextMatrix(.Rows - 1, 3) = Rs!var_Quant
    [ô]If Not IsNull(Rs!var_CUSTO) Then .TextMatrix(.Rows - 1, 4) = Format(Rs!var_CUSTO, [Ô]##,##0.00[Ô])
    [ô]If Not IsNull(Rs!var_FRETE) Then .TextMatrix(.Rows - 1, 5) = Format(Rs!var_FRETE, [Ô]##,##0.00[Ô])
    [ô]If Not IsNull(Rs!var_impcompra) Then .TextMatrix(.Rows - 1, 6) = Format(Rs!var_impcompra, [Ô]##,##0.00[Ô])
    [ô]If Not IsNull(Rs!var_vlrcompra) Then .TextMatrix(.Rows - 1, 7) = Format(Rs!var_vlrcompra, [Ô]##,##0.00[Ô])
    [ô]If Not IsNull(Rs!Var_Lucro) Then .TextMatrix(.Rows - 1, 8) = Format(Rs!Var_Lucro, [Ô]##,##0.00[Ô])
    [ô]If Not IsNull(Rs!var_ImpVenda) Then .TextMatrix(.Rows - 1, 9) = Format(Rs!var_ImpVenda, [Ô]##,##0.00[Ô])
    If Not IsNull(Rs!VAR_VENDA) Then .TextMatrix(.Rows - 1, 10) = Format(Rs!VAR_VENDA, [Ô]##,##0.00[Ô])
      Rs.MoveNext
      
      .Rows = .Rows + 1
      
      i = i + 1
      
    Loop
    
    .Rows = .Rows - 1
    .Visible = True
    
End With
End Sub

Private Sub FormatarGrid()
Dim i As Integer

With Grid
    .Visible = False
    
    .Clear
    .Cols = 11
    .Rows = 2
        
    .ColWidth(0) = 0
    .ColWidth(1) = 900
    .ColWidth(2) = 4450
    .ColWidth(3) = 800
    .ColWidth(4) = 850
    .ColWidth(5) = 850
    .ColWidth(6) = 0 [ô]1000
    .ColWidth(7) = 850
    .ColWidth(8) = 850
    .ColWidth(9) = 1000
    .ColWidth(10) = 900
    
    .TextMatrix(0, 1) = [Ô]COD[Ô]
    .TextMatrix(0, 2) = [Ô]PRODUTO[Ô]
    .TextMatrix(0, 3) = [Ô]QUANT[Ô]
    .TextMatrix(0, 4) = [Ô]CUSTO[Ô]
    .TextMatrix(0, 5) = [Ô]FRETE[Ô]
    .TextMatrix(0, 6) = [Ô]IMPOSTO[Ô]
    .TextMatrix(0, 7) = [Ô]VALOR[Ô]
    .TextMatrix(0, 8) = [Ô]LUCRO[Ô]
    .TextMatrix(0, 9) = [Ô]IMPOSTO[Ô]
    .TextMatrix(0, 10) = [Ô]VENDA[Ô]
    
    [ô]colocar os cabeçalho em negrito e centralizar o titulo
    .Row = 0
    For i = 0 To .Cols - 1
        .Col = i
        .CellFontBold = True
        .CellAlignment = flexAlignCenterCenter
    Next
    
    [ô]ALINHAMENTO
    .ColAlignment(2) = 1
    
    Do Until Rs.EOF
        .Row = .Rows - 1
        If Not IsNull(Rs!var_CodEnt) Then .TextMatrix(.Row, 1) = Rs!var_CodEnt
        If Not IsNull(Rs!var_desc) Then .TextMatrix(.Row, 2) = Rs!var_desc
        [ô]If Not IsNull(Rs!var_Quant) Then .TextMatrix(.Row, 3) = Rs!var_Quant
        [ô]If Not IsNull(Rs!var_CUSTO) Then .TextMatrix(.Row, 4) = Format(Rs!var_CUSTO, [Ô]##,##0.00[Ô])
        [ô]If Not IsNull(Rs!var_FRETE) Then .TextMatrix(.Row, 5) = Format(Rs!var_FRETE, [Ô]##,##0.00[Ô])
        [ô]If Not IsNull(Rs!var_impcompra) Then .TextMatrix(.Row, 6) = Format(Rs!var_impcompra, [Ô]##,##0.00[Ô])
        [ô]If Not IsNull(Rs!var_vlrcompra) Then .TextMatrix(.Row, 7) = Format(Rs!var_vlrcompra, [Ô]##,##0.00[Ô])
        [ô]If Not IsNull(Rs!Var_Lucro) Then .TextMatrix(.Row, 8) = Format(Rs!Var_Lucro, [Ô]##,##0.00[Ô])
        [ô]If Not IsNull(Rs!var_ImpVenda) Then .TextMatrix(.Row, 9) = Format(Rs!var_ImpVenda, [Ô]##,##0.00[Ô])
        If Not IsNull(Rs!VAR_VENDA) Then .TextMatrix(.Row, 10) = Format(Rs!VAR_VENDA, [Ô]##,##0.00[Ô])
        
        Rs.MoveNext

        .Rows = .Rows + 1
    Loop
    .Rows = .Rows - 1
    .Visible = True
End With
End Sub