I continue to get teh Invalid Subscript error. Here's the code. Anything wrong with this code?
*************
SELE v_man_inv
M.NEWNAME = ALLT(ThisForm.NsnTxt.VALUE)
=TABLEUPDATE(.T.)
*thisform.InventoryList.Requery
*i = 1
*DO WHILE thisform.InventoryList.Listitem(i)<>m.newName
* i = i + 1
*enddo
*thisform.InventoryList.listindex = i
*thisform.InventoryList.TopItemID = i
*thisform.InventoryList.SetFocus
*thisform.Disable_Boxes
*Thisform.LockScreen = .f.
*thisform.refresh
*************************
Thanks in Advance.
J. Turner