DBASEⅢ宏代换巧用一例

Author: 西南铝加工厂张建勇 Date: 1992-05-01

        设根据一个原始库，用sum求和计算某固定表格的纵栏数据，计算结果放一目标库中。它的每一栏都有特定的组合条件，如果简单地用sum语句计算，则每一个数据均须有一条sum语句才能求出结果，因而设计程序时所用语句非常累赘。倡，如果在目录库中增加一个字符型的条件字段，把求和所需条件放入此字段中，则只需用数句，即可完成所需求和条件的组合。
        设1区为计算结果库，2区为打开的原始数据库，1区中until字段为条件字段。设计如下程序段。
        select 1
        go top
        do while .not. eof()
        tempc=until &&
        select 2
        sum… to…for &tempc
        &&
        select 1
        rep1…with… &&
        skip
        enddo
        假设某栏统计“出口”(C1)的“型材”(C5)，则只需在对应栏until字段中写“C1='出品'.and.C5='型材'。
        用此种方法设计程序非常精练实用。如要改变一个条件，只需改变until字段；如果要增减表栏，也丝毫不用修改程序，只需增减相应记录即可。