以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  Find寻找代码失效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92694)

--  作者：benwong2013 --  发布时间：2016/11/10 14:29:00 --  Find寻找代码失效 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的不是上面的物料已经存在；

--  作者：有点蓝 --  发布时间：2016/11/10 15:04:00 --   代码没有问题。检查是不是数据的问题