以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  使用更改用户时出现问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68911)

--  作者:douglas738888
--  发布时间:2015/5/27 12:52:00
--  使用更改用户时出现问题
报错情况:
按照自定义用户与权限管理一设计的登录系统应用正常,但是在用户管理窗口中应用更改用户按钮时,报错(未将对象引用设置到对象的实例,错误所在事件:窗口,更改用户,AfterLoad),接下来关闭报错窗口后,更改用户窗口自动跳出,可正常执行更改用户的操作,其他都正常。

AfterLoad中的代码与自定义用户与权限管理一的示例是一致的。

请教问题出在哪里??

是否是没有执行“最后修改菜单中的"用户管理"和"切换用户"按钮的代码”(我没有修改示例中该项的内容)

[此贴子已经被作者于2015/5/27 13:06:08编辑过]

--  作者:Bin
--  发布时间:2015/5/27 13:41:00
--  
ALterLoad代码或者例子发出来
--  作者:douglas738888
--  发布时间:2015/5/27 14:13:00
--  
版主,代码粘贴过来,发不上来,论坛显示错误!(提交参数错误)

[此贴子已经被作者于2015/5/27 14:16:36编辑过]

--  作者:大红袍
--  发布时间:2015/5/27 14:18:00
--  

 如果提示错误,把这句代码去掉看看

 

UserName = Forms("管理").Controls("ListBox1").SelectedItem


--  作者:douglas738888
--  发布时间:2015/5/27 14:28:00
--  
删除还是不行,我没有办法把代码发上来,论坛报错,发不上来是什么原因?
--  作者:大红袍
--  发布时间:2015/5/27 14:36:00
--  

如果还报错,就是这段代码有问题,要么数据源user写错了,要么sql语句的表名写错了。

 

cmd.ConnectionName = "User"
cmd.CommandText = "Select * F rom {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader

[此贴子已经被作者于2015/5/27 14:36:27编辑过]

--  作者:douglas738888
--  发布时间:2015/5/27 14:47:00
--  
谢谢老师们!!我重启电脑后又正常了,我再测试看看。