以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动打开另外一个窗口并且另外一个窗口引用本窗口数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80702)

--  作者:kaituozhe
--  发布时间:2016/1/29 15:45:00
--  自动打开另外一个窗口并且另外一个窗口引用本窗口数据

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

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

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

 


--  作者:大红袍
--  发布时间:2016/1/29 15:47:00
--  

你橙色的那个代码不要注释掉

 

http://www.foxtable.com/help/topics/2436.htm

 


--  作者:kaituozhe
--  发布时间:2016/1/29 15:56:00
--  

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


--  作者:大红袍
--  发布时间:2016/1/29 15:57:00
--  

新增的行,就是dr啊

 

Dim Dr As DataRow = DataTables("支付信息").addnew()


--  作者:kaituozhe
--  发布时间:2016/1/29 15:57:00
--  

Forms("付款凭证").show

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

 

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


--  作者:大红袍
--  发布时间:2016/1/29 15:59:00
--  

那就是你表名写错了

 

Dim Dr As Row = Tables("窗口1_Table1").addnew()

 


--  作者:kaituozhe
--  发布时间:2016/1/29 17:08:00
--  
窗口中的表是绑定支付信息表的,这样是否也能在支付信息中表增加一行呢
--  作者:大红袍
--  发布时间:2016/1/29 17:10:00
--  

副本表的内容和主表的内容都是一样的。

 

如果出问题,做个例子上来测试。