主题：[求助]请看下这段代码哪儿有问题 为何我执行结果不正确

不理解你的用意

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
    .Current.Save
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
        If dr("computer_ID") <> ComputerId Then
            dr("state") = 0
        End If
        If dr("computer_ID") = ComputerId And dr("login_time") <> Tables("用户登录状态表").Current("login_time") Then
            dr("state") = 0
        End If
    Next
End If

Dim drs As List(of DataRow)  = DataTables("用户登录状态表").SQLSelect("user_ID = '" & user.Name & "'")
If drs IsNot Nothing Then
    For Each dr As DataRow In drs
        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