主题：含有复选框表的窗口的多窗口调用问题

我有一个存货选择窗口，想在采购订单、销售订单和生产记录中，需要用到存货相关信息时，都可以调用存货选择窗口。

现在在存货选择窗口放了个确认键，如果确认，则把信息调用到采购订单表中。
但问题来了，在存货选择窗口的确认建的CLICK事件，我需要写把数据调用到哪个窗口。
Dim Cols1() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
Dim Cols2() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
For Each r1 As Row In Tables("存货选择_table1").GetCheckedRows
    For i As Integer = 0 To Cols1.Length -1
        Dim r2 As Row = Tables("订单明细").Current
        r2(Cols2(i)) = r1(Cols1(i))
    Next
Next
Forms("存货选择").close

如上，有没有办法，可以让这个确认按钮，同时对其它几个窗口调用的时候有效呢，而不是只能指定一个窗口。

打开窗口的时候，用变量记录其值，如

 

vars("表名") = "订单明细"

Forms("存货选择").Open

 

---------------

 

然后这样写代码

 

Dim r2 As Row = Tables(vars("表名")).Current

谢谢大红袍老师，总是很及时，很帮助 ：）

好像不行，变成第一行是空行了

Dim Cols1() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
Dim Cols2() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
For Each r1 As Row In Tables("存货选择_table1").GetCheckedRows
    Dim t As Table = Tables(vars("表名"))
    Dim r2 As Row = iif(t.current Is Nothing OrElse t.Current.Index = t.Rows.Count-1, t.AddNew, t.Current)
    For i As Integer = 0 To Cols1.Length -1
        r2(Cols2(i)) = r1(Cols1(i))
    Next
Next
Forms("存货选择").close

Dim r2 As Row = iif(t.current Is Nothing OrElse t.Current.Index = t.Rows.Count-1, t.AddNew, t.Current)

Dim Cols1() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
Dim Cols2() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
Dim count As Integer = 0
For Each r1 As Row In Tables("存货选择_table1").GetCheckedRows
    Dim t As Table = Tables(vars("表名"))
    Dim r2 As Row = iif(count = 0, t.current, t.addnew)
    count += 1
    For i As Integer = 0 To Cols1.Length -1
        r2(Cols2(i)) = r1(Cols1(i))
    Next
Next
Forms("存货选择").close

 

用这个代码，第二行会出现空行。复选框的值是都写入到表中了。