报表用千位符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Book As New XLS.Book '定义一个Excel工作簿

t.CreateSheetHeader(Sheet,2,0,True) '生成表头

Dim hdr As Integer = t.HeaderRows '获得表头的层数

Dim cnt As Integer = 0

For c As Integer = 3 To 4 + 15 - 1

If t.Cols(c).Visible Then

For r As Integer = 0 To t.Rows.Count - 1

If CStr(t(r,c)) <> "0" Then

sheet(r + hdr+2,cnt).value = t(r,c)

End If

cnt = cnt + 1

End If

老师，上述代码，写出来的值，想要用千位符来显示，要怎么处理呢

此主题相关图片如下：微信截图_20191125172517.png

[此贴子已经被作者于2019/11/25 17:30:21编辑过]

老师，我这样试了：

If c = 3 Then

sheet(r + hdr+2,cnt).value = t(r,c)

ElseIf c = 9 Or c = 14 Then

sheet(r + hdr+2,cnt).value = format(t(r,c),"Percent")

Else

sheet(r + hdr+2,cnt).value = format(t(r,c),"n")

End If

是可以显示，但是都是变成文本型的：

此主题相关图片如下：微信截图_20191125175741.png

有左上角那个符号，密密麻麻的，有办法不显示那个吗

可以，搞定了。谢谢蓝大神

老师，那这种呢？看了帮助没有找到直接相关的....

Dim rt As New prt.RenderTable '定义一个新表格

Dim tb As Table = Forms("预算表").Controls("table1").Table

Dim ColNames As String() = New String(){"项目", "A00", "C00","总计","备注"}

rt.Width = "Auto" '表格宽度为自动,也就是等于各列设置宽度之和

rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '表格宽度超出页宽时,可以水平换页

rt.Style.Font = New Font("微软雅黑", 6.35) '设置文本对象的字体

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

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

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

哦哦，知道了，谢谢老师

[此贴子已经被作者于2019/12/2 17:40:52编辑过]

主题：报表 用千位符