Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.01.2012, 17:40
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию Несколько вопросов по работе с DBGrid'ом

Возник такой вопрос.
1)Я перехожу на следующую строку грида с помощью
Код:
  Dbgrideh1.DataSource.DataSet.Next
а как сделать так же только, что бы переходило только по тем строкам в которых отмечена галочка,поле называется V,компонент DBGridEh.
2)Как удалить/добавить программно строку,но только так , что бы нумерация строк после удаления не нарушалась.
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
  #2  
Старый 31.01.2012, 08:50
Vocabulary Vocabulary вне форума
Новичок
 
Регистрация: 17.09.2009
Сообщения: 85
Репутация: 9
По умолчанию

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  
Старый 31.01.2012, 16:18
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию

TUniBookmarkEh
ошибка в этом,что то в uses надо добавлять?
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
  #4  
Старый 31.01.2012, 16:33
Vocabulary Vocabulary вне форума
Новичок
 
Регистрация: 17.09.2009
Сообщения: 85
Репутация: 9
По умолчанию

uses EhLibVCL;
Ответить с цитированием
  #5  
Старый 31.01.2012, 16:42
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию

Всё работает,огромное спасибо за помощь.
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter