Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Вниз

Как в DBGrideEh получить номера выделенных строк?   Найти похожие ветки 

 
Andriano   (2002-11-11 14:42) [0]

Подробнее: Разрешено мультивыделение в DBGRideEh. Выделил. Как теперь получить номера выд. строк, для последующей обработки строк в DataSet-е?

Спасибо.


 
Skolotovich   (2002-11-11 15:49) [1]

query:="select * from db_comp where ind = ";
changePrn:=OKRightDlg.getChange;
case changePrn of
0:
begin
if not myDataModule.RunQuery(query+myDataModule.myQuery.FieldByName("ind").AsString) then
begin
MessageDlg("Ошибка в базе!!!", mtError, [mbOK], 0);
end;
QRForm.DBQuickRep.Print;
// myDataModule.RunQuery("select * from db_comp");
end;
1:
begin
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.opQuery.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.Print;
// myDataModule.RunQuery("select * from db_comp");
end
else MessageDlg("Не выделено ни одной строки!", mtInformation, [mbOK], 0);
selectInd.Free;

надеюсь разберешся :-)


 
Andriano   (2002-11-11 15:59) [2]

Значит myDBGridEh.SelectedRows.Items[i] это и есть Bookmark, поддерживаемый DataSet. Понятно. Спасибо.


 
Skolotovich   (2002-11-11 16:28) [3]

в eh - кмпонентах отличный хелп очень советую
я сам с этим три дня назад разобрался благодоря великому F1



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

Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
1-92997
Sergei
2002-11-18 10:05
2002.11.28
ListView Item Hieght


1-93137
MetalFan
2002-11-18 10:35
2002.11.28
как узнать версию MS Office?


4-93284
Smoker
2002-10-15 00:29
2002.11.28
Подскажите,как перехватить печать из MS-DOS а


1-93023
AndreyAgSoft
2002-11-19 11:09
2002.11.28
Перезагрузка


14-93238
evgeg
2002-11-08 19:39
2002.11.28
Первый настоящий ужас Стивен Кинг испытал,





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский