SELECT city
GO bottom
select idcity from city where ... как взять из последней строки?

USE misc IN  0  EXCLUSIVE 
  SELECT misc  
  DELETE all  
  PACK  
INSERT INTO misc(lnIdcity);
select MAX(idCity) FROM city;

SELECT misc  
  DELETE all  
  PACK 

delete from misc  
  use in select('misc')  
    
  try  
     use misc  alias misc  in  0  EXCLUSIVE  
     pack  
  catch to loError  
     =messagebox(loError.Message)  
  finally  
     use in select('misc')  
  ENDTRY

 INSERT INTO dbf\misc(lnIdcity);
select MAX(idCity) FROM city;

lparameters tcMode

if upper(evl(tcMode, "")) = "NEW"
	this.txtidcity.value =  0 
	this.txtcity.value = ""
	this.lNew = .t.
else
	this.txtidcity.value = city.idcity
	this.txtcity.value = city.ccity
endif

local llOk

do case
	case empty(this.txtidcity.value)
		wait window "Введите код населенного пункта" timeout  2 
		this.txtidcity.setfocus()

	case empty(this.txtcity.value)
		wait window "Введите название населенного пункта" timeout  2 
		this.txtcity.setfocus()

	otherwise
		if thisform.lNew
			insert into city ;
				(idcity, ccity) ;
				values ;
				(this.txtidcity.value,  this.txtcity.value)
		else
			replace next  1  in city ;
				idcity with this.txtidcity.value, ;
				ccity with this.txtcity.value
		endif
		
		llOk = .t.
endcase

return llOk

USE misc in  0  *открываем таблицу misc
z=misc.SomeField 
USE IN misc