返回的是一个数组
Dim drs1 As DataRow() = dt.Select("物料编码='" & dr("物料编码").ToString() & "' and 库位类别 = '" & dr("U8库位类别").ToString() & "' ")For Each mr As DataRow In drs1