专家坐堂-操作日志的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  操作日志的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79037)

--  作者：douglas738888
--  发布时间：2015/12/23 11:29:00
--  操作日志的问题
大红袍老师，我做了个表格的操作日志，也能记录登录和退出的时间，但是如何把退出时间与登录时间并排在一行（同一个用户）
下面代码是写在项目事件的BeforeCloseProject，但是没有实现，请老师看看
Dim dt As DataTable = DataTables("登录操作日志")
Dim dr As Row = Tables("登录操作日志").Current 如果用\'Dim dr As DataRow = dt.addnew()，是单独增加行了
dr("用户") = _UserName
dr("退出时间")= Date.Now()
dt.save()

--  作者：大红袍
--  发布时间：2015/12/23 11:32:00
--
Dim dt As DataTable = DataTables("登录操作日志")
Dim dr As DataRow = dt.find(("用户 = \'" & _UserName & "\' and 退出时间 is null"))
dr("用户") = _UserName
dr("退出时间")= Date.Now()
dt.save()
[此贴子已经被作者于2015/12/23 11:32:26编辑过]

--  作者：大红袍
--  发布时间：2015/12/23 11:34:00
--

或者是，在登陆的时候，用变量记录那一行

vars("行") = dt.AddNew

然后再退出的时候，赋值

Dim dt As DataTable = DataTables("登录操作日志")
vars("行")("用户") = _UserName
vars("行")("退出时间")= Date.Now()
dt.save()