Это работает без создания или вызова нескольких подпрограмм или функций. Кажется, работает для каждого экземпляра мне нужно.
Do While myDataReader.Read()
ItemID = Trim(myDataReader.Item("ITEM").ToString())
PAR = myDataReader.Item("PAR").ToString()
Returned = myDataReader.Item("RETURNED_AMOUNT")
Taken = myDataReader.Item("TAKEN_AMOUNT")
OnHand = ((PAR + Returned) - Taken)
DataGridViewItemList.Rows.Add(ItemID, PAR, Returned, Taken, OnHand)
RI = DataGridViewItemList.Rows.Count - 1
If OnHand <= (PAR / 2) Then
DataGridViewItemList.Rows(RI).DefaultCellStyle.BackColor = Color.DarkSalmon
Else
DataGridViewItemList.Rows(RI).DefaultCellStyle.BackColor = Nothing
End If
Loop