| 程序样例: $LIENS    系统开始对数据库取数放到屏幕里ffice ffice" /> 
 If !clalev([F:ESD] ): Local File EXTSHIPD [ESD] : Endif    判断表esd是否打开,如果没有打开,则打开该表 nolign=0    行号初始化 窗口列表中第一行中行号为0 
 For [F:ESD]ESD1 Where SDHNUM=[M:ESH0]SDHNUM   循环//循环条件窗口esho中的单号,SDHNUM=SDHNUM,每循环一次,找到下一条满足条件的记录     [M:ESH1]NBLIG=[F:ESD]NBLIG                                            将表ESD的值NBLIG 放到窗口ESH1的NBLIG列中     [M:ESH1]ITMREF(nolign)=[F:ESD]ITMREF                 同上,逐行将表中记录放到窗口中。            [M:ESH1]QTY(nolign)=[F:ESD]QTY     [M:ESH1]SAU(nolign)=[F:ESD]SAU     [M:ESH1]ISDLIN(nolign)=[F:ESD]ISDLIN     [M:ESH1]FROSER(nolign)=[F:ESD]FROSER     [M:ESH1]TOSER(nolign)=[F:ESD]TOSER     [M:ESH1]PITCDT(nolign)=[F:ESD]PITCDT     nolign+=1    放到窗口的下一行 Next  
 Return |