主题：[求助]帮我看看这代码哪错了？怎么不好用呢

Select Case e.DataCol.Name

    Case "颜色","名称","全半盖"

        Dim dr As DataRow = e.DataRow

        Dim pr As DataRow

        If dr.IsNull("名称") = True OrElse dr.IsNull("颜色") = True Then

            dr("产品编号") = Nothing

        Else

            Dim filter As String

            filter = "名称 = '" & dr("名称") & "' And 颜色 = '" & dr("颜色") & "' And 全半盖 = '" & dr("全半盖") & "'"

            pr = DataTables("订单明细").Find(filter)

            If pr IsNot Nothing Then

                dr("产品编号") = pr("产品编号")

            Else

Dim s1 As String = dr("名称")

Dim s2 As String = dr("颜色")

Dim s3 As String = dr("全半盖")

                dr("产品编号") =""& s1 &" "& s2 &" "& s3 &""

            End If

        End If

End Select

但是这样的话就只能是最后一行才能正确索引，因为PR找到的是符合条件的第一行，也就是说修改行一下的行使不会索引的，各位大大们谁能想象办法呢