Показать сообщение отдельно
  #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. А кто (что) пронумеровал строки? И в каком виде эти номера строк присутствуют?
Ответить с цитированием