区域表格绑定数据的问题

将datasource绑定到sheetview问题。
现在是从VB6的Spread3还是4转到VB.NET的Spread7，然后在数据绑定时出现问题。

1.直接将datasource绑定到Sheetview的时候，sheetview的最大行，列都变成绑定数据的项目数和行数。
这造成放在隐藏行的SheetView格式被清除。

2.如果用区域绑定方式，在例程测试中，执行速度很快，但是代码正式使用时，同样的数据量，花费时间却要1分钟前后。
代码如下，就是在Spread帮助里的内容，然后参考论坛上区域绑定相关资料后写的代码。

fpSp.SuspendLayout()
Dim data As New FarPoint.Win.Spread.Data.SpreadDataBindingAdapter
Dim ds As DataSet = Adodc2.DataSource    'Adodc中保存的DataSource是DataSet类型。
data.DataSource = ds.Tables(0)             ' 必须是DataTable类型对吗？
data.Spread = fpSp
data.SheetName = fpSp.ActiveSheet.SheetName
data.MapperInfo = New FarPoint.Win.Spread.Data.MapperInfo(0, 0, ds.Tables(0).Rows.Count - 1, ds.Tables(0).Columns.Count - 1)
data.FillSpreadDataByDataSource()
fpSp.ResumeLayout()

如果代码方面没有错误，那么可能是什么情况造成运算速度非常慢呢？

回复 1楼darkelf的帖子

你好，

感谢问题反馈。
1.SheetView 设置 DataSource 属性后所有格式信息都会清除。可以考虑在绑定数据后设置隐藏行。
2.data.DataSource 可以指定为 DataSet ，再指定 data.DataMember 属性为 table 名称。
可以 Debug 看时间消耗在哪行代码。

谢谢

消耗时间在最后的data.FillSpreadDataByDataSource()。

回复 3楼darkelf的帖子

能从项目中提取个例子发上来查看吗？我这边根据目前信息无法重现问题。谢谢

我将测试程序中读取文件，设置格式，复制格式，数据绑定这部分代码集中处理了一下放在下面。

2. With fpsp
3.         ' load file
4.         .LoadFromFile("SampleSheet.ss7")
6.         .BlockMode = True
7.         .MaxCols = 113
8.         .MaxRows = 2996
9.         .Col = 1
10.         .Row = 2996
11.         .Col2 = 113
12.         .Row2 = 2996
14.         ' VB6InterFace是项目中针对VB6的旧版Spread制作的接口。 属性名与旧版Spread一致，内容通过Spread7实现。
16.         .CellType = VB6InterFace.CellTypeConstants.CellTypeNumber   `是列举型，根据 Typeof Cell.CellType is 新版CellType做内部分离
17.         .TypeTextOrient = VB6InterFace.TypeTextOrientConstants.TypeTextOrientHorizontal
18.         .TypeNumberShowSep = True
19.         .TypeNegRed = True
20.         .TypeNumberDecPlaces = 0
21.         .TypeNumberSeparator = ","
23.         For i As Integer = 1 To 113
25.                 .Col = i
26.                 .Row = 2996
27.                 .Col2 = i
28.                 .Row2 = 2996
29.                
30.                 Select Case i
32.                         Case 1, 2, 3, 4, 5, 6, 7
34.                                 .CellType = VB6InterFace.CellTypeConstants.CellTypeEdit
35.                                 .TypeTextOrient = VB6InterFace.TypeTextOrientConstants.TypeTextOrientHorizontal
36.                                 .TypeNegRed = True
37.                                 .TypePercentDecPlaces = 1
39.                         Case 11, 16, 21, 25, 29, 33, 37, 41, 45, 50, 55, 60, 65, 70, 75
41.                                 .CellType = VB6InterFace.CellTypeConstants.CellTypePercent
42.                                 .TypeTextOrient = VB6InterFace.TypeTextOrientConstants.TypeTextOrientHorizontal
43.                                 .TypeNegRed = True
44.                                 .TypePercentDecPlaces = 1
46.                 End Select
48.         Next i
50.         .BlockMode = False
51.         .Row = 1
52.         .Col = 1
54.        ` 将定义好的类型复制到第一行开始的位置。数量为取得Data的件数
55.         For i As Integer = 1 To 81
56.                 .CopyRowRange(2996, 2996, i)
57.         Next
58.         'End If
60.         .ActiveSheet.DataAutoCellTypes = False
62.         Dim strBf1 As String = GetSqlStr()
63.         Dim cn As New xxxAdodc.Connection
64.         cn.Open("Provider=SQLOLEDB.1;Data Source=database1;Persist Security Info=True;Password=1234;User ID=5678;Initial Catalog=testDb")
66.         `取得数据并保存在Adodc1中
67.         Dim da1 As OleDb.OleDbDataAdapter
68.         Dim ds1 As DataSet = New DataSet("Bs1")
69.         da1 = New OleDb.OleDbDataAdapter(strBf1, cn.conObj)
70.         da1.Fill(ds1, "Bs1")
71.         Me.Adodc1.DataSource = ds1
72.         Me.Adodc1.DataMember = "Bs1"
74.         `区域绑定
75.         Dim data As FarPoint.Win.Spread.Data.SpreadDataBindingAdapter = New FarPoint.Win.Spread.Data.SpreadDataBindingAdapter()
76.         Dim ds As DataSet = Adodc1.DataSource
77.         data.DataSource = ds.Tables(0)
78.         data.Spread = fpsp
79.         data.SheetName = fpsp.ActiveSheet.SheetName
80.         data.DataAutoCellTypes = False
81.         data.MapperInfo = New FarPoint.Win.Spread.Data.MapperInfo(0, 0, ds.Tables(0).Rows.Count - 1, ds.Tables(0).Columns.Count - 1)
82.         data.FillSpreadDataByDataSource()                ' 执行相对很慢，大约5～10秒， 在实际项目中，这个部分则是55秒
84. End With

复制代码

回复 5楼darkelf的帖子

可以将隐藏列自己添加到DataTable中，然后再绑定到Spread中

回复 5楼darkelf的帖子

很抱歉，上面代码我无法使用。
现在使用的版本是 Spread Studio for Winform 7.0 吗？
.MaxCols 和    .MaxRows 都是 Spread COM 版的属性。

不能重现问题，无法进行进一步调查，能发发送可执行 Demo 到论坛？

抱歉，我没有说清楚。
旧版本的Spread利用了MaxCols和MaxRows，于是在新版本Spread 7 for WindowsForm中，做了一个接口dll，直接用旧的属性名，
利用Spread7Form的方法来实现旧功能。
比如
MaxRows属性，就利用FarPoint.Win.Spread.FPSpread.ActiveSheet.RowCount

尽量降低程序修改难度和工作量。
可执行demo有，但是不方便发送到论坛。

回复 8楼darkelf的帖子

可以发送到我的邮箱里，已经通过论坛短消息发送给你。

你好。 关于区域绑定的问题，我找到了另外一种方法来处理列部分的设置，但是行依旧无法保存原始文件的设置。

SS7文件的最后三行保存着表格的表头等内容，数据绑定后，将表头内容复制并插入到数据头来实现表格的创建。

现在的问题是当Datasource绑定时，利用

1. 
   
2. FpSpread1.ActiveSheet.AutoGenerateColumns = False
   
3. FpSpread1.ActiveSheet.DataSource = Adodc.datasource
   

复制代码

我可以保持列的原始设置，但是行却没办法保存数据绑定前的原始设置。
例如SS7文件中，3000行开始时表头的内容。
数据库中取得datasource只有100行，此时数据绑定后的表就是
500列（spread默认列）X 100行。 100行以后的行数都被清理掉了，所以表头也无法设置。

请问这个该如何解决？
现在只有想到一个笨办法，临时创建一个tmpsheet，然后在Sheet1的数据绑定前，将Sheet1的表头内容复制到tmpsheet中，
Sheet1数据设置接收后再从tmpsheet取得