主题：动态增加表时，怎么读取表的标题和列名称，因为代码中有时候要用？

1、动态增加的表，表名称、列名称是否都固定？如果固定，代码不用改；

2、如果不固定，上传具体实例，说明你的具体问题，要实现的效果。

循环每一个列，如果是数值类型，就统计，比如

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("订单")
If e.DataCol.Name = "产品" Then
    For Each dc As DataCol In dt.DataCols
        If dc.IsNumeric Then
            dr(dc.name) = dt.Compute("Sum(" & dc.name & ")","[产品] = '" & dr("产品") & "'")
        End If
    Next
End If