主题：Q:这种下拉窗口可以支持多选回写吗，点订单父表有个窗口

做个按钮:

Dim rs As List(of Row) = Tables(e.form.Name & "_Table1").GetCheckedRows()
For Each r As Row In rs
    With Tables(e.form.Name & "_Table1")
        For i As Integer = .BottomRow To .TopRow Step -1
            Dim r1 As Row = .Rows(i)
            Dim r2 As Row = Tables("订单父表.订单子表").AddNew
            For Each c As Col In .Cols
                r2(c.name) = r1(c.name)
            Next
        Next
    End With
Next
Tables("订单父表.订单子表").DataTable.Save
Tables("订单父表.订单子表").DataTable.DeleteFor("产品编号 Is Null")

代码如下.