以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]在窗口中给表新增数据?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38721)

--  作者:北冰洋
--  发布时间:2013/8/5 13:44:00
--  [求助]在窗口中给表新增数据?

放款表的窗口中,有一个 打款 的复选框,怎么在这个 打款 中打对勾时,自动在 打款明细 表中新增一行,并直接把以下数据填入打款明细表中    谢谢。。

放款表窗口中的 = 打款明细表中的

       放款编号   =  打款编号

       收款人      =  收款人

       放款人      =  负责人

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实验.foxdb


--  作者:Bin
--  发布时间:2013/8/5 14:04:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=37915&skin=0

参考这里做吧,打勾自动增加复制行很简单的.

--  作者:北冰洋
--  发布时间:2013/8/5 21:24:00
--  
大哥 不太一样的东西啊,您就费点劲帮我解决了吧  不会自己写代码啊  谢谢 谢谢 
--  作者:有点甜
--  发布时间:2013/8/5 22:02:00
--  
 代码

If e.Sender.Checked Then
    Dim ts As Table = e.Form.Controls("Table1").Table
    Dim td As Table = Tables("打款明细")
    Dim nr As Row = td.AddNew
    nr("打款编号") = ts.Current("放款编号")
    nr("收款人") = ts.Current("付款人")
    nr("负责人") = ts.Current("放款人")
End If

--  作者:北冰洋
--  发布时间:2013/8/5 22:25:00
--  
虽然看不明白吧 不过管用 谢谢大哥……