以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  记录修改用户名和时间代码求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5827)

--  作者:wqc360
--  发布时间:2010/1/21 10:07:00
--  记录修改用户名和时间代码求助

我在表属性AfterEdit事件中设置如下代码:
 

if e.col.name = "最后修改"

    e.Cancel = True

else

    e.row("最后修改") =Tables("登陆")(0)("用户名")& " " & now

end if


但是现在我是在录入窗口进行修改数据,怎么“最后修改”列不会记录,是否可以在修改窗口保存按钮中加代码,代码应怎么写。窗口保存代码如下:
Tables("产品目录").Current.Locked = True \'锁定行
Forms("产品目录修改").Close() \'关闭窗口
Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick() \'保存
DataTables("产品目录").AllowEdit = False

--  作者:wqc360
--  发布时间:2010/1/21 11:06:00
--  
已解决:
1.在窗口AfterLoad事件设置代码:
With Forms("产品目录修改").Controls("最后修改")
        .Value = Tables("登陆")(0)("用户名")& " " & now
End With
2.在窗口绑定字段控件(最后修改)TextChanged事件设置代码:
e.Sender.WriteValue()
不知有没有更简单的方法。