Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Select Case e.DataCol.Name
Case "类别", "名称" , "比率系数", "备注"
Dim bms() As String = {"全隐框玻璃幕墙单价分析表",
"全明框玻璃幕墙单价分析表", "半明半隐框玻璃幕墙单价分析表"}'最后整体拷贝修改
For Each bm As String In
bms
Dim drs As List(Of
DataRow) = DataTables(bm).Select( "[项目构成] = '" & e.DataRow("名称") & "' and [辅助列1] = '" & e.DataRow("类别")
& "'")
For Each dr As DataRow
In drs
dr(e.DataCol.Name)
= e.NewValue
Next
Next
End Select
专家老师好,对于后台数据表,在没有加载的情况下,如何实现跨表更新数据,如上面代码中的 "全隐框玻璃幕墙单价分析表", "全明框玻璃幕墙单价分析表", "半明半隐框玻璃幕墙单价分析表" 都是后台数据模块,需要时才加载,平时是卸载掉的 ,在这种情况下,执行上述代码对于这行没加载的表会报错,请老师修改一下代码,对于没加载的表也能实现自动更新 谢谢老师,祝老师好