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

我原先是通过关联表的方式打开的生产管理表,现在不用关联表,而是用下面的代码动态显示表:

Dim Filter As String = "[合同编号] = '" & Tables("出库主表").Current("合同编号") & "'"
Tables("生产管理").Filter = Filter


原先的选择输入代码,现在为什么不行了,不起作用了?


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

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

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

此主题相关图片如下：1111.jpg


狐爸爸出错了,快快帮忙啊!

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

谢谢提示．已经ＯＫ了！