append blank
REPL kom_hozaev with THISFORM.Combo1.Value,;
kom_sopern WITH THISFORM.Combo2.Value,;
resultat WITH THISFORM.Text1.Value,;
KOD_MATCHA WITH RECNO()

LOCAL lcRezultat, lcAlias

lcRezultat='Nichja'
DO CASE
 CASE  txtGoalHost.Value>txtGoalHost.Value
   lcRezultat='Pobeda'
 CASE  txtGoalHost.Value<txtGoalHost.Value
   lcRezultat='Poragenie'
ENDCASE

 
REPLACE chet_igri WITH ALLTRIM(txtGoalHost.Value)+':'+ ALLTRIM(txtGoalGuest.Value), Rezultat WITH  lcRezultat in match

* Тут же нужно дополнить турнирную таблицу. Т.е. если значения(Value) combo у тебя привязаны к полю  kod_fk что-то вроде нижеследующего. Обрати внимание что все поля с префиксом kol_vo должны быть типа N(числовыми)

lcAlias=ALIAS()
SELE turn_tablica
* для команды хозяев
LOCATE FOR kod_fk==combo1.Value
IF FOUND()
DO CASE
 CASE lcRezultat=='Pobeda'
		REPLACE kol_vo_ochkov WITH kol_vo_ochkov+ 3 , ;
		kol_vo_igr WITH kol_vo_igr+ 1 ,;
		kol_vo_pobed WITH kol_vo_pobed+ 1 
 CASE lcRezultat=='Poragenie'
		REPLACE kol_vo_igr WITH kol_vo_igr+ 1 ,;
		kol_vo_porageniy WITH kol_vo_porageniy+ 1 		
 CASE lcRezultat=='Nichja'
		REPLACE kol_vo_ochkov WITH kol_vo_ochkov+ 1 , ;
		kol_vo_igr WITH kol_vo_igr+ 1 ,;
		kol_vo_nichey WITH kol_vo_nichey+ 1 	
ENDCASE				
ELSE
 =MessageBox('Нет такой команды в таблице') 
ENDIF FOUND()

* для команды гостей
LOCATE FOR kod_fk==combo2.Value
IF FOUND()
DO CASE
CASE lcRezultat=='Poragenie'
		REPLACE kol_vo_ochkov WITH kol_vo_ochkov+ 3 , ;
		kol_vo_igr WITH kol_vo_igr+ 1 ,;
		kol_vo_pobed WITH kol_vo_pobed+ 1 
 CASE lcRezultat=='Pobeda'
		REPLACE kol_vo_igr WITH kol_vo_igr+ 1 ,;
		kol_vo_porageniy WITH kol_vo_porageniy+ 1 		
 CASE lcRezultat=='Nichja'
		REPLACE kol_vo_ochkov WITH kol_vo_ochkov+ 1 , ;
		kol_vo_igr WITH kol_vo_igr+ 1 ,;
		kol_vo_nichey WITH kol_vo_nichey+ 1 	
ENDCASE			
ELSE
 =MessageBox('Нет такой команды в таблице') 
ENDIF FOUND()

SELECT &lcAlias

* защита от дурака
This.Enabled=.f.