dr = DataTables("包装箱结存").sqlFind("[材料编码] = '" & e.NewValue & "'")
改成
dr = DataTables("包装箱结存").Find("[材料编码] = '" & e.NewValue & "'")