以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单击某表里的一个单元格,自动把该单元格的数据添加到另一个表中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30103)

--  作者:地瓜
--  发布时间:2013/3/21 8:44:00
--  单击某表里的一个单元格,自动把该单元格的数据添加到另一个表中
比如:表A的结构为:   姓名       性别       年龄
                                张三        男           20
当我单击姓名列中的“张三”时,表B自动会把“张三”添加到该表的姓名列中,该如何实现呢?谢谢!图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2013/3/21 8:59:00
--  

首先禁止编辑表A这个表,你可以锁定他。

然后设置表A的DoubleClick事件:

 

If e.col.name = "姓名" Then
    Dim r As Row = Tables("表B").AddNew
    r("姓名") = e.Row("姓名")
End If

 

这样双击表A的姓名列,就会在表B增加一行,并自动将姓名列复制到新增行中。


--  作者:地瓜
--  发布时间:2013/3/21 9:01:00
--  
谢谢狐狸爸爸!图片点击可在新窗口打开查看
--  作者:jinzhengbe
--  发布时间:2015/4/22 16:47:00
--  
能问下可以不锁定么?锁定的原因是什么啊?
--  作者:Bin
--  发布时间:2015/4/22 16:48:00
--  
可以,以前不锁定无法触发DoubClick事件