'-----开始填入物料清单
Dim filter As String = Tables("IL接头任务单").filter
If filter > "" Then filter = filter & " and "
'填入物料编号
Dim Products As List(Of String) = DataTables("IL接头任务单").GetValues("产品型号与回路号",filter & " SO号与箱号 ='" & ctn(s-1) & "' ", "侧盖板组件") '按侧盖板组件进行排序