程序样例: $LIENS 系统开始对数据库取数放到屏幕里fficeffice" />
If !clalev([F:ESD] ): Local File EXTSHIPD [ESD] : Endif nolign=0
For [F:ESD]ESD1 Where SDHNUM=[M:ESH0]SDHNUM [M:ESH1]NBLIG=[F:ESD]NBLIG [M:ESH1]ITMREF(nolign)=[F:ESD]ITMREF nolign是行号索引,从0开始。因为是一行行取,所以nolign要循环+1。 [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 |