主题：BeforeConnectOuterDataSource SQL连接问题

1、不是这样做的

Connections.Add("生产数据",exp)

要直接设置数据源，如

e.ConnectionString = exp

2、我这样测试没问题

Dim s As String = EncryptText("测试123", "slp", "shby")
MessageBox.Show("读取后:" & s)
Dim Val1 As String = s
MessageBox.Show("解密前:" & val1)
Dim Val2 As String = DecryptText(Val1,"slp","shby")
MessageBox.Show("解密后:" & val2)

1、看不懂，那你就弄一个内部函数，然后异步调用。

http://www.foxtable.com/mobilehelp/scr/3269.htm

也就是，把代码拷贝到内部函数里面，然后调用这个函数即可。

2、我测试没问题，只要你图片的路径正确，都能正常显示的。

1、做一个内部函数，拷贝代码过去

http://www.foxtable.com/webhelp/scr/1486.htm

2、直接调用内部函数

Functions.AsyncExecute("函数名")

做一个test内部函数，输入代码，如

Forms("启动连接").Close()
Forms("SQL提示").Open()
Dim sqlts As  WinForm.Label = Forms("SQL提示").Controls("Label1")
sqlts.text = " 数据源无法连通!是否需要数据库连接设置?"& (vbcrlf)'追加数据代码
return nothing

然后再在原来的代码调用

Functions.BeginSyncExecute("test")

改成这样

Dim Result As DialogResult

Result = MessageBox.Show("系统需要退出,请重新进入系统!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    DataTables.save
    System.Diagnostics.Process.GetCurrentProcess().Kill
    Return    
End If

是的。

你可以在afteropenProject事件启动一个模式窗口，在函数里面处理完以后，再关闭模式窗口。

或者，启动的时候，隐藏，最后再显示，如

basemainform.windowstate = 0
basemainform.left = -10000

------还原

basemainform.windowstate = 2