edit do grida

0

mam taki problem:

mam tablice DBGrid z danymi liczbowymi( TDataSource, TTable, DBGrid) o 6 kolumnach,
pierwsze 3 zapelniam danymi, ok 20-30 wierszy... ostsatnie 3 zostawiam wolne...

na tym samym formularzu mam 3 pola TEdit w ktorych wpisuje pewne liczby...

jak napisac procedurke taka aby wartosc liczbowa z 1 edita zostala wpisana do wszystkich wierszy 4 kolumny, druga do piatej itd....

dzieki z gory

0

nie przypisujesz do dbgrid tylko do table. w table zas masz ponazywane pola. wiec wpisujesz do konkretnych pol. np Table1.FieldValues['nazwa kolumny']:= Edit1.Text;
musisz jednak pamietac ze pole tabeli musi byc takiego samego typu jak wpisywana wartosc wiec jezeli pole jest typy integer to musisz przekonwertowac dane za pomoca funkcji inttostr i analogicznie do innych typow innymi funkcjami.
ponadto aby wpisac dla kazdego wiersza do danej kolumny, to co napisalem wyzej stosujesz w petli for i:= 1 to Table1.RecordCount do...

to chyba wsio.
pozdr.

0

no dzieki

rozumiem mniej wiecej o co ci chodzi... ale nie czuje sie w tym delphi za specjalnie jeszcze i mam mala prosbe.... czy moglbys mi napisac taka przykladowa procedurke???
bylbym wdzieczny...dzieki

0

zrobilem cos takiego:

 with Table1 do
  begin
    First;
    while not Eof do
    begin
      Edit;
      FieldByName('Pole_4').AsInteger:=StrToInt(Edit1.Text);
      FieldByName('Pole_5').AsInteger:=StrToInt(Edit2.Text);
      FieldByName('Pole_6').AsInteger:=StrToInt(Edit3.Text);
      //lub
      //FieldByName('Pole_4').AsString:=Edit1.Text;
      //FieldByName('Pole_5').AsString:=Edit2.Text;
      //FieldByName('Pole_6').AsString:=Edit3.Text;
      Post;
      Next;
    end;
  end;

i podczas kompilacji wyskakuje mi cos takiego:
" declaration expected but WITH found", nie podoba mu się takze " edit" i " first"

pewnie chodzi o wpsianie jakiejs petli wczesniej z tym" record count" ale nie wiem jak to zrobic ....

1 użytkowników online, w tym zalogowanych: 0, gości: 1