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

dim f As New Filler
f.SourceTable = DataTables("生产管理")
f.DataTable = DataTables("出库明细")
f.Filter = "选择 = true"
f.Fill()
Dim drs As List(Of DataRow)
drs = DataTables("生产管理").Select("[选择] = True")
For Each dr As Datarow In drs
    dr("状态") = "销售"
    dr("出库日期") = date.today()
    dr("选择") = False
Next
e.Form.Close()

数据已经复制进去了，只是未写入关联列的数据。

dim f As New Filler
f.SourceTable = DataTables("生产管理")
f.SourceCols = "色名,一"
f.DataTable = DataTables("出库明细")
f.DataCols = "色名,一"
f.Filter = "选择 = true"
f.Fill()
Dim drs As List(Of DataRow)
drs = DataTables("生产管理").Select("[选择] = True")
For Each dr As Datarow In drs
    dr("状态") = "销售"
    dr("出库日期") = date.today()
    dr("选择") = False
Next
Dim drs1 As List(Of DataRow)
drs1 = DataTables("出库明细").Select("[出库单号] Is Null")
For Each dr1 As Datarow In drs1
    dr1("出库单号") = tables("出库单").Current("出库单号")
Next
e.Form.Close()

楼主代码存在一个问题，我还不知道怎么解决，就是不能即时刷新窗口中关联表的数据(我还不知方法)。