* Init with this select .f. as lSelected,* ; from home()+"samples\data\customer" ; into cursor myCursor local lcAliasName lcAliasName = "tcSelector"+padl(select(0),3,"0") use (dbf("myCursor")) in 0 again alias (lcAliasName) select (lcAliasName) .recordsource = lcAliasName .columns(1).addobject("Check1","Checkbox") .columns(1).currentcontrol = "Check1" .columns(1).Check1.caption = "" .columns(1).Check1.visible = .t. .columns(1).sparse = .f. endwithCetin