主题：[求助]计算代码可以优化吗

表A是费用明细表，表B是统计表，

表A有“费用类别”、“金额”列，其中“费用类别”列的内容有费用1，费用2，费用3等，

表B中，费用1，费用2，费用3等是其中的部分列名，现在要按年月统计费用1、费用2的金额，这个代码能不能优化或者用其他好的方法？

Dim dr As DataRow = e.DataRow

Dim dt As DataTable =DataTables("表A")
If e.DataCol.Name = "姓名" And dr.IsNull("姓名") = False Then
    dr("费用1") = dt.Compute("Sum(金额)", "[姓名] = '" & dr("姓名") & " 'and [年] = '" & dr("年") & "'and [月] = '" & dr("月") & "'And [费用类别] = '" & "费用1" & "'")

    dr("费用2") = dt.Compute("Sum(金额)", "[姓名] = '" & dr("姓名") & " 'and [年] = '" & dr("年") & "'and [月] = '" & dr("月") & "'And [费用类别] = '" & "费用2" & "'")

    ……

End If

谢谢老六，其实我的费用1、费用2是为了便于提问说明起的名，实际表中不是这个列名啊，不过给了我一个思路，我可以在表A中新建一个列，对应成1、2、3，在表B中，把列名和列标题分开，就可以解决了