把save加到红色标记的地方才对 不知道为什么会是这样 能解释下修改和存储的过程不
With Tables("用户登录状态表") '将新登录用户信息写入
.AddNew
.Current("user_ID") = User.Name
.Current("computer_ID") = ComputerId
.Current("login_time") = Date.Now
.Current("refresh_time") = Date.Now
.Current("state") = 1
End With
Dim drs As List(of DataRow) = DataTables("用户登录状态表").SQLSelect("user_ID = '" & user.Name & "'")
If drs IsNot Nothing Then
For Each dr As DataRow In drs
dr("state") = 0
If dr("computer_ID") <> ComputerId Then
dr("state") = 0
dr.Save()
End If
If dr("computer_ID") = ComputerId And dr("login_time") <> Tables("用户登录状态表").Current("login_time") Then
dr("state") = 0
dr.Save()
End If
Next
End If
加好友 
发短信
Post By：2014/11/2 17:48:00 [显示全部帖子]
