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

专家老师好，对于后台数据表，在没有加载的情况下，如何实现跨表更新数据，如上面代码中的  "全隐框玻璃幕墙单价分析表", "全明框玻璃幕墙单价分析表", "半明半隐框玻璃幕墙单价分析表"  都是后台数据模块，需要时才加载，平时是卸载掉的  ，在这种情况下，执行上述代码对于这行没加载的表会报错，请老师修改一下代码，对于没加载的表也能实现自动更新  谢谢老师，祝老师好