Здравствуйте. Вот в чём проблема: есть DBGrid - в нём несколько колонок, указан некоторый DataSource откуда и берутся данные. При печати печатаются все строки этого DBGrida. Мне же нужно чтобы печатались лишь выбранные. Для этого в запросе, который использ. для этого DBGrida я добавил ещё одно поле SELECTION - соответственно и втаблицу БД откуда выбираются данные тоже пришлось добавить такое же поле, в котором ничего не содержится (' '). Теперь при нажатии пробела сделал обработчик, который заносит в это поле произвольную метку ('X').
Теперь при печати печатаются только те строки в которых поле SELECTION имеет метку ('X').
Всё бы хорошо да только вот установка этих меток (особенно для нескольких строк) происходит слишком медленно. И ещё было проверено что во время установки этих меток, которые служат всего лишь для печати происходит UPDATE таблици в БД. Из-за чего при работе нескольких пользователей возникают блокировки.
Если кто-то знает как можно реализовать эти метки для печати проще пожалуйста подскажите. Если можно по подробнее, потому что перепробовал много вариантов - не выходит.
Заранее спасибо.

можно сделать проще через метки (включить в Options dgMultiSelect) . при нажатии на кнпку печать, пробегаем по гриду и смотрим в свойство CurrentRowSelected. если оно TRUE, то добавляем поле в список печатаемых полей. после этого останется только вывести на печать сам список. здесь есть варианты. самый, на мой взгляд, грамотный - TRxMemoryTable. формируем виртуальную таблицу и цепляем её к отчёту. более геморройные варианты - вручную формировать данные в том же QuickReport, т.е. в OnNeedData (так, кажется? давно с этим монстром не работал) добавляем записи из нашего списка. трейтий вариант: печатать через excel или даже word. там тоже всё достаточно просто - CreateOleObject и вперёд, на эту тему материалов просто море.

З.Ы. выносить флаг печати в отдельное поле таблицы при мультиюзверном доступе - это смерть, imho

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

Спасибо за ответы.
В Options dgMultiSelect у меня включён и список выводится на печать с помощью QuickReport. Но мне надо чтобы пользователь видел что он выбрал, ну типа моего 'X' в поле SELECTION.

x77И ещё так как уменя небольшой опыт программирования в Delphi можешь показать отрывок текста в котором как, ты говоришь пробегаешь по гриду и смотришь свойство CurrentRowSelected.
Вот моя процедура ответсвенная за вывод напечать:
procedure TLineData.aPrintExecute(Sender: TObject);
Var
pr:TrepLineData;
begin
inherited;
pr:=nil;
with Grd.DataSource.DataSet do try
Filter := 'SELECTION ='+'''X''';
Filtered := True;
pr:=TrepLineData.Create(nil);
// pr.Preview;
pr.PrinterSetup;
pr.print;
pr.free;
Filtered := False;
pr:=nil;
except
on Exception do if pr<>nil then pr.free;
end;
end;

Заранее благодарен.

так если запись выделена, он что, её не увидит? если непременно нужно отдельное поле, сделай CalculatedField и в OnCalcFields присваивай ему, чего надо если в гриде соответствующее поле является выделенным.

x77 На счёт CalculatedField можно какой нибудь примерчик, потому что когда я пролбовал такое сделать выдавалась ошибка что Dataset не находится в режиме редактирования или вставки. Когда я включал режим Edit; моя метка в поле не отображалась.

это потому, что calculated поля надо присваивать только и только в OnCalcFields. при этом датасет не переводится в режим редактирования и физические значения в базе не меняются. собственно, их там и нету

А если все Query i DataSource и соответствующие обработчики в том числе и On CalcFields у меня находятся в отдельной форме мне надо каждый раз из своей формы вызывать этот обработчик или нет. Если да то как?
Огромное спасибо тебе. Уже по чучуть начинаю разбираться.

нет, OnCalcFields будет отрабатывать сам по себе всегда.

Так а как мне в этой отдельной форме где хранится мой OnCalcFields проверять выделена ли моя строка в гриде. Ответь пожалуйста.

попробовал - довольно проблематично единственное, что приходит в голову, это хранить список выделенных полей в какой-то внешней переменной типа TStringList. в DbGrid1.OnMouseUp добавлять поле в список если его там нету, или удалять если оно там есть. при этом надо делать что-то типа Table1.Edit; Table1.Cancel; чтобы заставить датасет пересчитать поля. а после всего этого гемморра в OnCalcFields проверять, если данное поле есть в списке - то ему присваивать значение "Х", если нету - пусто.

слушай, есть вариант попроще, если ты ещё здесь.

Спасибо тебе, итак за помощь, а то целый день мучаюсь. Какой вариант.

насчёт крестиков. вот такой:

Код

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState); begin  with DbGrid1 do begin    if SelectedRows.CurrentRowSelected and      (SelectedRows.Count > 1) and      (Column.Index = 0)    then      with Canvas do begin        Font.Color := clRed;        TextOut (Rect.Left + 2, Rect.Top + 1, 'X');      end;  end; end;