当前位置：文江博客话题详情

刷新DBGrid后选择行

发布于 2024-08-09 01:19:44 字数 171 浏览 11 评论 0原文

好吧，这是我提出的一些n00b问题。我在这里上网和类似的问题，但没有找到这样简单（正如我认为的）问题的任何正确答案。

我有一个数据库网格。我选择一行并使用链接到该行的另一个数据执行一些操作。完成后，我的 DBGrid 被刷新，所选行重置为第一行。我想要选择刷新 DBGrid 数据之前选择的同一行。有什么建议吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

め可乐爱微笑 2024-08-16 01:19:45

RecKey:=DmFRM.ViewTBL.RecNo;
          with DmFRM.ViewTBL do
               begin
                  Active:=false;
                  Active:=True;
                  RecNo:=RecKey;
               end;

RecKey:=DmFRM.ViewTBL.RecNo;
          with DmFRM.ViewTBL do
               begin
                  Active:=false;
                  Active:=True;
                  RecNo:=RecKey;
               end;

回复收藏 0 原文

衣神在巴黎 2024-08-16 01:19:44

刷新之前，将链接数据集的当前选择保存为书签，然后恢复书签。

回复收藏 0 原文

感情旳空白 2024-08-16 01:19:44

这个答案旨在作为梅森的一个小补充，而不是替代。我添加它只是因为出现了另一个答案，在我看来，错误地建议使用数据集的 RecNo 属性。并非所有 TDataSet 后代都可靠地或根本无法实现 RecNo。某些后代仅返回一个常量值，例如当前行的 RecNo 为 0，并且当您为其赋值时不执行任何操作。

procedure TMyForm.DoSomethingWithDataSet(ADataSet : TDataSet);
var
  Bookmark : TBookmark;
begin
  Bookmark := ADataSet.GetBookmark; // Save your place in ADataSet

  try
    Screen.Cursor := crSqlWait;  // Show the user that something is happening
    Update;  // update the form to make sure screen cursor updates
    ADataSet.DisableControls;
    // do something with ADataSet here  e.g.
    ADataSet.First;
    while not ADataSet.Eof do begin
      // do something with current row here, then
      ADataSet.Next;
    end;
  finally
    ADataSet.GotoBookmark(Bookmark);  // Return to where you were at outset
    ADataSet.FreeBookmark(Bookmark);
    ADataSet.EnableControls;
    Screen.Cursor := crDefault;  // Let the user see you're done
  end;
end;

This answer is intended as a minor supplement to Mason's, not an alternative. I've added it only because another answer has appeared, suggesting, incorrectly imo, the use of the dataset's RecNo property. Not all TDataSet descendants implement RecNo reliably or at all. Some descendants just return a constant value e.g. 0 for the current rows's RecNo and do nothing when you assign a value to it.

procedure TMyForm.DoSomethingWithDataSet(ADataSet : TDataSet);
var
  Bookmark : TBookmark;
begin
  Bookmark := ADataSet.GetBookmark; // Save your place in ADataSet

  try
    Screen.Cursor := crSqlWait;  // Show the user that something is happening
    Update;  // update the form to make sure screen cursor updates
    ADataSet.DisableControls;
    // do something with ADataSet here  e.g.
    ADataSet.First;
    while not ADataSet.Eof do begin
      // do something with current row here, then
      ADataSet.Next;
    end;
  finally
    ADataSet.GotoBookmark(Bookmark);  // Return to where you were at outset
    ADataSet.FreeBookmark(Bookmark);
    ADataSet.EnableControls;
    Screen.Cursor := crDefault;  // Let the user see you're done
  end;
end;

回复收藏 0 原文

~没有更多了~