Dim dr1 As DataRow For Each dr As DataRow In DataTables("工作明细").DataRows dr1=DataTables("统计").find( "工作内容 Like '%" & dr("明细工作") & "%'" ) If dr1 Is Nothing Then messagebox.show("这个工作" & dr("挖掘") & "有问题","提示") Else dr1("计算工资")=dr1("计算工资")+dr("工资") End If