Dim dr As Row = Tables("请购需求管理_table1").Current
Dim fdr As DataRow = DataTables("B_Material").Find("[物料名称] = '" & dr("物料名称") & "' And [规格] = '" & dr("规格") & "' And [等级] = '" & dr("等级") & "' And [单位] = '" & dr("单位") & "' And [品牌] = '" & dr("品牌") & "'")
If fdr IsNot Nothing Then
MessageBox.Show("此物料信息已经存在,请核对!","~温馨提示~")
Else
MessageBox.Show("12","~温馨提示~")
End If
请帮忙检查一下代码哪里出现问题，若 Tables("请购需求管理_table1")和"B_Material"都有一样的时候，还是只出现提示12的不是上面的物料已经存在；
加好友 
发短信
Post By：2016/11/10 14:29:00 [显示全部帖子]
