主题：[求助]检查包含字符串Contains【已解决】

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

查找统计表中 “工作内容” 包含明细表中 “明细工作” 就将他们的工资合并起来！ 

find( "工作内容.Contains('" & dr("明细工作") & "')" )  是不是这样，出错！

高手帮帮怎么写字段的 包含

谢谢