dr = DataTables("物料信息").Find("物料代码 = '" & e.DataRow("物料代码") & "'" )
改成
dr = DataTables("物料信息").sqlFind("物料代码 = '" & e.DataRow("物料代码") & "'" )