Foxtable(狐表)用户栏目专家坐堂 → [求助]表达式语法错误


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

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

帅哥哟,离线,有人找我吗?
huhu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
[求助]表达式语法错误  发帖心情 Post By: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 ')' 中。


 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By: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


 回到顶部