Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.05;
Скачать: CL | DM;

Вниз

Ошибка при работе с 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);



Страницы: 1 вся ветка

Текущий архив: 2002.12.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
3-14464
Kurt
2002-11-18 18:05
2002.12.05
Не подскажите а можно ли передовать 2 папраметра из главной


8-14685
Aleshka
2002-08-16 20:54
2002.12.05
Может кто знает как перевести HSV->RGB


14-14755
Slava
2002-11-14 06:31
2002.12.05
А где моя анкета, извините?


6-14700
daan_m
2002-10-06 14:26
2002.12.05
Как загрузить прогу на удалённом компе в локальной сети;


3-14365
sanekk
2002-11-18 13:35
2002.12.05
Заголовки столбцов в DBGrid