- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]出现个怪异的问题，不知道怎么回事（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92200)
-- 发布时间：2016/10/28 14:34:00
-- [求助]出现个怪异的问题，不知道怎么回事（已解决）
在窗体打开的情况下，窗体有关联表
主表为当前行为某一行，鼠标焦点从主表移到窗体的关联表时，会出现主表当前行变动
此主题相关图片如下：qq图片20161028142450.png
此主题相关图片如下：qq截图20161028142526.png
如图，一开始主表当前行在102行，鼠标移动点击窗体关联表（如窗体培训记录），就会出现主表当前行变动的情况，但是不是所有都变，而是偶发，频率还比较高，大概30%的操作会出现这个问题，我不知道怎么会这样？
有没有人碰到过这个问题，或者问题可能出现在什么地方，望指点
[此贴子已经被作者于2016/10/29 15:26:43编辑过]
-- 发布时间：2016/10/28 14:56:00
--
是不是有代码重新加载了主表的数据，之前碰到好几个都是这种情况。
肯定有代码影响到，不会无缘无故跳行的
-- 发布时间：2016/10/29 10:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:currentchanged.txt |
这个是CurrentChanged代码，跟这个有关么？
-- 发布时间：2016/10/29 10:51:00
--
看不出来有没有问题。可以注释掉看还有没有之前的问题
-- 发布时间：2016/10/29 10:51:00
--
主表数据是全部加载的，只是做了筛选显示，而且也没有筛选条件变动
之前的情况，他们涉及哪个环节多一点，能再具体一点么？
-- 发布时间：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
-- 发布时间：2016/10/29 11:01:00
--
就是表数据重新加载或重新筛选了
-- 发布时间：2016/10/29 11:13:00
--
我发现，鼠标点击更换当前行，有时会触发两次CurrentChanged，这是怎么回事？
-- 发布时间：2016/10/29 11:18:00
--
代码全部注释，一段段启用，看是那一段代码问题。
表格失去焦点，然后又获取焦点，就算行不变也会触发CurrentChanged的
-- 发布时间：2016/10/29 11:22:00
--
也没几段代码，唯一有疑问的，就是这个函数了
Functions.Execute("SearchEntName",uuid)
调用Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
好像也不会引起主表数据筛选变动啊？
是不是一个潜在的bug啊？