主题：双击父表数据将其插入子表

请问，如附件所示，想实现双击工程量清单表的项目名称，使得子表验工计价表对上新建一行，且插入工程量清单表的四列数据（工程名称、项目编码、项目名称、计量单位）。请问工程量清单表中的Doubleclick应该怎么编程呢？
此主题相关图片如下：qq图片20170607112958.png

If e.Col.Name = "项目名称" Then

    Dim nr As Row = Tables("表A").AddNew

    nr("工程名称") = e.Row("工程名称")

    nr("项目编码") = e.Row("项目编码")

End If

你好，请问如果使用快捷菜单插入至子表的话，代码该如何编呢？

 Dim cr As Row = Tables("父表").current

 Dim nr As Row = Tables("子表").AddNew

 nr("工程名称") = cr("工程名称")

 nr("项目编码") = cr("项目编码")

非常感谢，已解决。

不好意思，还有个问题，快捷菜单设计时，如果将父表选中区域的数据都插入子表，而不是一行一行的插入，Range的click事件应该如何设置呢？

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

已解决，感谢！