主题：自动打开另外一个窗口并且另外一个窗口引用本窗口数据

采购订单窗口和付款凭证两个窗口，填写完毕采购订单窗口并且经审批后，点击采购订单窗口的付款按钮打开付款凭证，新增加一行并且相关数据自动引入付款凭证窗口中，并写了以下代码

Forms("付款凭证").show

Dim Dr As DataRow = DataTables("支付信息").addnew()
Forms("付款凭证").Controls("textbox2").Select()
'dr("收款单位")= e.Form.Controls("ComboBox1").text
Forms("付款凭证").Controls("textBox2").text=e.Form.Controls("ComboBox1").text

但是付款凭证窗口的并不能自动到新增加的行中，该怎么办？

在采购订单中打开付款凭证，并在支付信息表新增加一行，怎么能付款凭证窗口控件自动引用新增行呢，这是问题的关键

Forms("付款凭证").show

Dim Dr As DataRow = DataTables("支付信息").addnew()
'dr("收款单位")= e.Form.Controls("ComboBox1").text

以上三行代码能够打付款凭证、新增行、在新增行中写入信息，但是付款凭证窗口中看到的内容并不是新增行的，该怎么办