标题：窗口代码报错

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

这是点按钮时的报错图片：

此主题相关图片如下：未命名.bmp

这是不习惯时点按钮在副本表和主表出现的克隆行图片
此主题相关图片如下：2.bmp

这是以上不修改点按钮出现错误提示，点提示窗口确定后出现的图片：但是重新查看，克隆行是不存在的。

此主题相关图片如下：3.bmp

呵呵，看得迷迷糊糊