以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  显示客户退出项目的时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186504)

--  作者:tld
--  发布时间:2023/5/7 20:26:00
--  显示客户退出项目的时间
老师好,一个表记录计算机名、登录人、登录时间、退出时间。在服务器的UserLogout 事件,如下代码没有记录退出时间,请您帮忙指点下。谢谢!

Dim dtb As DataTable = DataTables ("computerid")
Dim pts() As String = e.UserName.Split(".")
Dim name As String = pts (1)
Dim dr1 As DataRow = dtb.SQLFind ("computerid=\'" & computerid & "\' and 登录人=\'" & name & "\'", "登录时间 desc")
If dr1 IsNot Nothing Then
    dr1 ("退出时间") = Date.Now
    dr1.Save 
End If 

--  作者:有点蓝
--  发布时间:2023/5/7 20:55:00
--  
代码在服务器执行的,computerid 显示的是服务器的机器码