Find寻找代码失效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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的不是上面的物料已经存在；

主题：Find寻找代码失效