以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新增行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79316)
--  作者：良才
--  发布时间：2015/12/28 23:29:00
--  新增行

Dim dt As DataTable = DataTables("登录日志")
Dim dr As DataRow = dt.find(("用户 = \'" & _UserName & "\' and 退出时间 is null"))
If dt.新增行或者未保存行 Then
  If dr IsNot Nothing Then
     dr("退出时间")= Date.Now()
     dt.save()
    End If
End If

请指点代码，谢谢！
If dt.代码？ Then

[此贴子已经被作者于2015/12/29 0:08:58编辑过]
--  作者：Hyphen
--  发布时间：2015/12/29 8:14:00
--  
If dt.HasChanges Then
--  作者：良才
--  发布时间：2015/12/29 9:28:00
--  
谢谢