Select SUM(valorcont) From Contrato; Where licita_id = Licitacao.licita_id; Into Array Resultado ThisForm.TxtValorcont.Value = Iif(Type("Resultado[1]")#"N",0,Resultado[1])