主题：在beforeConnectOuterDataSource事件中无法打开窗口。

If e.Name = "BOYsERP" Then
    Dim n As Integer=0
    Dim ipstring As String="192.168.1.200"
    Do While Network.Ping(ipstring,1000) = False  '如果第一个IP无法接通
        n=n+1
        If n>3 Then
            Syscmd.Project.Exit(False)
        Else
            InputValue(ipstring,"服务器地址不正确","请输入正确的服务器IP地址:")
        End If
    Loop
    e.ConnectionString=e.ConnectionString.Replace("192.168.1.200",ipstring) End If
我是这样实现的。在beforopenouterdatasource事件中。请各位指教。