主题：[求助]使用8-12版BeforeCloseProject事件出错!

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
        ......
       
        r.save
       
    End If
   
End If