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

表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