Linux初探欢迎您的投稿，投放方法请点击
这里查看，我们会定期赠送精美小礼品给优秀的投稿作者。海纳百川 取则行远！LinuxGoo欢迎您的到来。
pointer oldpointeroldpointer=setpointer(hourglass!)STRING date1,DATE2,qty1,ls_cust,pictname,ff,docname, named,PATH string aas_condition_print hy_ditio......
pointer oldpointer
oldpointer=setpointer(hourglass!)
STRING date1,DATE2,qty1,ls_cust,pictname,ff,docname, named,PATH
string aa
s_condition_print hy_dition
long i=1,k,m,P=1,RET,B,f,VALUE,rows2,flg
PATH=GETPATH()
OLEObject xlapp,hxp
xlapp = Create OLEObject
ret = xlapp.ConnectToNewObject("Excel.Application")
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xlapp.Application.Workbooks.Open("C:\pbssystem\DOCUMENT\PHOTODETAIL.xls")
xlapp.Application.Visible = true
rows2=DW_1.rowcount()
K=CEILING(rows2/3)
for i=1 to K - 1
b=53*i 1
aa='A' string(B)
xlapp.Application.range("A1:I53").Select
xlapp.Application.Selection.Copy
xlapp.Application.range(AA).Select
xlapp.Application.Selection.Insert()
next
M=3
for i=1 to ROWS2
IF I>2 AND MOD(I,3)=1 THEN
M=M 2
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M,3]=dw_1.object.itemnumber[i]
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M 1,3]=dw_1.object.briefdesc[i]
if rb_5.checked=true then
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M 6,3]=dw_1.object.packing_1[i]
else
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M 6,3]=dw_1.object.b_viewocgroup_packing[i]
end if
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M 9,3]=dw_1.object.b_viewocgroup_esti_meas[i]
IF photoflag=1 OR photoflag=3 THEN
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M 2,3]=dw_1.object.i_itembasic_detaildesc[i]
END IF
IF photoflag=1 OR photoflag=2 THEN
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M 10,3]=dw_1.object.b_viewocgroup_sold_price[i]
xlapp.Application.ActiveWorkbook.Worksheets[1].Cells[17*(I - 1) M 11,3]=dw_1.object.compute_3[i]
END IF
pictname=dw_1.object.photo1[i]
f=17*(i - 1) m
ff="A" string(f)
xlapp.Application.ActiveWorkbook.Worksheets[1].Range(ff).Select
if pictname<>'' and not(isnull(pictname)) then
// if GetJpgSize(pictname)<>0 then
if flg = 0 then flg = photoexist( pictname)
if FILEEXISTS(filename) = true then
xlapp.Application.ActiveSheet.Pictures.Insert(string(pictname)).select
1/4 1 2 3 4 下一页 尾页 |
