Declarei o método da seguinte maneira:
- Code: Select all Expand view
METHOD FieldName(cFieldName, uValue) SETGET
e a função ficou da seguinte maneira:
- Code: Select all Expand view
****************************************************************************
METHOD FieldName(cFieldName, uValue ) CLASS TDlgCadMySql
****************************************************************************
*
* Pegar o valor do campo informado da matriz
* Parametros: cFieldName
* Retorno: Variavel indefinida
*
* Autor: Anderson
* 12/11/2008 - 15:54:50
*
****************************************************************************
local Result := nil, i := 0
if PCount() == 2
//-- Set -----------------------------------------------------------//
for i := 1 to Len(::aFields)
if Upper(cFieldName) == ::aFields[i,1]
::aFields[i,2] := uValue
exit
end
end//for i := 1 to Len(::aFields)
else
//-- Get -----------------------------------------------------------//
for i := 1 to Len(::aFields)
if Upper(cFieldName) == ::aFields[i,1]
Result := ::aFields[i,2]
exit
end
end//for i := 1 to Len(::aFields)
end
return Result
/*------------------------------------------------------------------------*/
Sendo que após compilar e logo ao executar aparece uma tela de erro com a seguinte mensagem!! Veja abaixo:
- Code: Select all Expand view
---------------------------
Unrecoverable error 9009:
---------------------------
---------------------------
[ OK ]
---------------------------
Solução pra isto??!!
