- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- win 10 下开发，遇到莫名错误！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72759)
-- 发布时间：2015/8/5 17:56:00
-- win 10 下开发，遇到莫名错误！
原来在win7下开发了一半的项目，升级到win10后今天是第一次开发，结果遇到奇怪的错误，明明是自定义登录，如果登录失败，不可能进入主界面（之前也一直正常的），但是输入用户名和密码后，会出现如图提示，关闭报错窗口后，又可以进入程序主界面。
此主题相关图片如下：{9bf3be13-9968-4e06-99cd-c5fedebdf417}.jpg
-- 发布时间：2015/8/5 18:42:00
--
呃，提示就是 afterLoad事件的代码，你删除代码看看。
-- 发布时间：2015/8/5 21:10:00
--
是以下代码原因，如果服务器不通，就会出现上述问题，已经加了判断，目前没问题了。
Dim Info_S As String
Info_S = FileSys.ReadAllText("\\\\WINDOWS-596NTF3\\Share$\\Contract\\升级\\update.txt", Encoding.Default) \'读取生成的文本文件
Dim pars() As String = Info_S.Split("|") \'将读取的信息拆分为数组
Dim dt1 As Date= pars(0).trim() \'升级包版本
Dim dt2 As Date= pars(1).trim()
-- 发布时间：2015/8/5 21:13:00
--
局域网共享文件夹的升级？
在beforeOpenproject事件，加入代码
shell("net use \\\\192.168.1.211\\共享的文件夹名 密码 /user:用户名", 0)
-- 发布时间：2015/8/5 21:33:00
--
谢谢大红袍回复！
-- 发布时间：2015/8/5 21:42:00
--
这样会快一些
try
Dim conn As ADODB.Connection
conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"
Conn.ConnectionTimeout=5
conn.Open
msgbox("成功")
conn.close
Catch ex As Exception
msgbox("失败")
End try
-- 发布时间：2015/8/6 8:33:00
--
-- 发布时间：2015/8/6 9:06:00
--
没办法的这个。
你先 想 TryConnectHost 再 ping，再连接
http://www.foxtable.com/help/topics/2709.htm