主题：流水账

我想把输入的表格内容，输出内容变为日期流水账，把下面代码复制到命令窗口，显示错误代码Select Case e.DataCol.Name，请问该怎么办？

Select Case e.DataCol.Name

    Case "收入","支出"

        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))

            Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))

            Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))

            dr("余额") = Val1 - Val2

        Next

End Select