我原先是通过关联表的方式打开的生产管理表,现在不用关联表,而是用下面的代码动态显示表:
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()
|