>>create cursor fred (fieldname C(10)) >>insert into fred values ('HelloWorld') >>lcVar = 'fieldname' >> >>Select Max(Thisform.TextWidth(AllTrim(eval(lcVar)))) as x from fred >>Calc Max(TxtWidth(AllTrim(eval(lcVar)))) to lnFieldWidth >>Calc Max(Thisform.TextWidth(AllTrim(eval(lcVar)))) to lnFieldWidth >>>>
Invalid Subscript reference