upper bound was wrong

This commit is contained in:
Trowbridge 2020-01-13 17:23:39 -05:00
parent f825c61b62
commit aa88dbc9e7

2
FL.bas
View File

@ -948,7 +948,7 @@ Sub build_price_upload()
Dim fd As FileDialog Dim fd As FileDialog
pl = x.SHTp_GetString(Selection) pl = x.SHTp_GetString(Selection)
ReDim ul(10, UBound(pl, 2)) ReDim ul(11, UBound(pl, 2))
PRICELIST_SHOW: PRICELIST_SHOW: