Как из двух DBGridов, выбрав необходимые данные, поместить в другой DBGrid

[vovk]

Сообщение от Самоучка

да парадокс, читал но ничего для себя не нашел.
Сделал вычисляемые поля как должно быть в курсовой,фильтрацию, поиск, но как выбирать данные и записывать в новую таблицу не знаю

Фильтрация ето вроде и есть выборка нужных данных или нет?
Запись в другую таблицу тоже самое что и запись в любую, Если НОВАЯ таблица = таблица которой ещё нет, то перед записью в неё данных рекомендуется её создать.
Всё равно пока всё это читал не видел ни кусков кода, ни примеров где чтото невыходит, ни описания самих таблиц.

[Самоучка]

Фильтрация ето вроде и есть выборка нужных данных или нет?

нет выбор будет происходить после нажатия клавиши мыши по строке

не видел ни кусков кода, ни примеров где чтото невыходит, ни описания самих таблиц.

если бы я нашел код как это делать возможно бы сам разобрался. Поиск, фильтрация у меня все работает. Мне нужно не это, нужно просто выбирать с помощью мыши строки в разных таблицах, а они затем должны отобразиться в третьей таблице(это будет наряд на сборку по нему я буду формировать отчет). Как это сделать я не знаю и кодов подходящих пока не находил.

[vovk]

вот
Второй раз за сегодня даю эту ссылку Там не ответ там обучение с помощью которого вы сможете всё сделать и даже больше.
В смысле выбирать записи из 2 и более таблиц лучше SQL запросами быстрее и эффективнее (можно конечно извратится и из Ttable извлеч нужные данные в переменные там или массив потом собрать в кучу и с помощью хитрого кода заполнить этим Dbgrid(а потом с помощью ещё более хитрого вытаскивать от туда данные)), а можно просто составить правильный запрос и получить в своём датасете те данные которые хотели.

А ваш код может выглядеть примерно так

Select таблица1.поле1, таблица2.поле1 From таблица1 Join таблица2 On таблица1.полеN=таблица2.полеX where (тут условие отбора)

а может и иначе, ведь вы так и не показали откуда чего вы хотите
ЗЫ код не надо искать его надо писать

нет выбор будет происходить после нажатия клавиши мыши по строке

А разница какая ? этож действие а чем его исполнили (левой ногой на интер носом на пробел, левой клавишей мышки на заголовок, ввод текст в эдит) значения не имеет

[Arkuz]

В вашем примере таблицы никак ни связаны поэтому отобразятся записи в таком виде Записи таблицы 'goods' УМНОЖИТЬ на записи таблицы 'po' тоесть каждая запись первой таблицы отобразится с КАЖДОЙ записью второй.

Извините. Писал ночью, совсем забыл про связи...

[mihali4]

Мне нужно что-то вроде: выбрал строку нажал на кнопку отправить и строка помещается в необходимый грид

Нате вам пример:

procedure TForm1.Button5Click(Sender: TObject);
begin
DBGrid2.DataSource.DataSet.Append;
DBGrid2.DataSource.DataSet.FieldByName('Kodtov').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Kodtov').Value;
DBGrid2.DataSource.DataSet.FieldByName('Rashod').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Prihod').Value;
DBGrid2.DataSource.DataSet.Post;
end;

[Самоучка]

mihali4
спасибо за код попробую применить Как сделаю напишу.

[Самоучка]

Спасибо все получилось

[Самоучка]

Я сделал так
1) если пользователь по одной записи выбирает данные

procedure TForm1.BitBtn20Click(Sender: TObject);
begin
try
DBGrid2.DataSource.DataSet.Append;
DBGrid2.DataSource.DataSet.FieldByName('Наименование').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Наименование').Value;
DBGrid2.DataSource.DataSet.FieldByName('Код').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Код').Value;
DBGrid2.DataSource.DataSet.FieldByName('Объем').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Объем (шт, л, м3)').Value;
DBGrid2.DataSource.DataSet.Post;
except
   on exception do
ShowMessage('В таблице уже есть запись с такими данными' +#13);
end;
end;

2) если пользователь хочет передать все данные

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
try
Table1.First;
while not Table1.Eof do begin
DBGrid2.DataSource.DataSet.Append;
DBGrid2.DataSource.DataSet.FieldByName('Наименование').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Наименование').Value;
DBGrid2.DataSource.DataSet.FieldByName('Код').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Код').Value;
DBGrid2.DataSource.DataSet.FieldByName('Объем').Value:=
DBGrid1.DataSource.DataSet.FieldByName('Объем (шт, л, м3)').Value;
DBGrid2.DataSource.DataSet.Post;
Table1.Next;
  end;
    Screen.Cursor := crDefault;
except
   on exception do
ShowMessage('Прежде чем перенести данные очистите таблицу - Переработка' +      #13);
end;
end;

3) если выходит сообщение об ошибке

Прежде чем перенести данные очистите таблицу - Переработка

procedure TForm1.Button1Click(Sender: TObject);
begin
try
Table2.Delete;
while not Table2.Eof do
  begin
DBGrid2.DataSource.DataSet.Delete;
Table2.First;
  end;
    Screen.Cursor := crDefault;

except
   on exception do
ShowMessage('Таблица не заполнена' +
                            #13);
end;
end;

[_Engine_]

DBGrid2.DataSource.DataSet.Append;

Да уж, самый ближний путь, чтобы добраться до DataSet'a

[SergeySV]

Парни спасите курсовик на носу
база магазин типо товаров PARADOX db через тайблы и SQL запросы у меня
Система такая несколько таблиц с товарами разных типов и одна общая где можно поглядеть все там же работает поиск сортировка всё такое из неё я делаю выборку что чел захочет купить в корзину суть в том что я сделал эту таблицу главной те с товарами дочерние (надеюсь правильно сделал) вот когда добавляю в те дочерние новые товары надо чтоб и в эту главную где всё добавлялось и писало в одном поле имя таблицы в которой я добавлял эту строку.. а она мне при добавлении через навигатор пишет нет записи в мастер таблице что то тип такого... я так понимаю связи я сделал и они работают.. а как с этим быть посоветуйте???