主题：[求助]专业报表数字格式化（已解决）

'……

if (ColNames(c) = "金额"

     rt.Cells(r + 1, c).Text = format(tb.Rows(r)(ColNames(c)),"00.00")

else

     rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))

 end if

' ……

晕，手机回复不好使，还没写完就发出去了，也不能换行，不知道咋回事！

或者把这个循环语句改一下看看行不行：

For c As Integer = 0 To ColNames.Count - 1 '逐列设置和填入内容

    rt.Cells(0,c).Text = ColNames(c) '列名作为标题

   if ColNames(c) = "金额"

       rt.Cols(c).SetFormat("0.00")

   end if
    rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
    rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth '列宽等于实际列宽
    If tb.Cols(ColNames(c)).IsNumeric Orelse tb.Cols(ColNames(c)).IsDate Then '如果是数值或日期列
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right '数据水平靠右
    End If
    For r As integer = 0 To tb.Rows.Count -1 '开始填入该列内容
        rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
    Next
Next