主题：求助，集合问题

老师好，帮我看一下，下面代码哪里错了。

多谢！

Select Case e.DataCol.Name
    Case "产品编号","工令号"
        Dim dr As DataRow = e.DataRow
        Dim drs As DataRow() = DataTables("生产日报表").Find("产品编号='" & dr("产品编号") & "'")
        For Each r As DataRow In drs
            If r IsNot Nothing Then
                If r("订单状态")= "已完成" Then
                    dr("是否完成") = "已完成"
                End If
            End If
        Next
End Select

Dim drs As list(Of DataRow) = DataTables("生产日报表").select("产品编号='" & dr("产品编号") & "'")

http://www.foxtable.com/webhelp/scr/0400.htm

好的