主题：新增行

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