|
请帮我看看窗口按钮的这个代码，使用时报错，并在副本表克隆一行，但打开主表，克隆行又不存在。本窗口是修改窗口，双击副本表行打开，打开窗口代码（解锁表和选定行，副本行与主表同步。）如果本窗口修改失误，点撤销，即下面代码，希望撤销已修改本行数据（窗口录入控件绑定到相关列），并锁定表和选定行，关闭窗口。谢谢
打开窗口代码：
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
|
[此贴子已经被作者于2010-1-21 15:18:41编辑过]
加好友 
发短信
Post By：2010/1/21 15:12:00 [只看该作者]
