主题：动态列动态更新

            Else

                Dim dr As DataRow = tb.find("科目名称 = '" & c.name & "'")

                    Dim lis As List(of String) = dr("资产负债表包含科目")

                    Dim sum As Double

                    For Each li As String In lis

                        sum = sum + DataTables("余额横表未审").Compute("sum(" & li & ")","会计年度 = '" & e.DataRow("会计年度") & "'")

                    Next

                    e.DataRow(c.name) = sum

                End If

            End If