For Each dr As DataRow In DataTables("指令明细").Select("工序 is not null") Dim ary() As String = dr("工序").split("-") For Each s As String In ary Dim ndr As Row = Tables("生产指令.金工报表").addnew Dim a() As String = s.split("*") ndr("工序") = a(0) ndr("单价") = a(1) ndr("名称") = dr("名称") ndr("计划数量") = dr("生产数量") Next Next