找回密码
 立即注册

QQ登录

只需一步，快速开始

首页 › Spread.NET专区 › ASP.NET 求助中心 › 查看内容
发新帖

LeeDongmei

最新发帖

Spread格式设定问题

ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于：2014-9-30 10:58:00
11#
  1.         Dim ObjDoubleCell_2 As New FarPoint.Web.Spread.GeneralCellType()    '2位小数
  2.         Dim NumForm2 As New System.Globalization.NumberFormatInfo
  3.         NumForm2.CurrencySymbol = ""
  4.         ObjDoubleCell_2.FormatString = "c"
  5.         ObjDoubleCell_2.NumberFormat = NumForm2

  7.         Dim c As Integer
  8.         For c = 4 To 18
  9.             FpSpread.Sheets(0).Columns(c).CellType = ObjDoubleCell_2
  10.             FpSpread.Sheets(0).Columns(c).HorizontalAlign = HorizontalAlign.Right
  11.         Next
复制代码


test20140930.zip (2.29 MB, 下载次数: 53)

回复 使用道具 举报
LeeDongmei
金牌服务用户   /  发表于：2014-9-30 11:57:00
12#
谢谢版主的解答！Excel数据格式的问题圆满解决！
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于：2014-9-30 12:29:00
13#
网格线按照 9# 中提供的方法可以实现你的需求吗
回复 使用道具 举报
LeeDongmei
金牌服务用户   /  发表于：2014-9-30 13:08:00
14#
Excel明细行问题解决，但标题栏内还是没有格线。
另外，若size=2px,形成的PDF文件就不好看了，线太粗了，而且边缘也设定不上了。
请看效果： Bordersize2_PDF.png (251.07 KB, 下载次数: 49)
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于：2014-9-30 15:35:00
15#
需要变化一下思路，代码如下：
13901_093002.zip (7.75 KB, 下载次数: 57)

回复 使用道具 举报
LeeDongmei
金牌服务用户   /  发表于：2014-10-8 09:07:00
16#
按版主的方法进行测试，结果如下：
Excel表头处显示了格线，但所有格线都显示出来了，应该达到2#目标样本的效果。
PDF也是表头处将所有格线都显示出来了。
附件是测试结果。

Sample_Excel.png (174.47 KB, 下载次数: 68)
回复 使用道具 举报
iceman
社区贡献组   /  发表于：2014-10-8 12:03:00
17#
回复 16楼LeeDongmei的帖子

如果不希望导出Excel和PDF表头部分单元格出现网格线，需要在导出之前一一设置相应的单元格边框 BoderSize 为 0 来实现。
回复 使用道具 举报
LeeDongmei
金牌服务用户   /  发表于：2014-10-8 13:28:00
18#
按楼主说的方法,Excel输出可以满足要求，但PDF文件还是有格线显示。
以下是我的代码，请确认。
   Protected Sub Page_int(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        FpSpread.UseClipboard = False
        'FpSpread.Sheets(0).GridLineColor = Drawing.Color.Black
        FpSpread.Sheets(0).DefaultStyle.Border.BorderColor = Color.Black
        FpSpread.Sheets(0).DefaultStyle.Border.BorderSize = 1
        FpSpread.Sheets(0).DefaultStyle.Border.BorderStyle = BorderStyle.Solid
        FpSpread.Sheets(0).ColumnHeader.DefaultStyle.BackColor = Color.White
        FpSpread.Sheets(0).ColumnHeader.DefaultStyle.Border.BorderColor = Color.Black
        FpSpread.Sheets(0).ColumnHeader.DefaultStyle.Border.BorderSize = 1
        FpSpread.Sheets(0).ColumnHeader.DefaultStyle.Border.BorderStyle = BorderStyle.Solid


        '表格外框 Size
        FpSpread.Height = 400
        FpSpread.Width = 940
        '表格中19列
        FpSpread.Sheets(0).ColumnCount = 19
        '列标题:4行
        FpSpread.Sheets(0).ColumnHeader.RowCount = 4
        '明细行高
        FpSpread.Sheets(0).Rows.Default.Height = 23
        FpSpread.Sheets(0).Rows.Default.VerticalAlign = VerticalAlign.Middle

        FpSpread.Sheets(0).RowCount = 100
        '表头
        FpSpread.Sheets(0).ColumnHeader.Rows(0).Height = 20
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 14).Text = "承认"
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 15).Text = "确认"
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 16).Text = "确认"
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 17).Text = "确认"
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 18).Text = "担当"
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 14).Font.Size = 8
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 15).Font.Size = 8
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 16).Font.Size = 8
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 17).Font.Size = 8
        FpSpread.Sheets(0).ColumnHeader.Cells(0, 18).Font.Size = 8


        FpSpread.Sheets(0).ColumnHeader.Rows(1).Height = 70
        FpSpread.Sheets(0).ColumnHeader.Rows(1).Font.Size = 12
        FpSpread.Sheets(0).ColumnHeader.Rows(1).Font.Bold = True
        FpSpread.Sheets(0).ColumnHeaderSpanModel.Add(1, 3, 1, 11)
        FpSpread.Sheets(0).ColumnHeader.Cells(1, 3).Text = "资产经费金额汇总表"


        FpSpread.Sheets(0).ColumnHeader.Rows(2).Height = 20
        FpSpread.Sheets(0).ColumnHeader.Rows(2).Font.Size = 8
        FpSpread.Sheets(0).ColumnHeaderSpanModel.Add(2, 0, 1, 4)
        FpSpread.Sheets(0).ColumnHeader.Cells(2, 0).Text = "区分：1 资产  2 经费"
        FpSpread.Sheets(0).ColumnHeader.Cells(2, 0).HorizontalAlign = HorizontalAlign.Left

        FpSpread.Sheets(0).ColumnHeaderSpanModel.Add(2, 14, 1, 5)
        FpSpread.Sheets(0).ColumnHeader.Cells(2, 14).Text = "做成日：" & Today
        FpSpread.Sheets(0).ColumnHeader.Cells(2, 14).HorizontalAlign = HorizontalAlign.Right

        FpSpread.Sheets(0).ColumnHeader.Rows(3).Height = 20
        FpSpread.Sheets(0).ColumnHeader.Rows(3).Font.Size = 9

        FpSpread.Sheets(0).ColumnHeader.Cells(3, 0).Text = "区分"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 1).Text = "通货"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 2).Text = "取引先"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 3).Text = "取引先名"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 4).Text = "1月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 5).Text = "2月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 6).Text = "3月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 7).Text = "4月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 8).Text = "5月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 9).Text = "6月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 10).Text = "上期累计"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 11).Text = "7月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 12).Text = "8月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 13).Text = "9月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 14).Text = "10月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 15).Text = "11月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 16).Text = "12月"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 17).Text = "下期累计"
        FpSpread.Sheets(0).ColumnHeader.Cells(3, 18).Text = "通期累计"


        'FpSpread.Sheets(0).ColumnHeader.Columns(0).Width = 30
        'FpSpread.Sheets(0).ColumnHeader.Columns(1).Width = 50
        'FpSpread.Sheets(0).ColumnHeader.Columns(2).Width = 50
        'FpSpread.Sheets(0).ColumnHeader.Columns(3).Width = 180
        FpSpread.Sheets(0).Columns(0).Width = 30
        FpSpread.Sheets(0).Columns(1).Width = 30
        FpSpread.Sheets(0).Columns(2).Width = 50
        FpSpread.Sheets(0).Columns(3).Width = 180

        Dim i As Integer
        For i = 4 To 18
            'FpSpread.Sheets(0).ColumnHeader.Columns(i).Width = 70
            FpSpread.Sheets(0).Columns(i).Width = 80
        Next

        '行标题不可视
        FpSpread.Sheets(0).RowHeader.Visible = False

        '格线设定

        'FpSpread.Sheets(0).ColumnHeader.DefaultStyle.BackColor = Color.White
        'FpSpread.Sheets(0).ColumnHeader.DefaultStyle.Border.BorderColor = Color.Black
        'FpSpread.Sheets(0).ColumnHeader.DefaultStyle.Border.BorderSize = 2

        Dim style0, style1, style2, style3, style4, style5 As New Border

        'style1.BorderColorTop = Color.White
        'style1.BorderColorBottom = Color.White
        'style1.BorderColorRight = Color.White
        'style1.BorderColorLeft = Color.White
        style1.BorderSizeTop = 0
        style1.BorderSizeBottom = 0
        style1.BorderSizeLeft = 0
        style1.BorderSizeRight = 0

        'style2.BorderColorTop = Color.White
        'style2.BorderColorBottom = Color.White
        'style2.BorderColorLeft = Color.White
        'style2.BorderColorRight = Color.Black
        style2.BorderSizeTop = 0
        style2.BorderSizeBottom = 0
        style2.BorderSizeLeft = 0

        'style3.BorderColorTop = Color.White
        'style3.BorderColorBottom = Color.Black
        'style3.BorderColorLeft = Color.White
        'style3.BorderColorRight = Color.White
        'style3.BorderSize = 2
        style3.BorderSizeTop = 0
        style3.BorderSizeRight = 0
        style3.BorderSizeLeft = 0

        'style4.BorderColorTop = Color.Black
        'style4.BorderColorBottom = Color.Black
        'style4.BorderColorLeft = Color.Black
        'style4.BorderColorRight = Color.Black

        'style5.BorderColorTop = Color.Black
        'style5.BorderColorBottom = Color.Black
        'style5.BorderColorLeft = Color.White
        'style5.BorderColorRight = Color.White
        'style5.BorderSize = 2
        style5.BorderSizeRight = 0
        style5.BorderSizeLeft = 0

        Dim mycell As FarPoint.Web.Spread.Cell

        ''第一行：
        For i = 0 To 12
            mycell = FpSpread.Sheets(0).ColumnHeader.Cells(0, i)
            mycell.Border = style1
        Next
        mycell = FpSpread.Sheets(0).ColumnHeader.Cells(0, 13)
        mycell.Border = style2
        'For i = 14 To 18
        '    mycell = FpSpread.Sheets(0).ColumnHeader.Cells(0, i)
        '    mycell.Border = style4
        'Next

        ''第二行：
        For i = 0 To 13
            mycell = FpSpread.Sheets(0).ColumnHeader.Cells(1, i)
            mycell.Border = style1
        Next
        'mycell = FpSpread.Sheets(0).ColumnHeader.Cells(1, 13)
        'mycell.Border = style2
        'For i = 14 To 18
        '    mycell = FpSpread.Sheets(0).ColumnHeader.Cells(1, i)
        '    mycell.Border = style4
        'Next

        '第三行：
        For i = 0 To 13
            mycell = FpSpread.Sheets(0).ColumnHeader.Cells(2, i)
            mycell.Border = style3
        Next
        'For i = 14 To 18
        '    mycell = FpSpread.Sheets(0).ColumnHeader.Cells(2, i)
        '    mycell.Border = style5
        'Next

        ''第四行：
        'For i = 0 To 18
        '    mycell = FpSpread.Sheets(0).ColumnHeader.Cells(3, i)
        '    mycell.Border = style4
        'Next

        FpSpread.Sheets(0).Columns.Default.Font.Size = 9

        FpSpread.Sheets(0).AllowPage = False
        FpSpread.Sheets(0).AllowInsert = True
        FpSpread.Sheets(0).AllowDelete = True
        FpSpread.ClientAutoCalculation = True
        FpSpread.Sheets(0).AutoCalculation = True

        Dim ObjDoubleCell_2 As New FarPoint.Web.Spread.GeneralCellType()    '2位小数
        Dim NumForm2 As New System.Globalization.NumberFormatInfo
        NumForm2.CurrencySymbol = ""
        ObjDoubleCell_2.FormatString = "c"
        ObjDoubleCell_2.NumberFormat = NumForm2

        Dim c As Integer
        For c = 4 To 18
            FpSpread.Sheets(0).Columns(c).CellType = ObjDoubleCell_2
            FpSpread.Sheets(0).Columns(c).HorizontalAlign = HorizontalAlign.Right
        Next

        FpSpread.CommandBar.Visible = True

    End Sub
回复 使用道具 举报
iceman
社区贡献组   /  发表于：2014-10-8 17:11:00
19#
回复 18楼LeeDongmei的帖子

你好，现象我这边已经重现了，正在尝试解决这个问题，有进一步结果反馈给你。
回复 使用道具 举报
LeeDongmei
金牌服务用户   /  发表于：2014-10-11 08:41:00
20#
期待中...
回复 使用道具 举报
下一页 »
123下一页
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册
产品与服务
活字格低代码平台
Wyn 商业智能软件
SpreadJS纯前端表格控件
技术服务体系
技术博客
低代码技术
客户与案例
典型客户
成功案例
用户访谈
合作与生态
合作伙伴网络
葡萄城市场
葡萄城与国产化
活字格用友客开工具
品牌活动
葡萄城公开课
品牌战略发布会
赋能开发者高峰论坛
企业级低代码发展研讨会
企业级低代码应用大赛
表格技术研讨会
了解葡萄城
葡萄城简介
愿景使命
研发与创新
荣誉奖项
加入我们
联系方式
联系我们
400-657-6008

葡萄城社区二维码

关注“葡萄城社区”

赋能开发者

西安葡萄城软件有限公司
专业的软件开发技术和低代码平台提供商

陕ICP备2020018819号  |   陕公网安备：61019002000258  |   隐私政策  |   网站地图  

邮箱： info.xa@grapecity.com  |  © 2024 葡萄城软件，保留所有权利

Archiver| 手机版| 小黑屋|

返回顶部