Foxtable(狐表)用户栏目专家坐堂 → 筛选提示错误


  共有1800人关注过本帖平板打印复制链接

主题:筛选提示错误

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


加好友 发短信
等级:九尾狐 帖子:2234 积分:15284 威望:0 精华:0 注册:2015/7/18 10:10:00
筛选提示错误  发帖心情 Post By:2015/12/7 10:51:00 [只看该作者]

执行以下代码,为什么会有这样的提示

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2015.11.11.1
错误所在事件:加载[银行数据]失败!
详细错误信息:
语法错误 (操作符丢失) 在查询表达式 'precent *' 中。

Dim Filter As String
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        Filter = "交易账号 = '" & .Value & "'" 'Or "交易卡号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("TextBox3")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "交易户名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("TextBox4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "对方账号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("TextBox5")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "对方户名 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
    Tables("银行数据").DataTable.loadtop = "100 Percent"
    Tables("银行数据").DataTable.loadFilter = Filter
    Tables("银行数据").DataTable.load()
    Forms("银行数据").Controls("TextBox7").Text = DataTables("银行数据").sqlCompute("sum(借方金额)",filter)
    Forms("银行数据").Controls("TextBox8").Text = DataTables("银行数据").sqlCompute("sum(贷方金额)",filter)
End If


 回到顶部