Форум: "Базы";
Текущий архив: 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