ob = CREATEOBJECT("new")
ok=.t.
IF VARTYPE (ob) = [O]
ob.closable=.t.
ob.backcolor=rgb( 10 , 130 , 100 )
ob.caption="Форма редактирования"
ob.height= 400 
ob.width= 825 
  ob.SHOW()
    CLEAR CLASS new
 ENDIF

DEFINE CLASS new AS form 

ADD OBJECT cmb1 AS combobox with;
 top= 85 ,;
 left= 95 ,;
 width= 135 ,;
 height= 25 

procedure cmb1.interactivechange

ConnectServ=SQLSTRINGCONNECT(GETVARIABLE('SPP_SQLSTRCONNECT'),.T.)
    if alltrim(thisform.cmb1.value)="1"
         sqlexec(ConnectServ,'select * from spravproc','cur_temp')
    endif
    if alltrim(thisform.cmb1.value)="2"
	 sqlexec(ConnectServ,'select * from sistplata','cur_temp')
    endif
    if alltrim(thisform.cmb1.value)="3"
	 sqlexec(ConnectServ,'select * from spravozu','cur_temp')
    endif
    if alltrim(thisform.cmb1.value)="4"
	 sqlexec(ConnectServ,'select * from hdd','cur_temp')
    endif
	if alltrim(thisform.cmb1.value)="5"
	 sqlexec(ConnectServ,'select * from vidcard','cur_temp')
    endif
sqldisconnect(ConnectServ)
 
thisform.grd1.recordsourcetype= 1 
thisform.grd1.recordsource="cur_temp"

endproc	

ADD OBJECT grd1 AS grid with;
 left= 361 ,;
 top= 12 ,;
 height= 332 ,;
 width= 456 ,;
 readonly=.t.
 allowcellselection=.f.

*><

ENDDEFINE

if alltrim(thisform.cmb1.value)="1"
procedure grd1.column1.header1.click
.......
endproc
procedure grd1.column2.header1.click
.......
endproc
....
endif