(Resolvido) inserir um valor em uma determinada linha do grid

[vms]

ola pessoal

tenho uma tabela paradox com 3 campos o primeiro referente aos meses (Janeiro a dezembro)

como faço pra inserir um valor que estar em um Edit em uma determinado linha do grid

EX:

campo mes | Descrição | Valor |

Janeiro...... |etc. ta.......l_______ |

Fevereiro.. |etc. tal ..... |_______|

Março...... |etc. tal.. ... |_______|

.........

Dezembro. |............... |__________| |

como faço pra inserir um valor que estar em um edit na coluna "valor" da linha "Março"

[Jhonas]

como faço pra inserir um valor que estar em um edit na coluna "valor" da linha "Março"

Voce pode usar o comando Locate para isto:

Definição

Procura o dataset para um registro especificado e faz para aquele registro o registro atual.

function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override;

Descrição

Use Locate para procurar um dataset para um registro específico e posicionar o cursor nele. KeyFields é uma string contendo uma lista delimitada por ponto-e-vírgula, de nomes de campo em que deve procurar.

KeyValues é uma Variante contendo os valores para procurar nos campos fundamentais. Se KeyFields listar um único campo, KeyValues representa o valor de procura por aquele campo. Se KeyFields listar campos múltiplos, passe uma ordem Variante como o parâmetro de KeyValues. Você pode construir uma ordem variante ( array ) que usa a rotina de VarArrayOf rapidamente.

Por exemplo:

with NomedaTabela do

begin

if Locate('CampoMes', 'Março', [loPartialKey]) then

NomedaTabela.Valor := 10,00;

end;

Mai informações no help do delphi

abraço

[vms]

o que pode estar errado nesse codigo?

procedure TForm1.ToolButton4Click(Sender: TObject);

begin

with DM.Tabela1 do

begin

DM.Tabela1.Edit;

//if Locate('CampoMes', 'Março', [loPartialKey]) then

if Locate('CampoMes', 'Março', [loCaseInsensitive]) then

DM.Tabela1Valor.Value := strtofloat(Edit1.Text);

DM.Tabela1.Post;

end;

end;

tentei com duas formas loPartialKey, loCaseInsensitive mas sempre dar esse erro

Tabela1' : Dataset not in edit or insert mode'.Process stopped.

[Jhonas]

Tabela1' : Dataset not in edit or insert mode'.Process stopped.

este erro significa: o Dataset não esta em modo de edição ou inserção de registros. Processo parado

então voce deve deixar o codigo assim

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
    with DM.Tabela1 do
       begin
         
       //if Locate('CampoMes', 'Março', []) then  // pode ser assim tambem

          if Locate('CampoMes', 'Março', [loCaseInsensitive]) then
             begin
                   DM.Tabela1.Edit;  // o edit so deve vir depois que ele achar o registro 
                   DM.Tabela1Valor.Value := strtofloat(Edit1.Text);
                   DM.Tabela1.Post;
               end;
                 end;

end;

abraço

Editado Janeiro 15, 2008 por Jhonas

[vms]

é isso mesmo jhonas, valeu!!!