Цитата(Cashey @ 23.3.2009, 16:47  ) | | надо понять чему у вас RecNo равно. Если стоит сортировка, то RecNo не будет равно номеру видимой записи. |
Я тоже думаю, что проблема именно в этом.
| Цитата(Akella @ 23.3.2009, 16:58 ) | | а более полный код |
Давайте я выложу весь код, имена свои не менял, просто скопировал, но думаю тут понятно:
| Код |
procedure TfmProv.SourceProvDataChange(Sender: TObject; Field: TField);
begin
with Prov do begin
UpBtn.Enabled:= not Bof;
DownBtn.Enabled:= not Eof;
end;
end;
procedure TfmProv.UpBtnClick(Sender: TObject);
var
SavePos: TBookmark;
S1Value, S2Value: integer;
begin
with Prov do
if not Bof then begin
DisableControls;
try
SavePos:= GetBookmark;
try
S1Value:= ProvPNo.AsInteger;
Prior;
S2Value:= ProvPNo.AsInteger;
Edit;
ProvPNo.AsInteger:= S1Value;
Post;
GotoBookmark(SavePos);
Edit;
ProvPNo.AsInteger:= S2Value;
Post;
finally
FreeBookmark(SavePos);
end;
finally
EnableControls;
end;
end;
DBGridProv.SetFocus;
end;
procedure TfmProv.DownBtnClick(Sender: TObject);
var
SavePos: TBookmark;
S1Value, S2Value: integer;
begin
with Prov do
if not Eof then begin
DisableControls;
try
SavePos:= GetBookmark;
try
S1Value:= ProvPNo.AsInteger;
Next;
S2Value:= ProvPNo.AsInteger;
Edit;
ProvPNo.AsInteger:= S1Value;
Post;
GotoBookmark(SavePos);
Edit;
ProvPNo.AsInteger:= S2Value;
Post;
finally
FreeBookmark(SavePos);
end;
finally
EnableControls;
end;
end;
DBGridProv.SetFocus;
end;
|
----------------------------------------------------------------
Prov - таблица
ProvPNo - сортировочное индексированное поле
DBGridProv - сетка
|