Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];
Внизмножественный выбор в DBGrid Найти похожие ветки
← →
АндрейК (2007-09-24 13:48) [0]Здравствуйте! Подскажите про множественный выбор в DBGrid! Как вывести в memo список значений Поля1 выбранных записей. Что-то никак не получается!
← →
Desdechado © (2007-09-24 14:03) [1]SelectedRows
← →
Ega23 © (2007-09-24 14:08) [2]
> SelectedRows
плюс к этому DBGrid.Options - dgMultiSelect := True;
← →
Slym © (2007-09-24 14:11) [3]
DM.Users.DisableControls;
try
SafePlase:=DM.Users.GetBookmark;
try
DM.Providers.DisableControls;
try
for i:=0 to ContactGrid.SelectedRows.Count-1 do
begin
DM.Users.Bookmark:=ContactGrid.SelectedRows.Items[i];
if DM.Providers.Locate("Name",DM.Users["Provider"],[loCaseInsensitive]) then
putToStack;
end;
finally
DM.Providers.EnableControls;
end;
finally
DM.Users.GotoBookmark(SafePlase);
DM.Users.FreeBookmark(SafePlase);
end;
finally
DM.Users.EnableControls;
end;
← →
АндрейК (2007-09-25 05:21) [4]Slym! Спасибо! С твоей помощью получилось!
← →
Desdechado © (2007-09-25 12:44) [5]Он тебе медвежью услугу сделал.
← →
clickmaker © (2007-09-25 12:51) [6]да в хелпе даже пример есть
The following example copies the selected rows in a db grid to a list box.
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+", ";
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= "";
end;
end;
← →
LogicError (2007-09-25 14:51) [7]
DM.Users.DisableControls;
try
SafePlase:=DM.Users.GetBookmark;
try
DM.Providers.DisableControls;
try
for i:=0 to ContactGrid.SelectedRows.Count-1 do
begin
DM.Users.Bookmark:=ContactGrid.SelectedRows.Items[i];
if DM.Providers.Locate("Name",DM.Users["Provider"],[loCaseInsensitive]) then
putToStack;
end;
finally
DM.Providers.EnableControls;
end;
DM.Users.GotoBookmark(SafePlase);
finally
DM.Users.FreeBookmark(SafePlase);
end;
finally
DM.Users.EnableControls;
end;
← →
Johnmen © (2007-09-25 17:40) [8]
> LogicError (25.09.07 14:51) [7]
Чё-то не работает. Что бы это могло быть?
← →
Германн © (2007-09-25 17:46) [9]
> Чё-то не работает. Что бы это могло быть?
>
LogicError
:-)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.057 c