窗口代码问题:
窗口“铣床日报表修改”有一组合框控件“最后修改”,绑定某表的某列,其控件
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,即当前登录用户名+当前日期和时间,并填写在绑定表的绑定列。
谢谢各位了。
我测试没有任何问题呀。
Forms("铣床日报表修改").Controls("最后修改").Value = Tables("登陆")(0)("用户名") & " " & now
Forms("铣床日报表修改").Controls("最后修改").WriteValue
DataTables("指定表").Save()
谢谢C版,用您的方法,搞定,用我的方法,做示范文件可以,在项目中就提示出错。