Dim drs As List(Of DataRow)
Dim Vals() As String = New String(){"色名","一","二","三","四","五"}
drs = Tables("出库单").Current.DataRow.GetChildRows("生产管理")
For Each dr1 As Datarow In drs
If dr1("选择") = False Then
Continue For
End If
dr1("状态") = "销售"
dr1("出库日期") = date.today()
dr1("选择") = False
Dim dr2 As Row = Tables("出库单.出库明细").AddNew()
For Each Val As String In Vals
dr2(val) = dr1(val)
Next
Next
e.Form.Close()