在项目文件目录下创建一个ip.txt的文本文件,在该文件中输入最新的IP地址,并在BeforeConnectOuterDataSource事件中设置如下代码:
Dim ipFile As String = e.ProjectPath & "ip.txt"If e.Name = "销售数据" Then If Filesys.FileExists(ipFile) Then Dim ip As String = FileSys.ReadAllText(ipFile) e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip) End IfEnd If
这个例子 不起作用 望大师指点