With This
	.CBRegion.RowSource='Select Distinct region From vuz where ;
	((OblName=Thisform.CBOblname.Value) Or Empty(Thisform.CBOblname.Value)) and ;
	(City=Thisform.CBCity.Value Or Empty(Thisform.CBCity.Value)) ;
	and (z2=Thisform.CBZ2.Value Or Empty(Thisform.CBZ2.Value)) ;
	Into Cursor cb1'
	.CBRegion.RowSourceType = 3
	.CBOblname.RowSource='Select Distinct oblname From vuz Where (region=Thisform.CBRegion.Value Or Empty(Thisform.CBRegion.Value)) and ;
	 (z2=Thisform.CBZ2.Value Or Empty(Thisform.CBZ2.Value)) and (City=Thisform.CBCity.Value Or Empty(Thisform.CBCity.Value)) ;
	 Into Cursor cb2'
	.CBOblname.RowSourceType = 3
	
	.CBCity.RowSource='Select Distinct city From vuz Where (z2=Thisform.CBZ2.Value Or Empty(Thisform.CBZ2.Value)) ;
	 and (region=Thisform.CBRegion.Value Or Empty(Thisform.CBRegion.Value)) and (OblName=Thisform.CBOblname.Value ;
	 Or Empty(Thisform.CBOblname.Value)) Into Cursor cb3'
	.CBCity.RowSourceType = 3
	
	.CBZ2.RowSource='Select z2 From vuz where ;
	((OblName=Thisform.CBOblname.Value) Or Empty(Thisform.CBOblname.Value)) and ;
	(City=Thisform.CBCity.Value Or Empty(Thisform.CBCity.Value)) ;
	and (Region=Thisform.CBRegion.Value Or Empty(Thisform.CBRegion.Value)) ;
	Into Cursor cb4'
    .CBZ2.RowSourceType = 3 
    *******************
    .CBCod.RowSource='Select distinct codprog From proj33 ;   
    into Cursor cb5'
    .CBCod.RowSourceType = 3      
   **************************
	.DataEnvironment.AddObject('oCad', 'cursoradapter')
	With .DataEnvironment.oCad As CursorAdapter
		TEXT to .SelectCmd NOSHOW FLAGS 1 PRETEXT 15
		SELECT * FROM proj33 WHERE (codprog=?thisform.cbCod.Value or EMPTY(?thisform.cbcod.Value)) AND proj33.codisp in
		(
			SELECT codvuz FROM vuz
			WHERE (region=?thisform.cBRegion.Value or Empty(?thisform.cBRegion.Value))
			 and (oblname=?thisform.cBoblname.Value or Empty(?thisform.cBoblname.Value))
			 and (city=?Thisform.CBCity.Value or Empty(?Thisform.CBCity.Value))
			 and (z2=?thisform.cBz2.Value or Empty(?thisform.cBz2.Value)) 
		)
		ENDTEXT
*ssa*			INTO cursor cgr1 readwrite
		.Alias = 'cgr1'
		.DataSourceType="NATIVE"
*!*			Tables=proj33	
*!*			SET MULTILOCKS ON 
*!*			SELECT proj33
*!*			SendUpdates = .T.

		
				
		If Not .CursorFill()
			Messagebox('Что-то не так')
			Aerror(arrerr)
		Else
			Index On codprog+F Tag codprog
			Index On F Tag F
			Index On nir Tag nir
			Index On isp Tag  isp
			Index On codisp Tag codisp
			Index On ruk Tag ruk
			Index On ruk2 Tag ruk2
			Index On grnti Tag grnti
			Index On codtype Tag codtype
			Index On pfin Tag pfin
			Index On pfin1 Tag pfin1
			Index On pfin2 Tag pfin2
			Index On pfin3 Tag pfin3
			Index On pfin4 Tag pfin4
			Index On ffin  Tag ffin
			Index On ffin1 Tag ffin1
			Index On ffin2 Tag ffin2
			Index On ffin3 Tag ffin3
			Index On ffin4 Tag ffin4
			Set Order To
			Go Top
		Endif
	Endwith
	With .Grid1
*ssa*		.RecordSource=''
		.RecordSource="cgr1"
		.AutoFit()
		.RecordSourceType=4 && 1 
		SendUpdates = .T.

		*****************************
*!*			CURSORSETPROP('Buffering', 5, 'cgr1' )
*!*			TaBLEUPDATE(.T.)
*!*			
		*************************
		.column1.header1.Caption='№ Проекта'
		.column2.header1.Caption='№ НИР'
		.column2.Width=70
		.column11.header1.Caption='Наименование проекта'
		.column3.header1.Caption='Организация-исполнитель'
		.column3.Width=150
		.column8.header1.Caption='Код организации'
		.column8.Width=100
		.column9.header1.Caption='Начало срока'
		.column9.Width=80
		.column10.header1.Caption='Конец срока'
		.column10.Width=80
		.column5.header1.Caption='Руководитель'
		.column5.Width=100
		.column6.header1.Caption='Должность'
		.column6.Width=130
		.column4.header1.Caption='Код ГРНТИ'
		.column4.Width=130
		.column12.header1.Caption='Характер проекта'
		.column12.Width=130
		.column7.header1.Caption='План финансирования'
		.column7.Width=130
		.column13.header1.Caption='1ый Квартал'
		.column13.Width=90
		.column14.header1.Caption='2ой Квартал'
		.column14.Width=90
		.column15.header1.Caption='3ий Квартал'
		.column15.Width=90
		.column16.header1.Caption='4ый Квартал'
		.column16.Width=90
		.column17.header1.Caption='Фактическое финансирование'
		.column17.Width=130
		.column18.header1.Caption='1ый Квартал'
		.column18.Width=90
		.column19.header1.Caption='2ой Квартал'
		.column19.Width=90
		.column20.header1.Caption='3ий Квартал'
		.column20.Width=90
		.column21.header1.Caption='4ый Квартал'
		.column21.Width=90
	Endwith
Endwith