Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]出现个怪异的问题，不知道怎么回事（已解决）


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

主题：[求助]出现个怪异的问题，不知道怎么回事（已解决）
帅哥哟，离线，有人找我吗？
浙江仔
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		[求助]出现个怪异的问题，不知道怎么回事（已解决）  发帖心情 Post By：2016/10/28 14:34:00 [只看该作者]

在窗体打开的情况下，窗体有关联表

主表为当前行为某一行，鼠标焦点从主表移到窗体的关联表时，会出现主表当前行变动


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20161028142450.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161028142526.png
图片点击可在新窗口打开查看

如图，一开始主表当前行在102行，鼠标移动点击窗体关联表（如窗体培训记录），就会出现主表当前行变动的情况，但是不是所有都变，而是偶发，频率还比较高，大概30%的操作会出现这个问题，我不知道怎么会这样？
有没有人碰到过这个问题，或者问题可能出现在什么地方，望指点


 


[此贴子已经被作者于2016/10/29 15:26:43编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110595 积分：562871 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/28 14:56:00 [只看该作者]

是不是有代码重新加载了主表的数据，之前碰到好几个都是这种情况。

肯定有代码影响到，不会无缘无故跳行的
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2016/10/29 10:49:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:currentchanged.txt


这个是CurrentChanged代码，跟这个有关么？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110595 积分：562871 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/29 10:51:00 [只看该作者]

看不出来有没有问题。可以注释掉看还有没有之前的问题

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


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2016/10/29 10:51:00 [只看该作者]

主表数据是全部加载的，只是做了筛选显示，而且也没有筛选条件变动

之前的情况，他们涉及哪个环节多一点，能再具体一点么？
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2016/10/29 11:00:00 [只看该作者]

注释了CurrentChanged代码，好像没有这个问题了，能帮忙看下，哪个代码会引起当前行变动么？

还有一个函数代码：Functions.Execute("SearchEntName",uuid)
Dim uuid As String =args(0)
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://XXXXXXX/enterpriseId="& uuid, True)   '获得实时信息
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop

'把数据json数据转化成对象
Dim json As String = XMLH.responseText
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", json)
End With

If data.total=0 Then
    
    For Each o As object In data.data
        If o.enterpriseName<>"" Then
            Vars("V_entName")=o.enterpriseName
            Vars("V_entpdName")=o.proddistName
        End If
    Next
Else
    Return "未查询到企业!"
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110595 积分：562871 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/29 11:01:00 [只看该作者]

就是表数据重新加载或重新筛选了

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


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2016/10/29 11:13:00 [只看该作者]

我发现，鼠标点击更换当前行，有时会触发两次CurrentChanged，这是怎么回事？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110595 积分：562871 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/29 11:18:00 [只看该作者]

代码全部注释，一段段启用，看是那一段代码问题。

表格失去焦点，然后又获取焦点，就算行不变也会触发CurrentChanged的
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2016/10/29 11:22:00 [只看该作者]

也没几段代码，唯一有疑问的，就是这个函数了

Functions.Execute("SearchEntName",uuid)

调用Dim XMLH As Object

XMLH = CreateObject("Microsoft.XMLHTTP")
好像也不会引起主表数据筛选变动啊？

是不是一个潜在的bug啊？
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询