Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]网格线问题。


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

主题：[求助]网格线问题。
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/29 16:01:00 [显示全部帖子]


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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/29 17:43:00 [显示全部帖子]

如果要整表添加边框，去掉这些限制

                Dim Hjs() As String = {"全区合计","分数线"}
                For Each Hj As String In Hjs
                    If sheet(i,0).Text.EndsWith(Hj) Then '如果指定列(第1列)中含Hj字符存在(列位置)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/30 17:10:00 [显示全部帖子]

Dim book As new XLS.Book(dlg.FileName) '保存为Excel文件
            Dim sheet As XLS.Sheet = book.Sheets(value & nj & "级目标") '保存为Excel文件中的一个工作表
            Dim Style As Xls.Style = book.NewStyle '新建一个样式
            Style.BorderTop = XLS.LineStyleEnum.Thin
            Style.BorderBottom = XLS.LineStyleEnum.Thin
            Style.BorderLeft = XLS.LineStyleEnum.Thin
            Style.BorderRight = XLS.LineStyleEnum.Thin
            Style.BorderColorTop = Color.Black
            Style.BorderColorBottom = Color.Black
            Style.BorderColorLeft = Color.Black
            Style.BorderColorRight = Color.Black 
            For i As Integer = 0 To sheet.Rows.count -1
                        For n As Integer = 0 To sheet.Cols.count -1
                            sheet(i,n).Style = Style
                        Next
            Next

Style  = book.NewStyle
            Style.ForeColor = Color.Red '样式的字体颜色设为红色
            Style.Font = new font("宋体",9,FontStyle.Bold) '宋体,9号,红色,加粗
            Style.AlignHorz = XLS.AlignHorzEnum.Center '居中
            Style.AlignVert = XLS.AlignVertEnum.Center '居中
            For i As Integer = 0 To sheet.Rows.count -1
                Dim Hjs() As String = {"全区合计","分数线"}
                For Each Hj As String In Hjs
                    If sheet(i,0).Text.EndsWith(Hj) Then '如果指定列(第1列)中含Hj字符存在(列位置)
                        For n As Integer = 0 To sheet.Cols.count -1
                            sheet(i,n).Style = Style
                        Next
                    End If
                Next
            Next

            Book.Save(dlg.FileName) '保存文件
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/30 20:12:00 [显示全部帖子]

红色字样式也加上边框

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/8 10:42:00 [显示全部帖子]


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询