thisform.grid1.column7.ControlSource = Tempnota.teste+Tempnota.prova+Tempnota.qualit+Tempnota.outros

>IF !EMPTY(THISFORM.combo1.VALUE)
>	PUBLIC x_consmat
>	x_consbim = ALLTRIM(STR(THISFORM.optiongroup1.VALUE))
>	x_consmat = ALLTRIM(THISFORM.combo1.VALUE)
>
>
>	IF THISFORM.combo1.VALUE="99"
>	ELSE
>*SET STEP ON
>
>		IF THISFORM.optiongroup1.VALUE = 1 OR THISFORM.optiongroup1.VALUE = 2 OR THISFORM.optiongroup1.VALUE = 3 OR THISFORM.optiongroup1.VALUE = 4
>
>
>			x_strsql = "select dados.matricula,dados.nome, " + "notas.t" + x_consmat + " as teste ," + ;
>				"notas.p" + x_consmat + " as prova ," + ;
>				"notas.q" + x_consmat + " as qualit ," + ;
>				"notas.o" + x_consmat + " as outros from dados,notas into dbf tempnota where notas.serie = " + THISFORM.combo2.VALUE + " .and." + ;
>				" notas.bimestre = " + x_consbim + " .and. notas.matricula = dados.matricula"
>			&x_strsql
>		
>			ALTER TABLE tempnota ADD COLUMN Total n(5,2)
>			
>			thisform.grid1.RecordSourceType=0
>			thisform.grid1.RecordSource = "tempnota"
>
>						
>			thisform.grid1.ColumnCount = 7
>			thisform.grid1.column1.Width= 0
>			thisform.grid1.column2.Width= 300
>			thisform.grid1.column3.Width= 50
>			thisform.grid1.column4.Width= 50
>			thisform.grid1.column5.Width= 50
>			thisform.grid1.column6.Width= 50
>			thisform.grid1.column7.Width= 50
>
>			thisform.grid1.column2.header1.Caption="Nome"
>			thisform.grid1.column3.header1.Caption="Teste"
>			thisform.grid1.column4.header1.Caption="Prova"
>			thisform.grid1.column5.header1.Caption="Qualit."
>			thisform.grid1.column6.header1.Caption="Outras"
>			thisform.grid1.column7.header1.Caption=""
>			
>			thisform.grid1.column3.ControlSource = "Tempnota.teste"
>			thisform.grid1.column4.ControlSource = "Tempnota.prova"
>			thisform.grid1.column5.ControlSource = "Tempnota.qualit"
>			thisform.grid1.column6.ControlSource = "Tempnota.outros"
>			thisform.grid1.column7.ControlSource = "Tempnota.teste+Tempnota.prova+Tempnota.qualit+Tempnota.outros"
>					
>		ELSE
>
>		ENDIF
>	ENDIF
>ENDIF
>
>thisform.combo1.Enabled= .F.
>thisform.command2.Enabled= .T.
>thisform.grid1.Visible= .T.
>