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

 呃，我的正常。我什么也没做。

 这句代码去掉

 

rt.CellStyle.Spacing.All = 5 '单元格内距设为0.5毫米

 在循环里面，加两句

 

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

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

 加载外面的一层循环啊

 

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

在这里处理

 

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