select distinct prof from vuzkart into cursor vibor_prof
thisform.combo1.RowSource="vibor_prof.prof"
thisform.combo1.RowSourceType = 6   
thisform.combo1.style= 2

hisform.grid1.RecordSource=''
select z1, prof from vuzkart into cursor univ
IF thisform.combo1.value ='univ.prof  '
WITH thisform.grid1   			
  			.recordsource = 'univ' 
  			.Column1.controlsource = 'univ.z1'  		
  			.Column2.Sparse = .f.  
  			.Column2.Bound = .t.  
ENDWITH
endif

*****ÄËß Èíæ-òåõà
thisform.grid1.RecordSource=''
DIMENSION A(300)
DIMENSION B(300)
DIMENSION A1(300)
DIMENSION B1(300)
DIMENSION A4(300)
DIMENSION B4(300)
DIMENSION A3(300)
DIMENSION B3(300)
IF thisform.combo1.DisplayValue='Èíæ-òåõ'
SELECT vuzkart.z1, vuzkart.prof, vuzstat.PPS, vuzstat.DN, vuzstat.KN;
FROM vuzstat,vuzkart;
WHERE (vuzstat.codvuz=vuzkart.codvuz) AND (vuzkart.prof='ÈÒ');
INTO cursor cgr
FOR i = 1 TO recCOUNT() 
GO i
B(i)=cgr.z1
A(i)=(cgr.DN+cgr.KN)/cgr.PPS
?B(i)
?A(i)
?i
ENDFOR
create CURSOR t1 (Z2 C(200), proc1 F(20))
FOR i = 1 TO 44 
INSERT INTO t1 (Z2,proc1) VALUES (B(i),A(i))
ENDFOR
&&CREATE CURSOR t2 (Z1 C(200), proc1 N(20))
&&SELECT TOP 20 * from t1 order by proc1 
ENDIF
thisform.grid1.RecordSource="t1"

thisform.grid1.RecordSource=''
IF thisform.combo1.DisplayValue='Инж-тех'
Select z1, (DN+KN)/PPS as proc1   from vuzstat,vuzkart ;
WHERE (vuzstat.codvuz=vuzkart.codvuz) AND (vuzkart.prof='ИТ');
into cursor t1
SELECT TOP 20 *  from t1 ORDER BY proc1  into table t2