| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 用户名是administrator (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126862) |
| -- 作者：Engineer1 -- 发布时间：2018/10/30 13:01:00 -- 用户名是administrator If User.isRole("审核") Then Tables("计量校准_table7").Current("审核") = UserName Tables("计量校准_table7").Current("审核日期") = Date.Today() Tables("计量校准_table7").Current.Save() Else MessageBox.show("你无审核权限!","提示") Return End If 老师给看一下，同样的代码在另一个窗口用户名就是登录名，而换个窗口咋不行了，用户名是怎么引用不了了呢。审核日期都保存上了
|
| -- 作者：有点甜 -- 发布时间：2018/10/30 14:56:00 -- 执行下面代码，弹出什么？
msgbox(userName) msgbox(_UserName) msgbox(user.name) |
| -- 作者：Engineer1 -- 发布时间：2018/10/30 15:32:00 -- 弹出的是管理员啊 |
| -- 作者：有点甜 -- 发布时间：2018/10/30 15:52:00 -- 1、哪一个才是你需要的值？
msgbox(userName) msgbox(_UserName) msgbox(user.name)
2、改成这样呢？
Dim r = Tables("计量校准_table7").Current
r("审核") = UserName
r("审核日期") = Date.Today()
r.Save()
3、如果还是不理解，做个实例发上来
|
| -- 作者：Engineer1 -- 发布时间：2018/10/30 16:03:00 -- 改成那样还是一个效果 |
| -- 作者：有点甜 -- 发布时间：2018/10/30 16:11:00 -- 1、改成
SystemReady = false Dim r = Tables("计量校准_table7").Current
r("审核") = UserName
r("审核日期") = Date.Today()
r.Save()
SystemReady = True
2、实例发上来测试
|
| -- 作者：Engineer1 -- 发布时间：2018/10/30 16:24:00 -- 老师，加上代码后测试结果还是一样的，实例是外部源的，可是另一个窗口和这个代码一样的怎么就是可以显示用户名呢 |
| -- 作者：有点甜 -- 发布时间：2018/10/30 16:32:00 -- 哪一个才是你需要的值？
msgbox(userName) msgbox(_UserName) msgbox(user.name)
|
| -- 作者：Engineer1 -- 发布时间：2018/10/30 16:36:00 -- msgbox(userName) 我需要这个，老师我用user.name 可以了，但是另外的窗口为什么没问题呢 [此贴子已经被作者于2018/10/30 16:39:05编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/10/30 16:41:00 -- 以下是引用Engineer1在2018/10/30 16:36:00的发言：
msgbox(userName) 我需要这个，老师我用user.name 可以了，但是另外的窗口为什么没问题呢 [此贴子已经被作者于2018/10/30 16:39:05编辑过]
1、userName的值，默认是【电脑的用户名】，而不是你项目的用户名。项目的用户名改成 User.name
2、你另外的窗口肯定写有比如 Dim userName = xxxx 的代码了 |