Форум: "Базы";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
Вниз
как определить - выделенна запись в таблице или нет Найти похожие ветки
← →
-=snoop=- © (2005-07-04 09:35) [0]привет всем, есть грид у которого включен мультиселект, в цикле перебираю все записи, нужно отработать только те, которые выделенны, как это проверить?
← →
Digitman © (2005-07-04 09:41) [1]property TCustomDBGrid.SelectedRows: TBookmarkList;
Specifies a set of bookmarks for all the records in the dataset that correspond to rows selected in the grid.
← →
ANB © (2005-07-04 09:47) [2]Оптимально так :
if (ShowDialog("Подтвердите"
, "Удалить выделенные объекты Oracle из проверочного эталлона ?"
, sdiConfirm, ["&Да", "&Нет"]) <> 1) then Exit;
// Переберем все выделенные
n := grOraObjects.SelectedRows.Count - 1;
if (n >= 0) then for i := 0 to n do begin
dm.dsOraObjects.GotoBookmark(Pointer(grOraObjects.SelectedRows.Items[i]));
dm.dsOraObjects.Delete;
end else dm.dsOraObjects.Delete;
Еще есть IsSelected, но его не так удобно юзать + медленнее
← →
Johnmen © (2005-07-04 10:01) [3]>ANB © (04.07.05 09:47) [2]
А в чём оптимальность ?
Зачем if ? Зачем Delete ?
Да и вообще, пример в F1 есть.
← →
ANB © (2005-07-04 10:17) [4]
> Johnmen © (04.07.05 10:01) [3]
- это я лишнее не выкинул из кода.
← →
Johnmen © (2005-07-04 10:25) [5]>ANB © (04.07.05 10:17) [4]
А.... :)
← →
Digitman © (2005-07-04 10:27) [6]
> лишнее не выкинул из кода
и недовыкинул)
← →
-=snoop=- © (2005-07-04 11:03) [7]for i := 0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(form1.DBGrid1.SelectedRows.items[i])) ;
end;
пишет ошибку типа((
GotoBookmark, как нужно объявить как TDataSet или как? блин парюсь
← →
Ega23 © (2005-07-04 11:10) [8]
SaveLocation:=DMpas.RQPers.FieldByName("PersID").AsInteger;
With rxgPersonnel.DataSource.DataSet do
begin
try
DisableControls;
for i:=0 to rxgPersonnel.SelectedRows.Count-1 do
begin
Application.ProcessMessages;
GotoBookmark(Pointer(rxgPersonnel.SelectedRows.Items[i]));
ss:="exec S_SchedSpec @mode=51, @PersID="+
ValX(DMpas.RQPers.FieldByName("PersID").AsInteger,",")+
"@ModeFl="+ValX(ModeFl,",")+
"@UserPersID="+ValX(SessInfo.PersId,",")+"@UserWorkCod="+ValX(SessInfo.Workcod,",")+
"@DatOut="+ValX(DatOut);
QuExec(DMpas.RQTemp,ss);
end;
Locate("PersID",SaveLocation,[]);
finally
EnableControls;
end;//try
end;
rxgPersonnel.SelectedRows.Clear;
Вполне работающий код...
← →
Johnmen © (2005-07-04 11:11) [9]Тут дело такое, либо париться, либо посмотреть пример в F1.
Кто что больше предпочитает...:)
← →
-=snoop=- © (2005-07-04 11:14) [10]смотрел в F1 (((
сделал)))
← →
Digitman © (2005-07-04 11:20) [11]
пишет
"Писатель ! Ильф и Петров !" (с)
> ошибку типа
типа типа "чиста канкретна" ?)
← →
-=snoop=- © (2005-07-04 11:24) [12]не конкретно)) а "типа" ))
← →
msguns © (2005-07-04 12:05) [13]Веселая ветка ;)
← →
-=snoop=- © (2005-07-04 12:45) [14]Не могу удалить выделенную строку,
form1.DBGrid1.SelectedRows.Delete
ругается
← →
Digitman © (2005-07-04 12:54) [15]
> Не могу
к терапевту.
> ругается
матерно ?
← →
-=snoop=- © (2005-07-04 13:01) [16]2 Digitman а может иаду выпить?
← →
Digitman © (2005-07-04 13:04) [17]
> -=snoop=- © (04.07.05 13:01) [16]
на твое усмотрение
← →
-=snoop=- © (2005-07-04 13:20) [18]ну а по делу ничего...
← →
Digitman © (2005-07-04 13:28) [19]а по делу - задавай КОНКРЕТНЫЙ вопрос, с КОНКРЕТНЫМ же твоим "типа"
а не ту бредь, что ты сейчас несешь, вперемешку с доморощенным жаргоном
← →
-=snoop=- © (2005-07-04 13:36) [20]2 Digitman hjkdlshgl;s = это по французСки
пишет ошибку типа(( не значит КОНКРЕТНО, не значит В НАТУРЕ
это просто скромное "error type"
а иаду выпить нужно те,,,фсе же
← →
Digitman © (2005-07-04 13:50) [21]
> иаду
> те
> фсе
> типа
детский сад.
← →
Mike Kouzmine © (2005-07-04 21:02) [22]получи из списка закладку, перейди на нее, удали запись и так до посинения.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.011 c
