Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表 用千位符


  共有2996人关注过本帖树形打印复制链接

主题：报表 用千位符
帅哥哟，离线，有人找我吗？
fubblyc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		报表 用千位符  发帖心情 Post By：2019/11/25 17:27:00 [只看该作者]

    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
                Next
                cnt = cnt + 1
            End If
        Next

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


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20191125172517.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/11/25 17:30:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/25 17:34:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0361.htm

sheet(r + hdr+2,cnt).value = format(t(r,c),............
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/11/25 17:58:00 [只看该作者]

老师，我这样试了：
                        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
图片点击可在新窗口打开查看
有左上角那个符号，密密麻麻的，有办法不显示那个吗
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/25 20:13:00 [只看该作者]

那样设置样式了：http://www.foxtable.com/webhelp/topics/1165.htm


NumberFormat

单元格格式是通过NumberFormat或NumberFormatLocal属性来完成的。例如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("A1").NumberFormat = "G/通用格式" '通用格式
Ws.Range("B1").NumberFormat = "0_ "   '数值
Ws.Range("C1").NumberFormat = "#,##0.00_);[红色](#,##0.00)" '货币
Ws.Range("D1").NumberFormat = "_ * #,##0.00_;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ " '会计专用
Ws.Range("E1").NumberFormat = "yyyy-m-d" '日期
Ws.Range("F1").NumberFormat = "h:mm:ss"  '时间
Ws.Range("G1").NumberFormat = "0.00%"    '百分比
Ws.Range("H1").NumberFormat = "# ?/?"    '分数
Ws.Range("I1").NumberFormat = "0.00E+00" '科学记数
Ws.Range("J1").NumberFormat = "@"   '文本
App.Visible = True
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/11/26 8:36:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/12/2 17:20:00 [只看该作者]

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

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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/2 17:35:00 [只看该作者]

这里直接使用format

 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/12/2 17:40:00 [只看该作者]

哦哦，知道了，谢谢老师
[此贴子已经被作者于2019/12/2 17:40:52编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询