If Vars("登陆IP") IsNot Nothing Then Dim s As DataRow=DataTables("登陆记录").Sqlfind("[_Identify]=" & Vars("登陆IP")) If s IsNot Nothing Then MessageBox.Show(2) s("退出时间")=Date.now ..... s.save
Else MessageBox.Show(3) Dim r As Row=Tables("登陆记录").AddNew ......