以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除登陆信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178720)

--  作者:飘过的巨蟹座
--  发布时间:2022/7/18 1:48:00
--  删除登陆信息
我再其他页面想删除已经登陆的信息
Static UserTable As DataTable
Dim dr As DataRow = UserTable.Find("UserName = \'" & e.PostValues("用户名") & "\'")
dr.Delete()

这个代码会提示报错,未将对象引用设置到对象的实例。
哪里有问题啊
用的是让登录变得更安全这个代码,UserName没有加密
[此贴子已经被作者于2022/7/18 1:48:38编辑过]

--  作者:有点蓝
--  发布时间:2022/7/18 8:28:00
--  
http://www.foxtable.com/webhelp/topics/0396.htm,看示例三
--  作者:飘过的巨蟹座
--  发布时间:2022/7/18 18:04:00
--  
蓝老师,这个好像是在临时表里面找不到
--  作者:飘过的巨蟹座
--  发布时间:2022/7/18 18:04:00
--  
Static UserTable As DataTable \'定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.
Static
ClearTime As Date
If
UserTable Is Nothing Then \'创建用于记录登录信息的临时表
    ClearTime = Date.Now()
   
Dim dtb As New DataTableBuilder("UserInfos")
    dtb.AddDef("UserName", Gettype(String), 16)
    dtb.AddDef("UserID",Gettype(String),16)
    dtb.AddDef("ActiveTime",Gettype(Date))
    UserTable = dtb.Build(True)

End
If

找不到这个表
[此贴子已经被作者于2022/7/18 18:04:39编辑过]

--  作者:有点蓝
--  发布时间:2022/7/18 20:22:00
--  
按帮助的用法,肯定有这个表
--  作者:飘过的巨蟹座
--  发布时间:2022/7/18 22:36:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20220718223452.png
图片点击可在新窗口打开查看

--  作者:飘过的巨蟹座
--  发布时间:2022/7/18 22:36:00
--  
Dim dr As DataRow
dr = DataTables("UserInfos").Find("xm = admin")
MessageBox.Show("姓名:" & dr("username"))

--  作者:有点蓝
--  发布时间:2022/7/18 22:46:00
--  
直接使用UserTable

dr = UserTable.Find("xm = admin")