For Row = 0 To Quiry_ProfitDeficit.RowCount - 1
        Quiry_ProfitDeficit.Position = Row
        
        FlexGridProfitDeficit.AddRow(Array As Object(RowCounts - Row,Quiry_ProfitDeficit.GetString("TRANS DATE/TIME"), _
                    Quiry_ProfitDeficit.GetDouble("KILOS (D)"), _                               
                    Quiry_ProfitDeficit.GetDouble("PRICE (D)"), _
                    Quiry_ProfitDeficit.GetDouble("AMOUNT (D)"), _
                    Quiry_ProfitDeficit.GetDouble("KILOS (P)"), _                               
                    Quiry_ProfitDeficit.GetDouble("PRICE (P)"), _
                    Quiry_ProfitDeficit.GetDouble("AMOUNT (P)"), _
                    Quiry_ProfitDeficit.GetDouble("SOLD (KLS)"), _
                    Quiry_ProfitDeficit.GetDouble("DIFF"), _
                    Quiry_ProfitDeficit.GetDouble("PROFIT"), _
                    Quiry_ProfitDeficit.GetDouble("DEFICIT"), _
                    sf.AddSpaces(7) & Quiry_ProfitDeficit.GetString("BUYER"), _
                    sf.AddSpaces(5) & Quiry_ProfitDeficit.GetString("CONTROL"), _
                    Quiry_ProfitDeficit.GetString("TYPE")),True)
        
        FlexGridProfitDeficit.SetRowHeight((Row),60dip)       
        
    Next