主题：汇总模式的问题请教

 你的数据应该有多余的空格，先处理一下。

For Each dr As DataRow In DataTables("表A").datarows
    For Each dc As DataCol In DataTables("表A").datacols
        If dc.Expression = "" AndAlso dc.IsString Then
            dr(dc.name) = cstr(dr(dc.name)).trim
        End If
    Next
Next