zoukankan      html  css  js  c++  java
  • 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

    基本的PB知识学习之路
  • 相关阅读:
    ubuntu14.04安装chromium以及flash插件
    linux fuser的使用
    对max_allowed_packet这个参数的误解
    Linux hostname主机名配置文件与文件 /etc/hosts解析(copy来的,原作者看到了别打我)
    三个参数,对mysql存储限制的影响
    唉,没来这里好久了,也意味着我这一年多来没干什么正事儿,是回归的时候了!(简单谈谈爬虫的解析器)
    STM32 宏定义翻转端口
    ascii码表
    平均值算法
    stm8 16M晶振下精确软件延时
  • 原文地址:https://www.cnblogs.com/IT-XiaoBao/p/13485580.html
Copyright © 2011-2022 走看看