文件名称:数据窗口导出EXCEL
文件大小:201KB
文件格式:PBL
更新时间:2017-05-01 14:42:00
dw2EXCEL
long ll writer row 0 long ll dw row long ll dw row cnt integer li cur band integer li ret 1 integer li percent of analyse 0 integer li percent of process 0 long ll change progress each 0 long ll cur change progress 0 integer li progress boolean lb newpage ll dw row cnt idw dw RowCount + 1 if ib show progress then li percent of analyse round 100 ii analyse as rowcount ll dw row cnt + ii analyse as rowcount 0 li percent of process 100 li percent of analyse if li percent of process > 0 then ll change progress each long round ll dw row cnt li percent of process 0 else ll change progress each ll dw row cnt end if end if li ret of analyse dw li percent of analyse if li ret <> 1 then return li ret li ret of set col width if li ret <> 1 then return li ret for ll dw row 1 to ll dw row cnt + 1 bug fixed 12 11 2003 ll dw row 1 do while ll dw row < ll dw row cnt for ll dw row 1 to ll dw row cnt step ii rows per detail lb newpage of is newpage ll dw row for li cur band 1 to ii band count ll writer row + invo bands [ li cur band ] of check process row ll dw row ll writer row lb newpage if ib cancel then li ret 1 exit end if next if ib show progress then ll cur change progress ++ if ll cur change progress > ll change progress each then li progress integer round ll dw row ll dw row cnt li percent of process 0 of show progress li percent of analyse + li progress ll cur change progress 0 end if end if if li ret <> 1 then exit ll dw row + ii rows per detail if ii rows per detail > 1 then if ll dw row > ll dw row cnt and & ll dw row ii rows per detail < ll dw row cnt then ll dw row ll dw row cnt end if loop if invo parm ib hide grid then invo cur sheet of hide gridlines 3 end if if ib show progress then of show progress 100 close iw progress ib show progress false SetNull iw progress end if return li ret">long ll writer row 0 long ll dw row long ll dw row cnt integer li cur band integer li ret 1 integer li percent of analyse 0 integer li percent of process 0 long ll change progress each 0 long ll cur change progress 0 integer li progress boolean lb newpage ll dw row cnt idw dw RowCount [更多]