Select Case e.DataCol.Name Case "收入","支出","客户","项目" Dim dr As DataRow = DataTables("表B").DataRows dr("收款_定金") = DataTables("表A").Compute("sum(收入)","dr(客户) ='" & e.DataRow("客户") & "'and [项目]="定金"") End Select 现在想在表A收入、支出、客户、项目四列其中一列发生改变后,表B自动进行计算变更,老提示代码出错 ,Dim dr As DataRow = DataTables("表B").DataRows提示错误