以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表达式语法错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71985)
--  作者：huhu
--  发布时间：2015/7/21 18:54:00
--  [求助]表达式语法错误

DataTables("BUG录入表").loadFilter = ""
DataTables("BUG录入表").Load()
Dim Filter As String

NodeMouseDoubleClick代码如下：

If e.Node.Text <> "显示\'" & user.group & "\'所有测试人员提交的BUG" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[测试组长] = \'" & e.Node.Text & "\' and [测试组名] = \'" & user.group & " \'"
            DataTables("BUG录入表").loadFilter = Filter
            DataTables("BUG录入表").Load()
        Case 1
            Filter = "[提交人] = \'" & e.Node.Text & "\'  and [测试组名] = \'" & user.group & " \'"
            DataTables("BUG录入表").loadFilter = Filter
            DataTables("BUG录入表").Load()
    End Select
Else
    Filter = "[测试组名] = \'" & user.group & "\'"
    DataTables("BUG录入表").loadFilter = Filter
    DataTables("BUG录入表").Load()
End If
双击"显示\'" & user.group & "\'所有测试人员提交的BUG" node报如下错。

我不应该只是找出[测试组名] = \'" & user.group & "\'就可以了么，怎么会还有[测试组长] = \'显示\'测试IEswitch\'所以测试人员提交的BUG\'

 

 

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2014.11.11.1
错误所在事件：加载[BUG录入表]失败!
详细错误信息：
语法错误 (操作符丢失) 在查询表达式 \'([测试组长] = \'显示\'测试IEswitch\'所以测试人员提交的BUG\' and [测试组名] = \'测试IEswitch \')\' 中。
--  作者：czy
--  发布时间：2015/7/21 19:03:00
--  
If e.Node.Text <> "显示" & user.group & "所有测试人员提交的BUG" Then

另外目录树贴出来看看
[此贴子已经被作者于2015/7/21 19:04:03编辑过]
--  作者：大红袍
--  发布时间：2015/7/21 19:19:00
--  

 

[此贴子已经被作者于2015/7/21 19:19:41编辑过]
--  作者：大红袍
--  发布时间：2015/7/21 19:21:00
--  

加入代码看一下

 

msgbox(Filter)
--  作者：huhu
--  发布时间：2015/7/22 9:12:00
--  

Dim t1 As WinForm.TreeView
t1 =e.Form.Controls("TreeView1")
t1.BuildTree("BUG录入表", "测试组长|提交人","测试组名 = \'" & user.group & "\'")
t1.Nodes.Insert("显示\'" & user.group & "\'所以测试人员提交的BUG",0)

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下：tree.png
图片点击可在新窗口打开查看
--  作者：huhu
--  发布时间：2015/7/22 9:15:00
--  
以下是引用大红袍在2015/7/21 19:21:00的发言：

加入代码看一下

 

msgbox(Filter)

DataTables("BUG录入表").loadFilter = ""
DataTables("BUG录入表").Load()
Dim Filter As String
If e.Node.Text <> "显示\'" & user.group & "\'所有测试人员提交的BUG" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[测试组长] = \'" & e.Node.Text & "\' and [测试组名] = \'" & user.group & " \'"
            msgbox(1)----双击<> "显示\'" & user.group & "\'所有测试人员提交的BUG"，既然执行了它？
            DataTables("BUG录入表").loadFilter = Filter
            DataTables("BUG录入表").Load()
        Case 1
            Filter = "[提交人] = \'" & e.Node.Text & "\'  and [测试组名] = \'" & user.group & " \'"
            DataTables("BUG录入表").loadFilter = Filter
            DataTables("BUG录入表").Load()
    End Select
Else
    msgbox(2)-----没有执行
    Filter = "[测试组名] = \'" & user.group & "\'"
    msgbox(filter)-----没有执行
    DataTables("BUG录入表").loadFilter = Filter
    DataTables("BUG录入表").Load()
End If
--  作者：大红袍
--  发布时间：2015/7/22 9:28:00
--  

 那你就检测一下为什么不匹配啊

 

msgbox(e.Node.Text & vbcrlf & "显示\'" & user.group & "\'所有测试人员提交的BUG")
--  作者：czy
--  发布时间：2015/7/22 11:40:00
--  


图中显示节点是“所以”
将节点改成所有，或将下面这段代码改成所以
If e.Node.Text <> "显示\'" & user.group & "\'所以测试人员提交的BUG" Then