主题：第二个表的 表头，和第一行数据不显示

 不可能，测试没问题，如果这种代码你也不会加，就好好重新看一次帮助文档

 加载外面的一层循环啊

 

rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
    rt.Cols(c).Style.TextAlignVert = prt.AlignVertEnum.Center

好了  谢谢 大红袍前辈

 

最后一个问题啊

 

小数点位数 应该怎么处理啊？

我想只显示一位就行 不用这么多

此主题相关图片如下：3.png

在这里处理

 

For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
    If tb.Cols(ColNames(c)).IsNumeric Then
        rt.Cells(r + 1, c).Text = Format(tb.Rows(r)(ColNames(c)), "#.##")
    Else
        rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
    End If
Next

解决了 ，真是太太感谢了~~~~