主题：关联表的多项选择输入！

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()

没有邦定，就没有数据，没有数据，也就没有必要处理。