Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:窗口按钮代码

1楼
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,即当前登录用户名+当前日期和时间,并填写在绑定表的绑定列。
谢谢各位了。
2楼
程兴刚 发表于:2010/1/25 22:31:00
& 前面少一空格!
3楼
czy 发表于:2010/1/25 23:43:00
这和少一个空格应该没什么问题吧。
最后修改是什么类型的控件?
4楼
wqc360 发表于:2010/1/26 0:28:00
最后修改控件是组合框ComboBox控件,绑定列是字符型
5楼
czy 发表于:2010/1/26 2:01:00

我测试没有任何问题呀。

Forms("铣床日报表修改").Controls("最后修改").Value = Tables("登陆")(0)("用户名") & " " & now
Forms("铣床日报表修改").Controls("最后修改").WriteValue
DataTables("指定表").Save()

6楼
wqc360 发表于:2010/1/26 10:02:00
谢谢C版,用您的方法,搞定,用我的方法,做示范文件可以,在项目中就提示出错。
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02930 s, 2 queries.