For c As Integer = 0 To tb.Cols.Count -1 '逐列设置和填入内容
If tb.Cols(c).Visible Then
rt.Cols(cnt).Width = tb.Cols(c).PrintWidth '列宽等于实际列宽
If tb.Cols(c).IsNumeric OrElse tb.Cols(c).IsDate Then '如果是数值或日期列
rt.Cols(cnt).Style.TextAlignHorz = prt.AlignHorzEnum.Right '数据水平靠右
End If
For R As Integer =0 To TB.RowS.COUNT -1
rt.Cells(0+HD, cnt).Text = rr(c)
Select Case c
Case "一层_重量","一层_米数" '如果是人口列或面积列
rr(c)= format(rr(c),"00.0") '则显示千位分割符号
Case "一层_比例","二层_比例" '如果是人口列或面积列
rr(c)= format(rr(c),"00.0%") '则显示千位分割符号
End Select
Next
cnt = cnt + 1
End If
Next
老师您好,我这里面列格式化是那里错了吗。或者报表有什么可以用表数据一样(因为每列属性都有做了定义,但到报表它还是很多位数)。谢谢指教。