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

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

回复 1楼wzw的帖子

谢谢您的问题。

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


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

这是的EXCEL文件
test.zip (1.92 KB, 下载次数: 405)

2014-3-24 11:56 上传

点击文件名下载附件

回复 3楼wzw的帖子

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

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

找到解决办法了吗

回复 5楼wzw的帖子

还没有，请耐心等待。

回复 5楼wzw的帖子

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

C#.net代码

1. 
   
2.              //导入Excel后，如何把边框置为1（看起来细一些）  
   
3.                 //Step 1: 先把不是合并Cell的边框修改为1
   
4.                 foreach (StyleInfo  item in this.FpSpread1.Sheets[0].NamedStyles)
   
5.                 {
   
6.                     if (item.Border.BorderSizeTop > 1)
   
7.                     {
   
8.                         item.Border.BorderSizeTop = 1;
   
9.                     }
   
10. 
    
11.                     if (item.Border.BorderSizeBottom > 1)
    
12.                     {
    
13.                         item.Border.BorderSizeBottom = 1;
    
14.                     }
    
15. 
    
16.                     if (item.Border.BorderSizeLeft > 1)
    
17.                     {
    
18.                         item.Border.BorderSizeLeft = 1;
    
19.                     }
    
20. 
    
21.                     if (item.Border.BorderSizeRight > 1)
    
22.                     {
    
23.                         item.Border.BorderSizeRight = 1;
    
24.                     }
    
25.                 }
    
26. 
    
27.                 //Step2： 再把是合并Cell的边框修改为1  SpanModel
    
28.                 DefaultSheetSpanModel model = (DefaultSheetSpanModel)FpSpread1.ActiveSheetView.SpanModel;
    
29.                 IEnumerator ien = model.GetEnumerator();
    
30.                 bool b1 = ien.MoveNext();
    
31.                 while (b1)
    
32.                 {
    
33.                     CellRange cr = (CellRange)ien.Current;
    
34.                     FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeRight = 1;
    
35.                     FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeTop = 1;
    
36.                     FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeLeft = 1;
    
37.                     FpSpread1.Sheets[0].Cells[cr.Row, cr.Column].Border.BorderSizeBottom = 1;
    
38.                     b1 = ien.MoveNext();  //下一个合并单元格
    
39.                 }
    

复制代码

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

1. 
   
2. '导入Excel后，如何把边框置为1（看起来细一些）  
   
3. 'Step 1: 先把不是合并Cell的边框修改为1
   
4. For Each item As StyleInfo In Me.FpSpread1.Sheets(0).NamedStyles
   
5.         If item.Border.BorderSizeTop > 1 Then
   
6.                 item.Border.BorderSizeTop = 1
   
7.         End If
   
8. 
   
9.         If item.Border.BorderSizeBottom > 1 Then
   
10.                 item.Border.BorderSizeBottom = 1
    
11.         End If
    
12. 
    
13.         If item.Border.BorderSizeLeft > 1 Then
    
14.                 item.Border.BorderSizeLeft = 1
    
15.         End If
    
16. 
    
17.         If item.Border.BorderSizeRight > 1 Then
    
18.                 item.Border.BorderSizeRight = 1
    
19.         End If
    
20. Next
    
21. 
    
22. 'Step2： 再把是合并Cell的边框修改为1  SpanModel
    
23. Dim model As DefaultSheetSpanModel = DirectCast(FpSpread1.ActiveSheetView.SpanModel, DefaultSheetSpanModel)
    
24. Dim ien As IEnumerator = model.GetEnumerator()
    
25. Dim b1 As Boolean = ien.MoveNext()
    
26. While b1
    
27.         Dim cr As CellRange = DirectCast(ien.Current, CellRange)
    
28.         FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeRight = 1
    
29.         FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeTop = 1
    
30.         FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeLeft = 1
    
31.         FpSpread1.Sheets(0).Cells(cr.Row, cr.Column).Border.BorderSizeBottom = 1
    
32.                 '下一个合并单元格
    
33.         b1 = ien.MoveNext()
    
34. End While
    
35. 
    

复制代码

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

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

回复 8楼wzw的帖子

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

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

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