在vFP表单中用语句执行Grid++Report grf报表问题？ - VFP论坛

得分:0

*――声明对象
*!*    LOCAL objReport AS gregn.GridppReport
*!*    objReport.ExportDirect(5,"要导出的文件名",.T.,.T.)
*!*    objReport =CREATEOBJECT("gregn.GridppReport.6")
Local objReport

objReport = NewObject("gregn.GridppReport")

*―-载入本地报表文件
IF objReport.LoadFromFile(CURDIR() +"\报表模板.grf")
*―-成功载入报表文件
*―-对数据源推入数据
    LOCAL m.i
*―-准备推入数据
    objReport.PrepareLoadData()
    FOR m.i = 1 To 100 STEP 3
        WITH objReport.DetailGrid.Recordset
            .APPEND()
            .FIELDS("文本字段").VALUE = "Hello " + STR(i)&&报表中定义的字段
            .FIELDS("数字字段").VALUE = m.i&&报表中定义的字段
            .FIELDS("日期字段").VALUE = DATE() +m.i&&报表中定义的字段
            .FIELDS("时间字段").VALUE = TIME()&&报表中定义的字段
            .FIELDS("金额字段").VALUE = m.i *10000 / RAND()&&报表中定义的字段
            .FIELDS("逻辑字段").VALUE = (m.i/2 = INT(m.i/2))&&报表中定义的字段
            .Post()
        ENDWITH
    ENDFOR
*――设置报表参数
    objReport.ParameterByName ("ReportTitle").VALUE = "VFP调用报表实例"&&报表中的参数,ReportTitle是GRF中定义的参数变量
    objReport.TITLE = "VFP报表测试"
*――预览报表
    objReport. PrintPreview(.T.)
ENDIF

网上其他爱好者分享的