主题：这样操作能保存系统配置吗？

 理论上是可以的。你先问什么？出什么错了？

 这个是大问题，是想打开项目的时候切换数据源么？你得先理清思路。

 

 项目打开以后，首先执行的是 BeforeConnectOuterDataSource 事件

 

 你如果要更改数据源必须这样写代码

 

'检测是否能连接成功

Dim server As String
Dim mima As String
GetConfigValue("fwq", server)
GetConfigValue("mm", mima)
Dim s As String ="Provider=SQLOLEDB.1;Password=" & mima &";Persist Security Info=True;User ID=sa;Initial Catalog=mf;Data Source=" & server
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!","提示")
    Forms("系统连接").show '这个窗口，必须是 模式窗口

    '重新得到能成功的值，设置连接

    e.ConnectionString = "xxxx"
Else
   MessageBox.Show("数据源连通!","提示")
End If

 

http://www.foxtable.com/help/topics/0682.htm

 

 呃，错了。取值要这样

 

 server = GetConfigValue("fwq", nothing)
 mima = GetConfigValue("mm", nothing)

 

呃，没人理解你到底想做什么，你代码写在哪里，又报什么错。

 

问题请表述的具体一点，再不然，请上传你做的一个例子加以说明

 那你就应在BeforeConnectOuterDataSource 写代码，而且你的[系统连接]必须是模式窗口

 

Dim server As String
Dim mima As String
server = GetConfigValue("fwq", nothing)
mima = GetConfigValue("mm", nothing)
Dim s As String ="Provider=SQLOLEDB.1;Password=" & mima &";Persist Security Info=True;User ID=sa;Initial Catalog=mf;Data Source=" & server
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!","提示")
    Forms("系统连接").show '这个窗口，必须是 模式窗口

   

    '重新得到能成功的值，设置连接

    server = GetConfigValue("fwq", nothing)
    mima = GetConfigValue("mm", nothing)
    s = Provider=SQLOLEDB.1;Password=" & mima &";Persist Security Info=True;User ID=sa;Initial Catalog=mf;Data Source=" & server

    e.ConnectionString = s
Else

   e.ConnectionString = s
   MessageBox.Show("数据源连通!","提示")
End If

 

 

 

你应该写在窗口里的代码，大致这样

 

Dim server As String = ""
Dim mima As String = ""
server=Forms("系统连接").Controls("TextBox1").text

mima=Forms("系统连接").Controls("TextBox2").text
SaveConfigValue("fwq",server)
SaveConfigValue("mm", mima)