各位老师，

为什么远程登陆时很慢，有时要5、6钟才出现用户登录的窗口，出现用户登陆窗口后登陆就很快了，而且登陆后操作数据速度也还可以。在afteropenproject 中只用了如下代码，

\'自动升级,没有新版本不提示
Syscmd.Project.Update(False,True)

\'让所有表不可见
For Each t As Table In Tables
    t.Visible = False
    t.AllowEdit = False
    For Each c As Col In t.Cols
        c.Visible = False
        c.AllowEdit = False
    Next
Next
\'非开发者用户登录时显示"用户登录"窗口.
If User.Type <> UserTypeEnum.Developer
    \'非开发者禁用以下菜单项目
    \'清除所有程序菜单选项
    ApplicationMenu.LeftItems.Clear
    ApplicationMenu.RightItems.Clear
    ApplicationMenu.BottomItems.Clear
   
    TableCaptionVisible = False \'让表标题不可见
    RibbonTabs("Table").Visible = False \'禁用数据表功能区
    RibbonTabs("Project").Visible = False \'禁用管理项目功能区
    RibbonTabs("Other").Visible = False \'禁用其他功能区
    RibbonTabs("Print")("Advanced").Visible = False \'禁用打印功能区
    RibbonTabs("Print")("Excel")("Event").Visible = False
    RibbonTabs("Common")("Aggregate").Visible = False \'常用工具的计算功能组不可见
    RibbonTabs("Common")("Window").Visible = False \'常用工具的窗口不可见
    QAT("系统设置").Visible = False \'禁用快速启动系统设置
    QAT("开发设置").Visible = False \'禁用快速启动开发设置
   
    Forms("用户登录").open
 
Else
    \'开发者登录时所有表列均可编辑
    For Each t As Table In Tables
        t.Visible = True
        t.AllowEdit = True
        For Each c As Col In t.Cols
            c.Visible = True
            c.AllowEdit = True
        Next
    Next
RibbonTabs("Common")("Aggregate").Visible = False \'常用工具的计算功能组不可见
End If

在BeforeConnectOuterDataSource也只有下面这句代码

If e.Name = "EI" Then
    \'如果第一个IP接通则用其连接,否则显示提示并用替代的IP或域名连接.
   \' If Network.Ping("192.168.0.108",1000) = False Then
        e.C
  \'  End If
End If