程序样例: $LIENS 系统开始对数据库取数放到屏幕里fficeffice" />
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 |