以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口按钮代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5865)
--  作者：wqc360
--  发布时间：2010/1/25 22:21:00
--  窗口按钮代码
窗口代码问题：
窗口“铣床日报表修改”有一组合框控件“最后修改”，绑定某表的某列，其控件TextChanged代码为：
e.Sender.WriteValue()


有一按钮“修改”，单击按钮代码为：
With Forms("铣床日报表修改").Controls("最后修改")
        .Value = Tables("登陆")(0)("用户名")& " " & now
End With
Tables("日报表").Current.Locked = True \'锁定行
Forms("铣床日报表修改").Close() \'关闭窗口
Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick() \'保存
DataTables("日报表").AllowEdit = False

怎么能达到我的要求，但是会出现一些错误提示和与应该的行，正确的代码应该怎么写，要求是：
点修改按钮时，“最后修改”控件内容为Tables("登陆")(0)("用户名")& " " & now，即当前登录用户名+当前日期和时间，并填写在绑定表的绑定列。
谢谢各位了。
--  作者：程兴刚
--  发布时间：2010/1/25 22:31:00
--  
& 前面少一空格！
--  作者：czy
--  发布时间：2010/1/25 23:43:00
--  
这和少一个空格应该没什么问题吧。
最后修改是什么类型的控件？
--  作者：wqc360
--  发布时间：2010/1/26 0:28:00
--  
最后修改控件是组合框ComboBox控件，绑定列是字符型
--  作者：czy
--  发布时间：2010/1/26 2:01:00
--  

我测试没有任何问题呀。

Forms("铣床日报表修改").Controls("最后修改").Value = Tables("登陆")(0)("用户名") & " " & now
Forms("铣床日报表修改").Controls("最后修改").WriteValue
DataTables("指定表").Save()
--  作者：wqc360
--  发布时间：2010/1/26 10:02:00
--  
谢谢C版，用您的方法，搞定，用我的方法，做示范文件可以，在项目中就提示出错。