区域表格绑定数据的问题

收藏

将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()

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

iceman · iceman

回复 1楼darkelf的帖子

你好，

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

谢谢

darkelf · darkelf

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

iceman · iceman

回复 3楼darkelf的帖子

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

darkelf · darkelf

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

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

复制代码

gaoge00 · gaoge00

回复 5楼darkelf的帖子

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

iceman · iceman

回复 5楼darkelf的帖子

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

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

darkelf · darkelf

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

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

iceman · iceman

回复 8楼darkelf的帖子

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

darkelf · darkelf

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

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

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

FpSpread1.ActiveSheet.AutoGenerateColumns = False
FpSpread1.ActiveSheet.DataSource = Adodc.datasource

复制代码

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

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

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

[已处理] 区域表格绑定数据的问题

17 个回复

活字格认证

微信认证勋章

元老葡萄