ocal = "@" &;&;字符型
ENDC
eole.Cells(3,i).Value = aFldList[i,1]
ENDFOR
SELECT &;bm
num=RECCOUNT()
IF FX=1
DO CASE
CASE num<10
eole.selection.rowheight=25
CASE num<15
eole.selection.rowheight=23
CASE num<20
eole.selection.rowheight=20
OTHERWISE
eole.selection.rowheight=18
ENDCASE
ELSE
DO CASE
CASE num<10
eole.selection.rowheight=25
CASE num<15
eole.selection.rowheight=23
CASE num<20
eole.selection.rowheight=20
OTHERWISE
eole.selection.rowheight=18
ENDCASE
ENDI
go top
SCAN
J=RECNO()
*!* THIS.Jdt('正在向Excel导出数据,请稍候...',num,J)
FOR i =1 TO nFldCount
vValue = .NULL.
IF AT(aFldList[i, 2], "CDLMNFIBYT") = 0
LOOP
ENDIF
cFldName = aFldList[i, 1]
vValue = EVALUATE(cFldName) &;&; 计算字符表达式的值并返回结果。返回值:字符型、数值型、货币型、日期型、日期时间型、逻辑型或备注型
DO CASE
CASE aFldList[i, 2] = "C" &;&; 字符/字符串
vValue = RTRIM(vValue)
CASE aFldList[i, 2] = "D" &;&; 日期
vValue = DTOC(vValue)
CASE aFldList[i, 2] = "T" &;&; 日期时间
vValue = TTOC(vValue)
CASE INLIST(aFldList[i, 2], "N", "F", "I", "B", "Y") &;&; 数值
CASE aFldList[i, 2] = "L" &;&; 逻辑
CASE aFldList[i, 2] = "M" &;&; 备注型
OTHERWISE
vValue = .NULL.
ENDCASE
IF VARTYPE(vValue) = "C" AND EMPTY(vValue)
LOOP
ENDIF
****数字为0不导出
IF VARTYPE(vValue) = "N" AND vValue =0
vValue = .NULL.
ENDIF
*******
IF NOT ISNULL(vValue)
eole.Cells(J+3, i).Value = vValue
ENDIF
ENDFOR
ENDSCAN
********至些数据导出结束,下面进行相关设置
WITH eole.RANGE('A3:'+Exl+ALLTRIM(STR(J+3))).BORDERS &;&;eole.ActiveWorkbook.ActiveSheet.Range("A1", "F10").Borders
.LINESTYLE=1
.Weight =2&;&;细线 1-虚线
.Color = RGB(0, 0, 0)&;&;黑色
ENDWITH
eole.columns("A:"+Exl).autoFit &;&;自动适应宽度
*!* With wpsapp.ActiveWorkbook.ActiveSheet.Range("A1", "F10")
*!* .RowHeight = 20&;&;行高
*!* .ColumnWidth =10&;&;列宽
*!* EndWith