Dim dr2 As DataRow For Each dr1 As DataRow In DataTables("表B").datarows dr2 = DataTables("表C").Find("[第二列] like '%" & dr1("第二列") & "%'") If dr2 Is Nothing Then MessageBox.Show("没有找到此字符串:" & dr1("第二列") ) Else '如果找到的话 dr1("第二列")= dr2("第二列") End If Next