With Tables("用户登录状态表") '将新登录用户信息写入
.AddNew
.Current("Num") = Format(idx,"0000")
.Current("user_ID") = _UserName
.Current("computer_ID") = ComputerId
.Current("login_time") = dt
.Current("refresh_time") = dt
.Current("state") = 1
.Current.save
End With
'查找登录信息中用户名与登录名相同的记录,将所有不属于本次登录的记录state置0
Dim drs As List(of DataRow) = DataTables("用户登录状态表").SQLSelect("user_ID = '" & _userName & "'")
If drs IsNot Nothing Then
For Each dr As DataRow In drs
If dr("login_time") <> dt Then '只要登录名相同,登录时间和本次不一样的 全都置0
dr("state") = 0
dr.Save()
End If
Next
End If
改为
DataTables("用户登录状态表").sqlreplacefor(“state”，0，"user_ID = '" & _userName & "'")
With Tables("用户登录状态表") '将新登录用户信息写入
dim r as row = .AddNew
r("Num") = Format(idx,"0000")
r("user_ID") = _UserName
r("computer_ID") = ComputerId
r("login_time") = dt
r("refresh_time") = dt
r("state") = 1
r.save
End With
加好友 
发短信
Post By：2021/3/18 23:11:00 [只看该作者]
