pb數據導出

1.在窗口新建用戶事件 ue_export
2.事件調用函數 gf_dw_to_excel(THIS.dw_dict)
3.寫函數 ：boolean lb_setborder
boolean lb_mergecolumnheader
boolean lb_setmaxrow
string ls_objname
string ls_borderbeinobj
string ls_borderendobj
string ls_filename
integer li_printheader
n_cst_dw2excel n_excel
string ls_path
string ls_file
integer li_rc
li_rc = getfilesavename("請選擇你要保存的文件名稱",ls_path,ls_file,"xls","All Files (*.xls),*.xls","d:\",32770)
IF li_rc = 1 THEN //1
ls_filename = ls_path
END IF //1
n_excel.of_setgridborder(lb_setborder,ls_borderbeinobj,ls_borderendobj)
n_excel.of_mergecolumnheader(lb_mergecolumnheader,ls_objname)
n_excel.of_setprintheader(li_printheader)
n_excel.of_settipswindow("w_tipsabc","正在生成Excel文件,請稍候.....")
n_excel.of_dw2excel(dw_export_exlcel,ls_filename)
4.窗口的導出按鈕觸發事件
PARENT.triggerevent("ue_export")
RETURN

 

保存到Excel文件中
OLEObject ole_object , ole_workbooks
ole_object = CREATE OLEObject
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN
MessageBox('OLE錯誤','OLE沒法鏈接!')
return
END IF
ole_object.workbooks.add
ole_object.Visible = True
ole_workbooks = ole_object.Worksheets(1)
ole_workbooks.cells(1,1).value="任務號"
ole_workbooks.cells(1,2).value="次序"
ole_workbooks.cells(1,3).value="步數"
ole_workbooks.cells(1,4).value="機器號"
ole_workbooks.cells(1,5).value="開始時間"
ole_workbooks.cells(1,6).value="結束時間"
long l_row
for l_row = 2 to dw_1.rowcount()
ole_workbooks.cells(l_row,1).value=dw_1.getitemstring(l_row,1)
ole_workbooks.cells(l_row,2).value=dw_1.getitemnumber(l_row,2)
ole_workbooks.cells(l_row,3).value=dw_1.getitemnumber(l_row,3)
ole_workbooks.cells(l_row,4).value=dw_1.getitemnumber(l_row,4)
ole_workbooks.cells(l_row,5).value=dw_1.getitemtime(l_row,5)
ole_workbooks.cells(l_row,6).value=dw_1.getitemtime(l_row,6)
next
ole_workbooks.SaveAs ("d:\data.xls")
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooks