Ошибка при работе с Query.GotoBookmark

← →
Skolotovich (2002-11-15 14:30) [0]

Уважаемые Мастера програмирования помогите добрым советом

Испоьзую EhLib 2.0 на D6
на еашгриде стоит мультиселект
пользователь выделяет, что ему надо и отправляет на печать или
превьюв
так при этом действии вылетает следующее
"Corrupt file - other than header.
File: D:\Work\park099alfa\_QSQ11.DB"
(насколько я понял _QSQ11.DB - чтото вроде временного файлы)

листинг предпросммотра:
procedure TmainForm.ToolButton3Click(Sender: TObject);
var i: integer;
query: string;
selectInd: TStrings;
begin
query:="select * from db_comp where ind = ";
selectInd:=TStringList.Create;
if myDBGridEh.SelectedRows.Count>0 then
begin
for i:=0 to myDBGridEh.SelectedRows.Count-1 do
begin
myDataModule.opQuery.GotoBookmark(pointer(myDBGridEh.SelectedRows.Items[i]));
selectInd.Add(myDataModule.selAllQuery.FieldByName("ind").AsString);
end;
query:=query+selectInd.Strings[0];
for i:=1 to selectInd.Count-1 do query:=query+" or ind = "+selectInd.Strings[i];
myDataModule.RunQuery(query);
QRForm.DBQuickRep.Preview;
end
else MessageDlg("Не выделено ни одной строки!", mtInformation, [mbOK], 0);
end;

поседура печати аналогична
плиз помогите начинаящему

← →
Skolotovich (2002-11-15 15:32) [1]

Уже разобрался сам
рабочий листинг:

query:="select * from db_comp where ind = ";
selectInd:=TStringList.Create;
if myDBGridEh.SelectedRows.Count>0 then
begin
with myDBGridEh.DataSource.DataSet do
for i:=0 to myDBGridEh.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(myDBGridEh.SelectedRows.Items[i]));
selectInd.Add(Fields[0].AsString);
end;
query:=query+selectInd.Strings[0];
for i:=1 to selectInd.Count-1 do query:=query+" or ind = "+selectInd.Strings[i];
myDataModule.RunQueryAll(query);
QRForm.DBQuickRep.Preview;
end
else MessageDlg("?? ???????? ?? ????? ??????!", mtInformation, [mbOK], 0);

Ошибка при работе с Query.GotoBookmark Найти похожие ветки