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

此主题相关图片如下：未标题-2.jpg


1.在出库单窗口中选择"生产管理查看"按钮以后,打开生产管理窗口
2.在"生产管理'窗口中,点击＂关联表＂控件当中的＂选择＂列
3.点击"选择确认"按钮,可以自动复制到"出库单明细"中,另外,生产管理表中的 "状态" 改成:  销售
                                                                                                "日期"输入:当前日期

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.table

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.table

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

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

 

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

谢谢狐爸爸,搞定了!

老爹这个楼主的datalist是绑定的表...假如是没绑定的怎么处理?

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