Delphi GotoBookmark

最新推荐文章于 2024-05-15 07:58:00 发布

原创最新推荐文章于 2024-05-15 07:58:00 发布 · 3.5k 阅读

1 ·

CC 4.0 BY-SA版权

程序同时被 2 个专栏收录

94 篇文章

订阅专栏

程序Delphi

46 篇文章

订阅专栏

本文介绍了一种在特定数据库环境中，通过ADOQuery组件批量查询并整合订单信息的方法，包括定位到选中订单、获取订单编号，并将这些信息整合成字符串的过程。此技术适用于需要高效处理大量订单数据的应用场景。

TMP_Str_List_no := '';
with DBGridEh_YingSh_SearchYS do
begin
    with DM_Xiao.ADOQuery_xiaoshou_selectyshk do
    begin
      Selectrow_Count := SelectedRows.Count;
      if Selectrow_Count > 0 then
        for i := 0 to Selectrow_Count - 1 do
        begin
          //移到选中的标签处
          GotoBookmark(pointer(DBGridEh_YingSh_SearchYS.SelectedRows.Items[i]));
          TMP_Str_List_no := TMP_Str_List_no + FieldByName('shk_dh').AsString;
          if i <> selectrow_count - 1 then
            TMP_Str_List_no := TMP_Str_List_no + ',';
        end
      else
      begin
        TMP_Str_List_no := '';
        MsgInfo('请选择订单。');
        Abort;
      end;
    end;
end;