Select Case e.DataCol.name Case "今年计划_1月" Dim dr As DataRow dr = DataTables("直营事业部新开店铺计划").Find("业态 = '合计' And 属性 = '店铺数'") systemready = False If dr IsNot Nothing Then '如果找到的话 dr("今年计划_1月") = Tables("直营事业部新开店铺计划").Compute("sum(今年计划_1月)","属性 = '店铺数' and 业态 <> '合计'") End If systemready = True End Select