主题：郁闷半天,这个代码要怎么修改?

代码如下:有些地方省略了

Dim dd As DataTable = DataTables("表A")

Dim db As DataTable = DataTables("表B")

Vals = dd.GetUniqueValues("编号 = '" & db.DataRows("订单编号") & "'And 产品名称 = '" & db.DataRows("产品名称") & "'","计量单位","数量","编号","产品名称")
代码意思是从表A中根据表B的订单编号跟产品名称获得不重复的值,表B为DataTable,那下面的代码该怎么改?

"编号 = '" & db.DataRows("订单编号") & "'And 产品名称 = '" & db.DataRows("产品名称") & "'"

For Each dr5 As DataRow In db.DataRows '循环 db 中的每一行
                Vals = dd.GetUniqueValues("编号 = '" & dr5("订单编号") & "'And 产品名称 = '" & dr5("产品名称") & "'","计量单位","数量","编号","产品名称")
                For i As Integer = 0 To Vals.Count - 1
                    Dim dr4 As DataRow = dd1.AddNew()
                    dr4("计量单位") = Vals(i)(0)
                    dr4("数量") = Vals(i)(1)
                    dr4("订单编号") = Vals(i)(2)
                    dr4("产品名称") = Vals(i)(3)
                Next
            Next

最早的代码是这样的,但循环的时候没实现获得不重复的值,因为db中存在重复的"订单编号"跟"产品名称",卡在这个位置了一直想不出办法指定条件