以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，集合问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99809)
--  作者：刘异
--  发布时间：2017/4/27 10:13:00
--  求助，集合问题

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

多谢！

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
--  作者：有点色
--  发布时间：2017/4/27 10:14:00
--  

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

 

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

 
--  作者：刘异
--  发布时间：2017/4/27 10:16:00
--  

好的