以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 升级最新版后,使用目录树筛选出现混乱,3楼已上图!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33167)

--  作者:bahamute
--  发布时间:2013/5/14 23:37:00
--  [求助] 升级最新版后,使用目录树筛选出现混乱,3楼已上图!
升级到最新版,今天测试项目时发现目录树筛选出现混乱问题:

过程重现:
1、使用目录树筛选,双击某条记录,弹出明细窗口。
2、对弹出窗口不做任何操作,直接关闭。
3、再点击目录树其他节点筛选,问题出来了,会发现第1步查询结果的当前行也出现在当前查询结果中(穿越了),而且还是当前行,只要点击其他行,则穿越行自动消失。

换回2012版或2013测试版均无此问题,不知是何原因,目前只能先用测试版,待找到原因再升级吧。

[此贴子已经被作者于2013-5-15 9:40:44编辑过]

--  作者:bahamute
--  发布时间:2013/5/15 9:39:00
--  
因包含部分真实数据,不便上传,昨晚反复测试到12点(试过两台电脑),做了简单截图:
1、如果从2013正式版版新建类似项目,未发现此现象(测试不详细,要构建同样的例子,不是短时间能做好)。
2、如果从2013正式版运行旧版本开发的项目,必有此情况(不是偶然)。
3、2012版及2013测试版运行项目完全正常。

运行截图:
1、用2013测试版运行项目截图(运行正常,2012版测试正常,图略):


图片点击可在新窗口打开查看此主题相关图片如下:lxu6.gif
图片点击可在新窗口打开查看

2、用2013正式版运行项目截图(出现问题):


图片点击可在新窗口打开查看此主题相关图片如下:lux7.gif
图片点击可在新窗口打开查看

个人感觉是程序方面的问题,不是项目的问题。



--  作者:Bin
--  发布时间:2013/5/15 9:47:00
--  
 筛选树用的就是设置Filter的值吧, 我这测试了一下没发现这些现象啊.
你可以每次点击筛选的时候弹出一下值看看.是否正常.

--  作者:bahamute
--  发布时间:2013/5/15 9:52:00
--  
以下是引用Bin在2013-5-15 9:47:00的发言:
 筛选树用的就是设置Filter的值吧, 我这测试了一下没发现这些现象啊.
你可以每次点击筛选的时候弹出一下值看看.是否正常.

代码如下:

Dim Value() As String

Value = e.Node.FullPath.Split("\\")

If Value(0)="按单位" Then

    Select Case e.Node.Level

        Case 0

            Tables("基本信息").Filter ="[身份标识_身份1] = \'改制 \'"

        Case 1

            Tables("基本信息").Filter ="[单位] = \'" & Value(1) & "\' And [身份标识_身份1] = \'改制 \'"

    End Select

End if


--  作者:Bin
--  发布时间:2013/5/15 9:56:00
--  
messagebox.show(Tables("基本信息").Filter)

看看是否正常,如果正常,但是效果不是你预期的,那可能是程序有问题了.联系客服去.

--  作者:bahamute
--  发布时间:2013/5/15 10:07:00
--  
看来只能联系客服了,实在找不到原因。


图片点击可在新窗口打开查看此主题相关图片如下:剪辑_17.jpg
图片点击可在新窗口打开查看


客服如何联系?


--  作者:bahamute
--  发布时间:2013/5/15 10:33:00
--  
谢谢,正在联系。
--  作者:狐狸爸爸
--  发布时间:2013/5/15 10:51:00
--  

问题很奇怪,这么看看行不行:

 

Dim Value() As String

Value = e.Node.FullPath.Split("\\")

If Value(0)="按单位" Then

    Select Case e.Node.Level

        Case 0

            Tables("基本信息").Filter ="[身份标识_身份1] = \'改制 \'"

        Case 1

            Tables("基本信息").Filter ="[单位] = \'" & Value(1) & "\' And [身份标识_身份1] = \'改制 \'"

    End Select

    Tables("基本信息").Refresh()

     ables("基本信息").Positon = 0

End if

[此贴子已经被作者于2013-5-15 10:50:50编辑过]

--  作者:bahamute
--  发布时间:2013/5/15 10:56:00
--  
报错了:
Positon不是table的成员