WEB SPREAD 边框粗问题

收藏

EXCCEL导入WEB SPREAD后，线框变粗，在论坛中找到一个方法，在4.0版本中可以，可是升级到7V3版本后，合并的单元格还是不能变细。代码如下：
For Each oStyleInfo As StyleInfo In Me.FpSpread1.Sheets(0).NamedStyles
         If oStyleInfo.Border.BorderSizeTop > 1 Then
            oStyleInfo.Border.BorderSizeTop -= 1
         End If
         If oStyleInfo.Border.BorderSizeBottom > 1 Then
            oStyleInfo.Border.BorderSizeBottom -= 1
         End If
         If oStyleInfo.Border.BorderSizeLeft > 1 Then
            oStyleInfo.Border.BorderSizeLeft -= 1
         End If
         If oStyleInfo.Border.BorderSizeRight > 1 Then
            oStyleInfo.Border.BorderSizeRight -= 1
         End If

         If oStyleInfo.Border.BorderStyleTop = BorderStyle.NotSet AndAlso oStyleInfo.Border.BorderStyleBottom = BorderStyle.NotSet AndAlso oStyleInfo.Border.BorderStyleLeft = BorderStyle.NotSet AndAlso oStyleInfo.Border.BorderStyleRight = BorderStyle.NotSet Then
            oStyleInfo.Border.BorderStyleBottom = BorderStyle.None
         End If
      Next

出错图片如下：请问如何解决？

roger.wang · roger.wang

回复 1楼wzw的帖子

谢谢您的问题。

Spread ASP.NET到导入Excel进来后，对边框(Border)有一些约定。

如您图示，合并和不合并有区别，能把您试验的Excel上传吗？我模拟一下场景。

wzw · wzw

这是的EXCEL文件

test.zip (1.92 KB, 下载次数: 408)

roger.wang · roger.wang

回复 3楼wzw的帖子

问题确实如您描述，默认导入变粗，通过上面代码设置后，合并的无法变细。

我需要咨询一下产品团队，看有无解决办法。

wzw · wzw

找到解决办法了吗

roger.wang · roger.wang

回复 5楼wzw的帖子

还没有，请耐心等待。

roger.wang · roger.wang

回复 5楼wzw的帖子

有反馈了：
您1#的做法是思路对的，请参考下面这段代码把SpanBorder设置为1试试：

C#.net代码

//导入Excel后，如何把边框置为1（看起来细一些）
//Step 1: 先把不是合并Cell的边框修改为1
foreach (StyleInfo item in this.FpSpread1.Sheets[0].NamedStyles)
{
if (item.Border.BorderSizeTop > 1)
{
item.Border.BorderSizeTop = 1;
}
if (item.Border.BorderSizeBottom > 1)
{
item.Border.BorderSizeBottom = 1;
}
if (item.Border.BorderSizeLeft > 1)
{
item.Border.BorderSizeLeft = 1;
}
if (item.Border.BorderSizeRight > 1)
{
item.Border.BorderSizeRight = 1;
}
}
//Step2：再把是合并Cell的边框修改为1 SpanModel
DefaultSheetSpanModel model = (DefaultSheetSpanModel)FpSpread1.ActiveSheetView.SpanModel;
IEnumerator ien = model.GetEnumerator();
bool b1 = ien.MoveNext();
while (b1)
{
CellRange cr = (CellRange)ien.Current;
FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeRight = 1;
FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeTop = 1;
FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeLeft = 1;
FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeBottom = 1;
b1 = ien.MoveNext(); //下一个合并单元格
}

复制代码

通过在线转化工具转化后的VB.net代码：(供参考)

'导入Excel后，如何把边框置为1（看起来细一些）
'Step 1: 先把不是合并Cell的边框修改为1
For Each item As StyleInfo In Me.FpSpread1.Sheets(0).NamedStyles
If item.Border.BorderSizeTop > 1 Then
item.Border.BorderSizeTop = 1
End If
If item.Border.BorderSizeBottom > 1 Then
item.Border.BorderSizeBottom = 1
End If
If item.Border.BorderSizeLeft > 1 Then
item.Border.BorderSizeLeft = 1
End If
If item.Border.BorderSizeRight > 1 Then
item.Border.BorderSizeRight = 1
End If
Next
'Step2：再把是合并Cell的边框修改为1 SpanModel
Dim model As DefaultSheetSpanModel = DirectCast(FpSpread1.ActiveSheetView.SpanModel, DefaultSheetSpanModel)
Dim ien As IEnumerator = model.GetEnumerator()
Dim b1 As Boolean = ien.MoveNext()
While b1
Dim cr As CellRange = DirectCast(ien.Current, CellRange)
FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeRight = 1
FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeTop = 1
FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeLeft = 1
FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeBottom = 1
'下一个合并单元格
b1 = ien.MoveNext()
End While

复制代码

原理，找出Merge的Cell，逐个把Border修改为1, 借鉴了您的思路。

wzw · wzw

不行，加上你的代码后，页面直接卡了打不开了，好象进入死循环

roger.wang · roger.wang

回复 8楼wzw的帖子

知道了，我在您demo上验证一下。

另外，您也可抽空断点调试一下，这样速度能快点。

wzw · wzw

Dim b1 As Boolean = ien.MoveNext()
While b1
...
End While
这个代码不太懂，不知这样怎么可以循环

		自动登录	找回密码
密码			立即注册

[已处理] WEB SPREAD 边框粗问题

10 个回复

这是的EXCEL文件

活字格认证

微信认证勋章

元老葡萄