主题：现在的选择输入为什么不行了!

没有建立关联，下面的代码无效：

drs = Tables("出库主表").Current.DataRow.GetChildRows("生产管理")

应该怎么改，留给你做作业，完不成作业再上来提问。

给个提示吧，DataTable.Select语句。

Dim drs As List(Of DataRow)
Dim Filter As String = "[合同编号] = '" & Tables("出库主表").Current("合同编号") & "'"
Dim Vals() As String = New String(){"生产号"}
drs = DataTables("出库主表").Select(Filter)
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()

错误提示的意思是: 出库主表没有名为“选择”的列。
明白这个原因，你应该知道如何处理了。