This one even provides a working version :=)
***
nStartRow = 10
nStartCol = 10
For nCol = 1 To 4
For nRow = 1 To 10
cTextBoxName = "TextBox" + Trans(nCol) + Trans(nRow)
Thisform.AddObject( cTextBoxName, "textbox")
With Thisform.&cTextBoxName
.L
Try this:
FOR i = 1 TO 4
FOR j = 1 TO 10
m.lcTextBoxName = "TextBox" + LTRIM(STR(i)) + LTRIM(STR(j))
THISFORM.ADDOBJECT( m.lcTextBoxName, "textbox")
oTextbox = EVALUATE( "Thisform." + m.lcTextBoxName)
WITH oTextbox
.NAME = "TextBox" + LTRIM(STR(i))
Tracy,
Thanks for the help - the first line makessence and executes just fine but
the
"oTextbox = evaluate" line errors with variable "TEXTBOX11" is not found.
Do I need something in my code or on my form to have this work properly?
BTW - sorry for not doing this as a reply. My email no longer ge
3 matches
Mail list logo