[Antik163rus]

Всем привет. Есть вопрос. У меня есть форма на которой есть dbgrid и в нем выводица таблица №1. Так вот как мне добавить выбранную строку в другую форму, например в stringgrid??? И если надо добавлять не все столбцы а допустим 3 из 5 как это сделать, подскажите???

[mik]

Код:

StringGrid.Cells[X, Y] := DBGrid.DataSource.DataSet.Fields[2].AsString

[Antik163rus]

Хорошо. а как сделать так: чтобы записи добавлялись каждой строчкой? т.е.: есть таблица:
1 строка 1 столбец: Петров; 1 строка 3 столбец: 15685;
При нажатии кнопки в стринргрид в первую строку заносятся два поля; затем пр нажатии еще раз заполнялась вторая строка а не переписывалась первая??

[mik]

Код:

DBGrid.DataSource.DataSet.Next;

Код:

Inc(Y);
StringGrid.Cells[X, Y] := ...;

[Antik163rus]

Не понял, можно поподробнее??

[mik]

После нажатия на кнопку нужно в таблице-источнике перейти на следующую запись, соответственно в StringGrid`е перейти на следующую строку.
DBGrid.DataSource.DataSet.Next - Это переход на следующую запись.
Inc(Y);StringGrid.Cells[X, Y] - Это переход на следующую строку.

[Antik163rus]

цикл чтоли писать надо для dbgrid???или просто:

Код:

procedure TSel1.Button1Click(Sender: TObject);
begin
main.StringGrid1.Cells[0,1]:=dbgrid1.DataSource.DataSet.Fields[0].AsString;
DBGrid1.DataSource.DataSet.Next;
end;

Admin: Пользуемся тегами!

а в форме где stringgrid писать Inc(Y);StringGrid.Cells[X, Y]? куда?
можно прям кодом написать???

[mik]

Если нужны все записи из набора данных, то конечно цикл необходим. Только не для DBGrid`а, а для DataSet`а, к которому эта сетка привязана.

Код:

while not dbgrid1.DataSource.DataSet.Eof do
begin
  main.StringGrid1.Cells[0,dbgrid1.DataSource.DataSet.RecNo] := 
    dbgrid1.DataSource.DataSet.Fields[0].AsString;
  dbgrid1.DataSource.DataSet.Next;
end;

...что-то типа того