主题：[求助]表达式语法错误

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 ')' 中。

If e.Node.Text <> "显示" & user.group & "所有测试人员提交的BUG" Then

 

加入代码看一下

 

msgbox(Filter)

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

 

 

 

此主题相关图片如下：tree.png

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

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

 

msgbox(e.Node.Text & vbcrlf & "显示'" & user.group & "'所有测试人员提交的BUG")