zoukankan      html  css  js  c++  java
  • get record count of form datasource

    modified class : SysQuery

    public client server static Integer countTotal(QueryRun _queryRun,int num = 1)//add datasource num
    {
        container c = SysQuery::countPrim(_queryRun.pack(false),num);

        return conpeek(c,1);
    }

    private server static container countPrim(container _queryPack,int num = 1)//add datasource num
    {
        Query                   countQuery;
        QueryRun                countQueryRun;
        QueryBuildDataSource    qbds;
        QueryBuildFieldList     qbfl;
        Common                  common;
        Integer                 counter;
        Integer                 loops;
        ;
        countQueryRun   = new QueryRun(_queryPack);
        countQuery      = countQueryRun.query();
        qbds            = countQuery.dataSourceNo(num);//put datasource num
        qbds.update(false);
        qbds.sortClear();
        qbfl = qbds.fields();
        qbfl.dynamic(false);
        qbfl.clearFieldList();
        //if (countQuery.dataSourceCount() == 1)  //remark this
            qbds.addSelectionField(fieldnum(Common,RecId),SelectionField::Count);

        countQueryRun   = new QueryRun(countQuery);

        while (countQueryRun.next())
        {
            common  = countQueryRun.get(countQuery.dataSourceNo(num).table());//put datasource num
            counter += common.RecId;
            loops++;
        }

        return [counter,loops];
    }

    usage:

        Query query;
        QueryRun queryRun;
        ;
        query =new query();

        query.addDataSource(tablenum(CustTable)).addRange(fieldnum(CustTable,AccountNum)).value(queryRange('000001','000008'));


        queryRun = new QueryRun(query);
        info(strfmt('%1',SysQuery::countTotal(queryRun)));

  • 相关阅读:
    使用CuteFTP登陆FTP(servU)服务器后无法LIST目录和文件的解决方法
    delphi技巧集锦之一
    delphi技巧集锦之二
    关于varchar(max), nvarchar(max)和varbinary(max)
    别告诉我你会用WORD
    Showmodal与show的区别
    SET ANSI_NULLS ON的用法
    {右键我的电脑无法打开计算机管理}解决方法
    Word常用技巧
    Excel 使用技巧集锦——163种技巧
  • 原文地址:https://www.cnblogs.com/lingdanglfw/p/1963596.html
Copyright © 2011-2022 走看看