- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150248)
-- 发布时间：2020/5/25 11:12:00
-- [求助]
全局代码添加：
Public _UserName As String
Public _UserGroup As String
登录窗口添加：
_UserName = UserName
_UserGroup = dr("用户组")
其他页面引用_UserName 值为空，是什么原因？
-- 发布时间：2020/5/25 11:13:00
--
其他页面是在登录窗口打开前引用_UserName 值，还是登录之后引用？
-- 发布时间：2020/5/25 11:16:00
--
登录之后
-- 发布时间：2020/5/25 11:18:00
--
登录窗口确定按钮完整代码发上来看看
-- 发布时间：2020/5/25 17:15:00
--
登录页面，确定按钮
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:登录页面确定按钮.txt |
[此贴子已经被作者于2020/5/25 17:19:15编辑过]
-- 发布时间：2020/5/25 17:34:00
--
其他页面引用_UserName的地方的完整代码也发上来看看，在什么事件引用的？
-- 发布时间：2020/5/25 17:52:00
--
保存按钮 click 事件
Dim aa As String
aa = "修改 "& gdlx &" 为:"& gdnr &" ,备注为:"& gdbz &""
If gdlx <> "选择跟踪项目" And gdnr <> ""
dr1(gdlx2) = gdnr
Tables("采购跟单_Table1").Save
Dim dr4 As Row = Tables("采购跟单_Table4").AddNew()
dr4("采购单号") = dr1("orderno")
dr4("跟单内容") = aa
dr4("操作人") = _UserName
dr4("操作时间") = Date.Now()
DataTables("采购跟单_Table4").Save
MessageBox.Show("保存成功")
Else
MessageBox.Show("请填写跟单内容")
End If
-- 发布时间：2020/5/25 20:10:00
--
那不应该有问题，除非有其它代码重新改了_UserName的值。输出所有代码搜索检查还有哪用到_UserName的
-- 发布时间：2020/5/26 10:08:00
--
非常诡异，昨天晚上用户名突然跳出来了，今天早晨有变成空白了
-- 发布时间：2020/5/26 10:14:00
--
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
请上传实例测试