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