- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 双击父表数据将其插入子表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101797)
-- 发布时间：2017/6/7 11:31:00
-- 双击父表数据将其插入子表
请问，如附件所示，想实现双击工程量清单表的项目名称，使得子表验工计价表对上新建一行，且插入工程量清单表的四列数据（工程名称、项目编码、项目名称、计量单位）。请问工程量清单表中的Doubleclick应该怎么编程呢？
此主题相关图片如下：qq图片20170607112958.png
此主题相关图片如下：qq图片20170607112901.png
KPO.png)
-- 发布时间：2017/6/7 11:41:00
--
If e.Col.Name = "项目名称" Then
Dim nr As Row = Tables("表A").AddNew
nr("工程名称") = e.Row("工程名称")
nr("项目编码") = e.Row("项目编码")
End If
-- 发布时间：2017/6/7 15:31:00
--
你好，请问如果使用快捷菜单插入至子表的话，代码该如何编呢？
-- 发布时间：2017/6/7 15:50:00
--
Dim cr As Row = Tables("父表").current
Dim nr As Row = Tables("子表").AddNew
nr("工程名称") = cr("工程名称")
nr("项目编码") = cr("项目编码")
[此贴子已经被作者于2017/6/7 15:50:10编辑过]
-- 发布时间：2017/6/7 16:05:00
--
非常感谢，已解决。
-- 发布时间：2017/6/7 16:40:00
--
不好意思，还有个问题，快捷菜单设计时，如果将父表选中区域的数据都插入子表，而不是一行一行的插入，Range的click事件应该如何设置呢？
-- 发布时间：2017/6/7 16:59:00
--
Dim t As Table = Tables("父表")
For i As Integer = t.TopPosition To t.BottomPosition
Dim cr As Row = t.Rows(i)
Dim nr As Row = Tables("子表").AddNew
nr("工程名称") = cr("工程名称")
nr("项目编码") = cr("项目编码")
Next
-- 发布时间：2017/6/8 8:29:00
--
已解决，感谢！