主题：组合框代码

老师，还是不行啊

已经分隔开了，还是不行啊。

If e.DataCol.Name = "HTH" Then
   Dim filter As String = "HTH = '" & e.DataRow("HTH")  & "' And 年度 = '" & e.DataRow("年度") & "'"
    e.DataRow("本金本年增加") = DataTables("DKFKB").Compute("sum(XFJE)",filter)
    e.DataRow("本金本年减少") = DataTables("HBFX").Compute("sum(BJ)",filter)
End If

If e.DataCol.Name = "HTH" Then
   Dim filter1 As String
   Dim filter2 As String = "HTH = '" & e.DataRow("HTH")  & "' And 年度 = '" & e.DataRow("年度") & "'"
    e.DataRow("一季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "一季度")
    e.DataRow("二季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "二季度")
    e.DataRow("三季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "三季度")
    e.DataRow("四季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "四季度")

   
End If

If e.DataCol.Name = "HTH" Then
   Dim filter As String = "HTH = '" & e.DataRow("HTH")  & "' And 年度 < '" & e.DataRow("年度") & "'"
    e.DataRow("本金年初余额") = DataTables("DKFKB").Compute("sum(XFJE)",filter) -  DataTables("HBFX").Compute("sum(BJ)",filter)
End If

老师，是这一段代码有错，总表A中，HTH、年度是列，一季度利息、二季度利息、三季度利息、四季度利息是多层表头，对应明细表C，表C有HTH、年度、季度列，现在是HTH、年度对应了，季度利息不对应，就是表C季度列要对应表A的四列。请问怎么处理啊。

If e.DataCol.Name = "HTH" Then

   Dim filter1 As String

   Dim filter2 As String = "HTH = '" & e.DataRow("HTH")  & "' And 年度 = '" & e.DataRow("年度") & "'"

    e.DataRow("一季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "一季度")

    e.DataRow("二季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "二季度")

    e.DataRow("三季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "三季度")

    e.DataRow("四季度利息") = DataTables("支付利息").Compute("sum(LX)",filter2 And filter1 = "四季度")

表A是贷款合同汇总表，有年度、本年度1-4季度还本及付息列，下一年度1-4季度还本付息列，表C是计划还本表，有日期、年度、季度列，计划还本金额等列。

现在我要在表A计算表C对应年度、季度的还本金额，即当表A的年度列是2015年，本年度1-4季度还本金额（已解决），下一年度（2016）各季度还本金额，比如2016年1季度计划还本金额，2季度还本金额、3季度还本金等。下面代码是在表A表中下一年度1-4季度还本金额的代码，没有提示错误，也不计算金额。请老师指导，谢谢！！

If e.DataCol.Name = "HTH" Then
   Dim filter2 As String = "HTH = '" & e.DataRow("HTH")  & "' And 年度 = '" & e.DataRow("年度") & " + 1 '"
 
    e.DataRow("还本付息计划11") = DataTables("还本计划表").Compute("sum(计划还本金额)",filter2 & " And  季度 = '一季度'")
    e.DataRow("还本付息计划13") = DataTables("还本计划表").Compute("sum(计划还本金额)",filter2 & " And  季度 = '二季度'")
    e.DataRow("还本付息计划15") = DataTables("还本计划表").Compute("sum(计划还本金额)",filter2 & " And  季度 = '三季度'")
    e.DataRow("还本付息计划17") = DataTables("还本计划表").Compute("sum(计划还本金额)",filter2 & " And  季度 = '四季度'")
    e.DataRow("还本付息计划19") = DataTables("还本计划表").Compute("sum(计划还本金额)",filter2 )
End If