For i = 0 To StockDataSet.Tables("Stock").Rows.Count - 1 'repeat for every row in the dataset
'calculating number sold
dr = StockDataSet.Tables("Stock").Rows(i) 'this is making dr = row i in the table stock(i being a incrementing variable)'
totalsold = totalsold + Int(dr("Number Sold")) 'makes totalsold equal to the total sold in the table + the number sold
'calculating profit
profit = profit + (CDbl(dr("Price")) * CDbl(dr("Number Sold")))
'calculating possible profit
posprofit = posprofit + (CDbl(dr("Price")) * (CDbl(dr("Number In Stock")) + CDbl(dr("Number Sold"))))
'calculating percentage of stock sold
percentage = (profit / posprofit) * 100
Next