请教RaiseDataColChanged手工触发DataColChanged事件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这样试试能不能出正确结果？

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编辑过]

主题：请教RaiseDataColChanged手工触发DataColChanged事件