主题：DON老师，再帮我精简一段代码

你这个列名有点问题哦，以后再增长怎么办？

Dim yy As String = e.DataCol.name.SubString(2,4)
If e.DataCol.name Like "TX" & yy & "年%月" Then
    Dim dcm As Decimal = 0
    For Each dc As DataCol In e.DataTable.DataCols
        If dc.Name Like "TX" & yy & "年%月" Then
            dcm = dcm + e.DataRow(dc.Name)
        End If
    Next
    e.DataRow("TX" & yy & "年合计")= dcm
End If