以文本方式查看主题

-  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
--  

看“入库单”

 

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


--  作者:客家阿哥
--  发布时间: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