主题：报表中的数据汇总

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

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)("交易户名") & "'")

报表可以出来，但是没有数据汇总

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

 

Tables("银行明细表").DataTable.Compute("sum(借方金额)","查证姓名='" & tbl.Rows(i)("交易户名") & "'")

找到问题的原因了，应该是rt.Cells(Rows.Count+1,5).Text = Tables("银行明细表").DataTable.Compute("sum(借方金额)","查证姓名='" & tbl.Rows(i)("交易户名") & "'")

编写的专业报表中有些可能在语句中用到“”该怎么处理。比如需要对黄色的部分用“”该怎么办，如果在该语句中直接添加“”则会提示编译错误，“如果对以上表格的往来明细无疑议,请写“以上表格内容我已看过,对以上数据无疑议,可以确认”;”

  rx.Text = "如果对以上表格的往来明细无疑议,请写“以上表格内容我已看过,对以上数据无疑议,可以确认”;"如果这些写则会提示编译错误，该怎么办

rx.Text = "如果对以上表格的往来明细无疑议,请写““以上表格内容我已看过,对以上数据无疑议,可以确认””;"