![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Возник такой вопрос.
1)Я перехожу на следующую строку грида с помощью Код:
Dbgrideh1.DataSource.DataSet.Next 2)Как удалить/добавить программно строку,но только так , что бы нумерация строк после удаления не нарушалась. |
|
#2
|
|||
|
|||
|
1.
Код:
procedure NextRec;
var
BM : TUniBookmarkEh;
F : Boolean;
begin
BM := DBGridEh1.DataSource.DataSet.Bookmark;
F := False;
DBGridEh1.DataSource.DataSet.Next;
while not DBGridEh1DataSource.DataSet.Eof do begin
if DBGridEh1.DataSource.DataSet.FieldValues['V'] then begin
F := True;
break;
end;
DBGridEh1.DataSource.DataSet.Next;
end;
if not F then
DBGridEh1.DataSource.DataSet.Bookmark := BM;
end;Но в этом случае необходим также "предохранитель" от ситуации, когда ни в одной строке "галки" не будет. 2. А кто (что) пронумеровал строки? И в каком виде эти номера строк присутствуют? Последний раз редактировалось Vocabulary, 31.01.2012 в 14:45. |
|
#3
|
|||
|
|||
|
TUniBookmarkEh
ошибка в этом,что то в uses надо добавлять? |
|
#4
|
|||
|
|||
|
uses EhLibVCL;
|
|
#5
|
|||
|
|||
|
Всё работает,огромное спасибо за помощь.
![]() |