以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表中的数据汇总  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77930)
--  作者：kaituozhe
--  发布时间：2015/11/28 10:05:00
--  报表中的数据汇总

这是专业报表中的一段代码，红色代码想实现在该表的最后一行的相应列做数据汇总

Rows = Tables("查询汇总").Rows(i).DataRow.GetChildRows("银行明细表")
    For r As Integer = 0 To Rows.Count - 1
        rt.Cells(r+1,0).Text = rows(r)("交易日期")
        rt.Cells(r+1,1).Text = rows(r)("交易账号")
        rt.Cells(r+1,2).Text = rows(r)("交易卡号")
        rt.Cells(r+1,3).Text = rows(r)("交易户名")
        rt.Cells(r+1,4).Text = rows(r)("交易内容")
        rt.Cells(r+1,5).Text = rows(r)("借方金额")
        rt.Cells(r+1,6).Text = rows(r)("贷方金额")
        rt.Cells(r+1,7).Text = rows(r)("余额")
        rt.Cells(r+1,8).Text = rows(r)("对方户名")
        rt.Cells(r+1,9).Text = rows(r)("对方账号")
        rt.rows(r+1).Style.Borders.Top = New prt.LineDef(0.3,Color.black)
    Next
rt.Cells(Rows.Count,5).Text = Tables("银行明细表").DataTable.Compute("sum(借方金额)","查证姓名=\'" & tbl.Rows(i)("交易户名") & "\'")
--  作者：kaituozhe
--  发布时间：2015/11/28 10:05:00
--  
报表可以出来，但是没有数据汇总
--  作者：Hyphen
--  发布时间：2015/11/28 10:25:00
--  

单独执行这段能不能计算，看看列名对不对

 

Tables("银行明细表").DataTable.Compute("sum(借方金额)","查证姓名=\'" & tbl.Rows(i)("交易户名") & "\'")
--  作者：kaituozhe
--  发布时间：2015/11/28 10:40:00
--  
找到问题的原因了，应该是rt.Cells(Rows.Count+1,5).Text = Tables("银行明细表").DataTable.Compute("sum(借方金额)","查证姓名=\'" & tbl.Rows(i)("交易户名") & "\'")
--  作者：kaituozhe
--  发布时间：2015/11/28 11:02:00
--  

编写的专业报表中有些可能在语句中用到“”该怎么处理。比如需要对黄色的部分用“”该怎么办，如果在该语句中直接添加“”则会提示编译错误，“如果对以上表格的往来明细无疑议,请写“以上表格内容我已看过,对以上数据无疑议,可以确认”;”
--  作者：kaituozhe
--  发布时间：2015/11/28 11:03:00
--  
  rx.Text = "如果对以上表格的往来明细无疑议,请写“以上表格内容我已看过,对以上数据无疑议,可以确认”;"如果这些写则会提示编译错误，该怎么办
--  作者：Hyphen
--  发布时间：2015/11/28 11:22:00
--  
rx.Text = "如果对以上表格的往来明细无疑议,请写““以上表格内容我已看过,对以上数据无疑议,可以确认””;"