...= ItemList(theBoxNum+1)
thePrice = theItem(theBoxNum/2,2)
theQty = theItem(theBoxNum/2,0)
theItem(theBoxNum/2,3) = thePrice*theQty
Next
End Sub
function ProductSelected()
DIM theBoxNum,theLineItem, theLineHead, theLineTail, TableCode, thePrice, theQty
TotalValue = 0...