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