请帮我看看窗口按钮的这个代码，使用时报错，并在副本表克隆一行，但打开主表，克隆行又不存在。本窗口是修改窗口，双击副本表行打开，打开窗口代码（解锁表和选定行，副本行与主表同步。）如果本窗口修改失误，点撤销，即下面代码，希望撤销已修改本行数据（窗口录入控件绑定到相关列），并锁定表和选定行，关闭窗口。谢谢

打开窗口代码：
If e.Table.name = "产品工艺录入_Table1" \'如果操作窗口控件
    If  Vars("用户组") <> "浏览员" \'如果用户不是浏览员
        Dim r as Datarow = CurrentTable.Current.DataRow \'指定窗口控件行
        Tables("产品目录").ApplyFilter = False \'主表取消筛选
        tables("产品目录").Position = tables("产品目录").FindRow(r) \'指定窗口行与主表同步
        DataTables("产品目录").AllowEdit = True \'主表取消锁定
        Tables("产品目录").Current.Locked = False \'取消锁定行
        Forms("产品目录修改").open() \'打开窗口
        Return \'否则不执行
    End If
End If
撤销修改按钮代码：
Tables("产品目录").Current.DataRow.Load(False)
Tables("产品目录").Current.Locked = True \'锁定行
Forms("产品目录修改").Close() \'关闭窗口
Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick() \'保存
DataTables("产品目录").AllowEdit = False