I want to automate a change to my form.
I have property names and values in a table.
The code below, based upon the table values, sets about 6 out of 12 columns in the grid to visible=.f.

For columns set to invisible, the (previously) adjacent column no longer has a vertical line next to it. When I set this non-programmatically in the form designer, it is fine. I think there might also be another problem.. one column with header caption missing?.. need to check further.

note: gridlines is set to 3, gridlinewidth is 1

Any ideas on this?

thanks!

set step on 
modify form FORMS\SOTORJ NOWAIT
lnresult=aselobj(la_form,1)
loform=la_form[1]
use members alias curmemberstochange
set filter to 'COLUMN' $ upper(curmemberstochange.cobject) and 'VISIBLE'  $ upper(curmemberstochange.cpropname) 
*browse 
go top in curmemberstochange
do while not eof('curmemberstochange')
	lc_property=alltrim(curmemberstochange.cpropname)
	lc_object=alltrim(curmemberstochange.cobject)
	if not empty(lc_object) and 'COLUMN' $ upper(curmemberstochange.cobject) and 'VISIBLE'  $ upper(curmemberstochange.cpropname) 
	
	do case
	case curmemberstochange.cvaluetype='C'
		lu_objectvalue=curmemberstochange.cvalue
	case curmemberstochange.cvaluetype='N'
		lu_objectvalue=transform(curmemberstochange.nvalue)
	
	case curmemberstochange.cvaluetype='L'
		lu_objectvalue=transform(curmemberstochange.lvalue)
	
	case curmemberstochange.cvaluetype='D'
		lu_objectvalue=transform(curmemberstochange.dvalue)
	otherwise
		lu_objectvalue=''	
	endcase	
	
	*lc_objectvalue=curmemberstochange.cvalue
	
	*thisform.erpgrd1.&lc_object..&lc_property=lu_objectvalue
	*loform.erpgrd1.&lc_object..&lc_property=lu_objectvalue
	loform.erpgrd1.&lc_object..writeexpression(lc_property,lu_objectvalue)
	
	endif
	skip in curmemberstochange
enddo
*keyboard '{ctrl+w}'
wait window 'here'