用上了吗？

调了个别还有空行出现。看了你昨天的提醒，我现在想用你第一次给设计的按行生成个性工资单，我修改了一下，按列生成。但有个问题，excel2000只有256列，而工资人数最少300人，这样一张工作表就生成不了，出现错误，现在想程序能不能判断超出256列，就生成到第二张工作表，或者用“转置”的方法。老师有什么更好的办法？
CLEAR ALL
CLEAR
Main()
CLEAR ALL
RETURN

PROCEDURE Main()
    LOCAL loFileName, loExcel, lnRow, lnCol, lnIndex, lcField
   
    IF !USED("工资")
        USE prn_gz ALIAS 工资 IN 0
    ENDIF
   
    loFileName = Application.DefaultFilePath + "\工资清单\工资单s"
    IF FILE(loFileName + ".xls")
        loFileName = loFileName + ".xls"
        DELETE FILE (loFileName)
    ELSE
        IF FILE(loFileName + ".xlsx")
            loFileName = loFileName + ".xlsx"
            DELETE FILE (loFileName)
        ENDIF
    ENDIF
   
    ? "正在启动 Microsoft Excel Application，请稍候……"
    loExcel = CREATEOBJECT("Excel.Application")
     ? "正在生成工资条，请稍候……"
    WITH loExcel
        .SheetsInNewWorkbook = 1
        .Workbooks.Add
        .WorkSheets(1).Activate
        lnRow = 0
        lnCol = -2
        SELECT 工资
        SCAN ALL
             lnRow = 1
             lnCol = lnCol+3
            FOR lnIndex = 1 TO FCOUNT()   && 循环次数等于字段的数目
                lcField = FIELD(lnIndex)
                IF !EMPTY(EVALUATE(lcField))
                    .ActiveSheet.Columns(lnCol).HorizontalAlignment = 2   &&水平靠左对齐
                    .ActiveSheet.Columns(lnCol).VerticalAlignment =2      &&垂直居中对齐
                    .Cells(lnRow, lnCol).Value = lcField
                    .Cells(lnRow , lnCol+1).Value = TRANSFORM(EVALUATE(lcField))
                   lnRow =lnRow +1
                ENDIF
            NEXT
        ENDSCAN
        .ActiveSheet.Range("A:IV").Font.Name="宋体"
        .ActiveSheet.Range("A:IV").Font.Size=10
        .ActiveSheet.COLUMNS("A:IV").ENTIRECOLUMN.AUTOFIT                        
        .ActiveWorkbook.SaveAs(loFileName)
        .Quit
    ENDWITH
    RELEASE loExcel
   ? "工资清单已生成"
   
ENDPROC

工资表只受行数限制，与列数无关

我是按列纵向生成的

一个人的工资条有256列吗

下载后把zip去掉

帖个图吧
这样设置如何打印

[ 本帖最后由 sdta 于 2013-8-30 16:28 编辑 ]

不会贴图。就是工资项目按行排列，人员按列排列

仍然出现空行的话，修改一下模板，把问题逐步排查出来。

修改表结构的办法，是输出的工资表每个人每项数据一行，即员工编号是重复的，在生成这个表的过程中，就把空数据项过滤掉了，然后把每个人的资料用普通的方法输出，仍然用你原先的工资条格式即可。这个数据表的设计才是正路。

list to print for 数值字段1<>0 file 字段名1，字段名2，...