Delphi GotoBookmark

  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;