|
将DW数据窗口导出为EXCEL文件的方法（整理）(19) // 返回: (STRING) 值
//--------------------------------------------------------------------
// 作者: cwl 日期: 2002.03.18
//====================================================================
string ls_edittype,ls_value,ls_format
integer id
ls_edittype=lower(dw_1.Describe(col+".Edit.Style"))//得到编缉风格
choose case ls_edittype
case 'ddlb','dddw'//应该得到显示值
ls_value=dw_1.describe( "Evaluate('LookUpDisplay("+col+") ',"+string(row)+" )")
case else
id=long(dw_1.Describe(col+".id"))
ls_format=dw_1.Describe(col+".Format")
if mid(ls_format,1,1)='[' or ls_format='?' or ls_format='' then //不作格式处理
if id=0 then //计算列
ls_value=dw_1.Describe("Evaluate(~"" + dw_1.Describe(col + '.expression')&
+ "~","+string(row)+")")
else
ls_value=string(dw_1.object.data[row,id])
end if
else
if id=0 then //计算列
ls_value=string(dw_1.Describe("Evaluate('" + dw_1.Describe(col + '.expression')&
+ "',"+string(row)+")"),ls_format)
else
ls_value=string(dw_1.object.data[row,id],ls_format)
end if
end if
end choose
if isnull(ls_value) then ls_value=''
return ls_value
或者直接存成html文件
----------------------------------------------------------
继续响应,这是以前一位仁兄的代码：
/**********************************************************/
/* 函数名称：uf_dwsaveas_excel
功能 ：将数据窗口数据导出EXCEL文件，并将EXCEL文件默认英文标题替换成中文。
参数 ：datawindow datawin，为用户要导出数据窗口的数据窗口控件名
返回值：integer 1，success；-1，error
流程描述：先用saveasAscii()倒出为excel文件，再替换表头为中文名
设计人：yanhui 2003年11月
修改人：叶文林 2004.4.8
原因：为提高程序的可读性作了少量的修改(如：增加注释、改变排版风格等)*/
|
