PB dw2xls 怎么用啊

[oldabc]

昨天询问生成EXECEL方法
大家帮忙让使用dw2xls

下载下来是一个PBL
真不会用


想问问高手
按钮里怎么写代码啊 使用DW2XLS啊？

麻烦了

[sun1976]

你看他的例子啊,里面有调用某个函数,你把他的pbl挂到你的应用里，也调用那个函数就行了。
函数开头都有很详细的注释说明的

[newease]

不知道你用的是哪个版本的

有黄国酬，还有国外破解 调用的方法不太一样


例如
string ls_path
string ls_file
integer li_rc

if parent.dw_1.rowcount() > 0 then
li_rc = getfilesavename("选择保存文件",ls_path,ls_file,"xls","电子表格 (*.XLS),*.XLS","d:\",32770)

if li_rc = 1 then
uf_save_dw_as_excel(dw_1,ls_file)//调用函数
//u_save_xls(dw_1)
end if

end if

[newease]

还有一种方式
Boolean lb_SetBorder ,lb_MergeColumnHeader
Boolean lb_SetMaxRow
String ls_ObjName
String ls_BorderBeinObj, ls_BorderEndObj
String ls_FileName
Int li_PrintHeader
n_cst_dw2excel n_excel
//n_excel=create n_cst_dw2excel

//设置报表从列标题行开始，到报表的最后一行，是否需要输出单元边框
//如果报表是Grid形式的报表，不需要设置
string ls_docname, ls_named
integer li_value
li_value = GetFileSaveName("请选择输出到文件名:", ls_docname, ls_named, "XLS", "Excel Files (*.XLS), *.XLS" )
IF li_value = 1 THEN
ls_FileName=ls_docname
end if

IF li_PrintHeader=1 THen
li_PrintHeader=2
ELSEIF li_PrintHeader=2 Then
li_PrintHeader=1
ELSE
li_PrintHeader=0
END IF


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_1,ls_FileName)

[hxbkkk]

先附加进去，再选择上面的2种之一，比较好的就是这2个了

[sybasebbs]

http://www.sybasecn.com/sybase/viewthread.php?tid=3872&extra=page%3D1
看看这里吧。
偶测试过的。

[WorldMobile]

n_cst_dw2excel lnv_excel
lnv_excel.of_dw2excel(dw_1, "C:\bb.xls")

试试