主题：[求助]莫名其妙的问题

  出现系统锁死的情况，貌似就是系统问题异常中断运行；然后正在切换数据源，还用了SaveConfigValue GetConfigValue获取保存了的数据连接字符串，然后就好像断在那里，进不去。

Dim str1 As String=GetConfigValue("opencon_test","")

Dim str2 As String=GetConfigValue("opencon_user","")

If str1<>"" And str2<>"" Then

    If Connections.TryConnect(str1) = True And Connections.TryConnect(str2) = True Then

        If Connections.Contains("test") Then

            Connections.Delete("test")

            Connections.add("test",str1)

        Else

            Connections.add("test",str1)

        End If

       

        If Connections.Contains("suser") Then

            Connections.Delete("suser")

            Connections.add("suser",str2)

        Else

            Connections.add("suser",str2)

        End If

    

    Else

        MessageBox.Show("加载数据库有误,请联系开发者,进行优化不能连接!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)

        e.Cancel=True

        Syscmd.Project.Exit(False)

    End If

afteropenproject