主题：[求助]专业报表显示列标题

呵呵，专业报表非常简单，搭积木而已。

只是楼主不怎么去理解代码，总是硬套，做不到灵活运用。

Col有两个属性，Name返回名称，Caption返回标题，随意将代码中的Name改为Caption即可：

For Each Col AS DataCol In Dt.DataCols
    rt.Cells(0,Count).Text = Col.Caption
    For r As Integer = 0 To dt.DataRows.Count - 1
        rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)
    Next
    Count = Count + 1
Next