Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问一下，我今天打开之前发布的客户端之后又出现了这个问题，这个ip都已经改了呀，还有哪里呢？ 求解


  共有4500人关注过本帖树形打印复制链接

主题：请问一下，我今天打开之前发布的客户端之后又出现了这个问题，这个ip都已经改了呀，还有哪里呢？ 求解
帅哥哟，离线，有人找我吗？
lzw001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		请问一下，我今天打开之前发布的客户端之后又出现了这个问题，这个ip都已经改了呀，还有哪里呢？ 求解  发帖心情 Post By：2017/12/27 9:53:00 [只看该作者]

请问一下，我今天打开之前发布的客户端之后又出现了这个问题，这个ip都已经改了呀，还有哪里呢？ 求解

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171227095024.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/27 9:56:00 [只看该作者]

贴出你 BeforeConnectOuterDataSource 事件的代码。
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2017/12/27 9:59:00 [只看该作者]

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "user" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.33",ip)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2017/12/27 10:01:00 [只看该作者]

这个升级路径我是直接放在检查更新里面的

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171227100048.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2017/12/27 10:03:00 [只看该作者]

这个是ip.txt文件

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171227100239.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/27 10:03:00 [只看该作者]

1、改成这样测试，看弹出什么。记得要发布后，拷贝到对应的电脑测试。

 

Dim ipFile As String = e.ProjectPath & "ip.txt"
msgbox(ipFile)
If e.Name = "user" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
msgbox(ip)
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.33",ip)
msgbox(e.ConnectionString)
    End If
End If
 
2、正确的ip，能否直接在浏览器、资源管理器访问？如地址 \\192.168.1.51
 
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2017/12/27 10:04:00 [只看该作者]

这个是升级路径

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171227100353.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/27 10:05:00 [只看该作者]

以下是引用有点甜在2017/12/27 10:03:00的发言：

1、改成这样测试，看弹出什么。记得要发布后，拷贝到对应的电脑测试。

 

Dim ipFile As String = e.ProjectPath & "ip.txt"
msgbox(ipFile)
If e.Name = "user" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
msgbox(ip)
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.33",ip)
msgbox(e.ConnectionString)
    End If
End If
 
2、正确的ip，能否直接在浏览器、资源管理器访问？如地址 \\192.168.1.51
 

 

看6楼测试。
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2017/12/27 10:08:00 [只看该作者]

好

 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2017/12/27 10:12:00 [只看该作者]

是这个吗？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171227101139.png
图片点击可在新窗口打开查看
 回到顶部
总数 55 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询