产生每页合计的办法

binxq

前几天帮一朋友实现了在每页页脚上生成合计的功能，现给大家分享一下。
代码写在了DATASTREAM的FETCH()方法和合计控件的ONROW()方法里，欢迎大家指正。
pageqty 为一DOUBLE型全局变量，isendrow 为一布尔型全局变量
Function Fetch( ) As AcDataRow
Dim row As DataRow1
    Set row = Super::Fetch( )
    If row Is Nothing Then
      isendrow = true
      Exit Function
    End If

   pageqty = pageqty + row.orderqty
   Set Fetch = row
End Function

Sub OnRow( row As AcDataRow )
    Super::OnRow( row )
    \' 在此处插入代码
   if not isendrow then
     datavalue = pageqty - row.getvalue(\"orderqty\")
     pageqty = row.getvalue(\"orderqty\")
   end if
End Sub

[ 本帖最后由 binxq 于 2007-8-24 16:00 编辑 ]

yf6456

不错不错，多谢楼主分享经验啊，记得我当初刚学开发报表的时候，处理每页统计写了一大堆代码来处理。

snow.lovers

谢谢，不错，可惜偶做报表比较少，但是还是感谢你对EAMPUB的支持

guopengfei

支持哥们一个，希望哥们继续研究深造啊，哈哈

pengaho122

[s:2] ...我现在正需要这方面的资料

楼主要大量写文章啊~~  我会狂顶的

pengaho122

楼主把方法写出来吧 我这用的actuate7.0 好像打不开你的文件

pengaho122

每页统计数据
功能需求：每页显示四条记录，每页统计一次[MATRECTRANS.LINECOST]字段
解决如下：
在报表Tool->arameters中定义变量：
Sum1          Double
在DataStream中建立变量如下：
aConnection AcDBConnection
aCursor     AcDBCursor
aDataSource AcDatabaseSource
aRow        AcDataRow
aStmt       AcDBStatement
tmp1        Integer '记录总数与4取余的值
tmp2        Integer
i1          Integer

新建函数


Function SetSql( str As String ) As AcDBCursor
     ' Insert your code here
     ' 数据库操作
     set aStmt = aConnection.prepare(str)
     if aStmt is nothing then
      exit function
  end if
   set aCursor = aStmt.allocateCursor()
   if aCursor is nothing then
          exit function
   end if
   if Not aCursor.openCursor() then
    aDataSource.getDBConnection().raiseError()
    set aCursor = nothing
   end if
   Set SetSql = aCursor
End Function

Function GetSum(code as String,xend as Integer) As Double
         ' Insert your code here
  '统计前xend的总数
       Dim str as String
       str = "select Sum(matrectrans.LINECOST)  from " & Schema & ".matrectrans"
       str = str & " where  MATRECTRANS.ITIN1 = '工程采购'  and matrectrans.ponum='" & CODE  & "' "
       str = str & "   and rownum<=" & xend  & " "
       str = str & "   and TRANSDATE >to_date('" & aStart & "','YYYY-MM-DD')  "
       str = str & "   and TRANSDATE <to_date('" & aEnd  & "','YYYY-MM-DD')  "
       'showfactorystatus(str)
    Set aCursor = SetSql(str)
       aCursor.BindColumn(1, "NewReportApp:[s:4]ataRow3","sum_1")   
       aCursor.Fetch(aRow)
       GetSum= aRow.GetValue("sum_1")
End Function

Function GetCount( code as String ) As Integer
         ' Insert your code here
       Dim str as String
       str = "select count(*)  from " & Schema & ".matrectrans"
       str = str & " where  MATRECTRANS.ITIN1 = '工程采购'  and matrectrans.ponum='" & CODE  & "' "
        str = str & "   and TRANSDATE >to_date('" & aStart & "','YYYY-MM-DD')  "
        str = str & "   and TRANSDATE <to_date('" & aEnd  & "','YYYY-MM-DD')  "

       'showfactorystatus(str)
    Set aCursor = SetSql(str)
       aCursor.BindColumn(1, "NewReportApp:[s:4]ataRow3","count_1")   
       aCursor.Fetch(aRow)
       GetCount= aRow.GetValue("count_1")
End Function



修改Start( )  


Function Start( ) As Boolean
     Start = Super::Start( )
     ' Insert your code here
       Dim count1,i as Integer
     Set aConnection = new Connection
     aConnection.connect()
     Set aRow = New DataRow3
     count1=GetCount(code)'求列数
     if (count1 mod 4) >=1 then
       tmp1=4-(count1 mod 4)
       tmp2=1
     else
       tmp2=5
     end if
     i1=0

     'showfactorystatus("tmp1 "&tmp1)
’此处赋最后一页的总数
         if count1 <4 then
           sum3=GetSum(code,4)
           'showfactorystatus("sum3 "&sum3)
        elseif (count1 mod 4) <> 0 then
           i=count1 mod 4
           sum3=GetSum(code,count1) - GetSum(code,count1-i)
           'showfactorystatus("sum3 "&sum3)
        elseif (count1 mod 4) = 0 then
           sum3=GetSum(code,count1) - GetSum(code,count1-4)
        end if
End Function


修改Fetch( )



Function Fetch( ) As AcDataRow
     'Set Fetch = Super::Fetch( )
     ' Insert your code here
     Dim myrow as DataRow3
     Dim ponum as String
     Dim i2 as Integer
     Dim count1,i as Integer
     Set myrow = Super::Fetch()
     if(not myrow is nothing) then
        ponum = myrow.GetValue("PO_PONUM")
       '计算总计数，每页总计
            if i1<4 then
               i1=i1+1
               'showfactorystatus("**i1 "&i1 &"RowNumber "&myrow.GetValue("RowNumber"))
            elseif i1=4 then
                i2=myrow.GetValue("RowNumber")
         sum1=GetSum(ponum,i2-1)-GetSum(ponum,i2-5)
                i1=1
               'showfactorystatus("sum1 "&sum1)
               'showfactorystatus("i1 "&i1 &"RowNumber "&myrow.GetValue("RowNumber"))
            end if
     elseif (myrow is nothing) and tmp2 <= tmp1 then
        Set myrow = new DataRow3
        'showfactorystatus(code)
        myrow.SetValue("PO_PONUM",code)
        myrow.SetValue("MATRECTRANS_QUANTITY",null)
        myrow.SetValue("MATRECTRANS_ACTUALCOST",null)
        myrow.SetValue("MATRECTRANS_LINECOST",null)
        myrow.SetValue("deptment_wappr","")
        myrow.SetValue("name_wappr","")
        myrow.SetValue("name_appr","")
        myrow.SetValue("name_enterby","")
        tmp2=tmp2+1
     end if
     Set Fetch=myrow

binxq

楼上的不要抢俺的功呀，俺的方法可与你不一样

yf6456

晕，哪找来的我以前的代码，不要用这个，太麻烦了，用楼主的方法，简单多了。

pengaho122

[s:7] .... 我在csdn 上找的

pengaho122

那个报表文件打不开~~~~

binxq

不是已经报代码写上去了吗

janyok

学习学习，呵呵 ，，，，，

cross

呵呵，没做过，不过深受启发，找时间来研究研究。

swpipanpan

我现在正需要这方面的资料