主题：怎样实现帮助中添加添加货品功能

1、打开窗口之前，给全局变量赋值为点击的表

vars("表名") = "表A.表B"

2、双击代码

Dim tbl As Table = Tables("窗口2_Table1")
If tbl.Current IsNot Nothing Then
    Tables(vars("表名")).Current("产品编号") = tbl.Current("商品编号")
    Tables(vars("表名")).Current("产品名称") = tbl.Current("商品名称")
    Tables(vars("表名")).Current("单价") = tbl.Current("进价")
End If
Forms("窗口2").Close()