Dim drs As list(Of DataRow) = DataTables("生产日报表").select("产品编号='" & dr("产品编号") & "'")
http://www.foxtable.com/webhelp/scr/0400.htm