以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于跨表引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25797) |
||||
-- 作者:客家阿哥 -- 发布时间:2012/11/16 20:43:00 -- 关于跨表引用 我记得有个例子是,鼠标双击A表某一行,某些列的值自动增加到B表中。那位大侠指点一下? |
||||
-- 作者:布莱克朱 -- 发布时间:2012/11/16 21:19:00 -- Dim r As Row = e.Table.Current If r Is Nothing Then Return End If Dim dr As DataRow = DataTables("表B").AddNew dr("第一列") = r("第二列") 锁定表 表事件的双击事件.
|
||||
-- 作者:客家阿哥 -- 发布时间:2012/11/16 22:18:00 -- 搞了半天还是不行,前辈能否给个例子? |
||||
-- 作者:客家阿哥 -- 发布时间:2012/11/16 22:39:00 -- 看“入库单”
|
||||
-- 作者:客家阿哥 -- 发布时间:2012/11/17 8:55:00 -- 自己顶一顶 |
||||
-- 作者:lin_hailun -- 发布时间:2012/11/17 8:59:00 -- 例子看不明白,楼主需要双击后,把哪几列添加到哪个表? |
||||
-- 作者:客家阿哥 -- 发布时间:2012/11/17 9:08:00 -- 我给的不是双击,是要选中明细中的某个商品,按左下角“添加商品明细”按钮,把商品添加到入库单中的明细表中 |
||||
-- 作者:lin_hailun -- 发布时间:2012/11/17 9:13:00 -- 哦哦,你只是把表引用错了。 Dim dr As Row = Tables("入库单.入库明细").AddNew \'增加一行 Dim r As Row = Tables("入库单_商品明细").Current If r Is Nothing Then Return End If dr("商品名称") = r("商品名称") |
||||
-- 作者:客家阿哥 -- 发布时间:2012/11/17 9:17:00 -- 引用的表没有错,只是点击“添加商品明细”后,无论鼠标选中“商品明细”哪一行的数据,“入库明细”里面添加的数据都是“商品明细”中第一行的数据 |
||||
-- 作者:lin_hailun -- 发布时间:2012/11/17 9:21:00 -- 注意看,红色的提示,和你写的有什么不同。 http://www.foxtable.com/help/topics/1906.htm |