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

Вниз

Работа с информацией из выбранных строк в DbGrid   Найти похожие ветки 

 
Karlson   (2004-06-21 18:26) [0]

Добрый день! Как работать с каждой записью грида, которые были выбраны пользователем (select). Заранее спасибо!


 
Плохиш ©   (2004-06-21 19:00) [1]

SelectedRows


 
Karlson   (2004-06-21 19:29) [2]

А дальше что? вот мне нужно узнать, что записано в 10 столбце каждого рядочка выделенного. Беру SelectedRows.Items[i], проганяю i от 0 до Count и активным остается только последний ряд, а как прогнать все?


 
Ярослав   (2004-06-21 20:51) [3]

Возвращает список содержимого первого поля набора данных (SourceDBGrid.DataSource.DataSet.Fields[0]) при желании можно брать любое поле.
Функция универсальная, в качестве параметра нужно указать нужную DBGrid

function MultiSelectDBG(SourceDBGrid: TDBGrid): TStrings;
var x: integer;
   TempBookmark: TBookmark;
begin
Result:=TStringList.Create;
Result.Clear;
Result.Add(IntToStr(SourceDBGrid.DataSource.DataSet.Fields[0].AsInteger));
SourceDBGrid.DataSource.DataSet.DisableControls;
with SourceDBGrid.SelectedRows do
  begin
    if Count <> 0 then  begin
      Result.Clear;
      TempBookmark := SourceDBGrid.DataSource.DataSet.GetBookmark;
        for x := 0 to Count - 1 do begin
          if IndexOf(Items[x]) > -1 then begin
            SourceDBGrid.DataSource.DataSet.Bookmark := Items[x];
            Result.Add(IntToStr(SourceDBGrid.DataSource.DataSet.Fields[0].AsInteger));
          end;
        end;
      SourceDBGrid.DataSource.DataSet.GotoBookmark(TempBookmark);
      SourceDBGrid.DataSource.DataSet.FreeBookmark(TempBookmark);
    end;
  end;
SourceDBGrid.DataSource.DataSet.EnableControls;
end;



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

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

Наверх





Память: 0.45 MB
Время: 0.033 c
14-1088399763
VEG
2004-06-28 09:16
2004.07.18
Есть довольно раскрученный ресурс. Что посоветуете?


1-1088962595
TUser
2004-07-04 21:36
2004.07.18
PAnsiChar и GetShortPathName


4-1086533171
ZDima
2004-06-06 18:46
2004.07.18
Как нажать на кнопку внутри Flash ролика?


1-1088693556
Agent[007]
2004-07-01 18:52
2004.07.18
Циклы...


8-1083752286
LexusU
2004-05-05 14:18
2004.07.18
Сглаженный Zoom в TImage





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский