RaiseDataColChanged手工触发DataColChanged事件后再对某列对另外一个表格数据汇总，每次选择主表或者启动后，自动计算，但是好慢啊，要停10多秒钟时间不动。
请问下还有其它的方法吗？
对于跨表计算只能触发DataColChanged事件吗？
谢谢～
可以在当前表的DataColChanged事件中设置代码，对统计表进行实时计算，如果数据量很大，这个方法估计比在统计表中一次性计算要好。
以下是引用烟酒在2009-4-1 22:21:00的发言：
RaiseDataColChanged手工触发DataColChanged事件后再对某列对另外一个表格数据汇总，每次选择主表或者启动后，自动计算，但是好慢啊，要停10多秒钟时间不动。
请问下还有其它的方法吗？
对于跨表计算只能触发DataColChanged事件吗？
谢谢～
不要针对所有行触发，通常应该针对某一行，除非要重算所有数据。
下面是帮助中的一段话：
注意我们给RaiseDataColChanged参数：
DataTables("表A").DataCols("分类").RaiseDataColChanged(dr)
如果省略参数，将针对所有行的分类列触发DataColChanged事件，效率会低很多。
另外还需要检查一下代码，看看是否存在重复计算的问题，因为设置不当，效率差个100倍的情况，也是常见的。
[此贴子已经被作者于2009-4-2 9:27:45编辑过]
呵呵 但是我的汇总表里面之前已经有现成的数据了，只是在某列统计数据，我也是在当前表的DataColChanged事件中设置代码的，但是要手工触发，因为其它数据没有变化。谢谢
czy感谢老6指教。我的数据是需要行都要进行统计，因为这个统计表内的项目是后面明细表所有项目包含的，那么多数据我也不知道哪些数据行需要统计哪些不需要统计，所以我不得不触发所有行统计。
（这个汇总表的列也比较多，有58列，里面大部分是公示列，只有11列公式无法计算，需要代码进行计算。）
这是
MainTableChanged内设置的：
If MainTable Is Nothing Then
Return
End If
If Maintable.Name = "工程量清单" Then
DataTables("工程量清单").DataCols("清单编号").RaiseDataColChanged()
End If
这是DataColChanged设置的：
dim nius as new list(of String)
Dim dr As DataRow = e.DataRow
nius= DataTables("台帐").GetUniqueValues("", "清单内容")
If e.DataCol.name="清单编号" then
For Each niu As String In nius
dr("田家屋场大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '田家屋场大桥'")
dr("向家梁子大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '向家梁子大桥'")
dr("牛王庙大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '牛王庙大桥'")
dr("易家屋场大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '易家屋场大桥'")
dr("月亮山大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '月亮山大桥'")
dr("K28540天桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K28+540车行天桥'")
dr("K29360天桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K29+360车行天桥'")
dr("K28312涵洞_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K28+312钢筋砼盖板涵'")
dr("K28605涵洞_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K28+605钢筋砼盖板涵'")
dr("K29580涵洞_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K29+580钢筋砼盖板涵'")
dr("增减数量")=DataTables("台帐").Compute("Sum(增减数量)", "[清单内容] = '" & dr("清单编号") & "'" )
next
end if
[此贴子已经被作者于2009-4-2 13:50:06编辑过]
这样会快100倍：
If e.DataCol.name="清单编号" then
dr("田家屋场大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '田家屋场大桥'")
dr("向家梁子大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '向家梁子大桥'")
dr("牛王庙大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '牛王庙大桥'")
dr("易家屋场大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '易家屋场大桥'")
dr("月亮山大桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = '月亮山大桥'")
dr("K28540天桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K28+540车行天桥'")
dr("K29360天桥_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K29+360车行天桥'")
dr("K28312涵洞_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K28+312钢筋砼盖板涵'")
dr("K28605涵洞_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K28+605钢筋砼盖板涵'")
dr("K29580涵洞_变更后数量")=DataTables("台帐").Compute("Sum(变更后数量)", "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = 'K29+580钢筋砼盖板涵'")
dr("增减数量")=DataTables("台帐").Compute("Sum(增减数量)", "[清单内容] = '" & dr("清单编号") & "'" )
end if
[此贴子已经被作者于2009-4-2 14:29:01编辑过]
这样试试能不能出正确结果？
Dim dt As DataTable = DataTables("台帐")
Dim dr As DataRow = e.DataRow
Dim Str As String = "[清单内容] = '" & dr("清单编号") & "'" & "and [单位工程名称] = "
If e.DataCol.name="清单编号" then
dr("田家屋场大桥_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'田家屋场大桥'")
dr("向家梁子大桥_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'向家梁子大桥'")
dr("牛王庙大桥_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'牛王庙大桥'")
dr("易家屋场大桥_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'易家屋场大桥'")
dr("月亮山大桥_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'月亮山大桥'")
dr("K28540天桥_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'K28+540车行天桥'")
dr("K29360天桥_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'K29+360车行天桥'")
dr("K28312涵洞_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'K28+312钢筋砼盖板涵'")
dr("K28605涵洞_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'K28+605钢筋砼盖板涵'")
dr("K29580涵洞_变更后数量")=dt.Compute("Sum(变更后数量)", Str & "'K29+580钢筋砼盖板涵'")
dr("增减数量")=dt.Compute("Sum(增减数量)", "[清单内容] = '" & dr("清单编号") & "'" )
end if
[此贴子已经被作者于2009-4-2 15:40:14编辑过]
用c版的代码，速度比楼主的提高100倍是保守估计，正常的话，应该是提高1000倍。
简化一下吧:
Dim T,gs,Ln,Ls() As String
Dim dr As DataRow = e.DataRow
T = "[清单内容] = '" & dr("清单编号") & "'"
Ln = "田家屋场大桥,向家梁子大桥,牛王庙大桥,易家屋场大桥,月亮山大桥"
Ln = Ln & ",K28540天桥,K29360天桥,K28312涵洞,K28605涵洞,K29580涵洞,增减数量"
Ls = Ln.split(",")
If e.DataCol.name="清单编号" then
For Each Ln In Ls
if Ln.Indexof("天桥") > 0 orelse Ln.Indexof("涵洞") > 0 then
T = T & " and [单位工程名称] = '" & Ln.Insert(3,"+") & "'"
T = T.Replace("天桥","车行天桥").Replace("涵洞","钢筋砼盖板涵")
End if
if Ln <> "增减数量" then
Ln = Ln & "_变更后数量"
gs = "Sum(变更后数量)"
else
gs ="Sum(增减数量)"
end if
dr(Ln) = DataTables("台帐").Compute(gs,T)
Next
end if
[此贴子已经被作者于2009-4-2 16:00:51编辑过]