[求助]对数值的查询筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]对数值的查询筛选

共有2350人关注过本帖树形打印复制链接主题：[求助]对数值的查询筛选

hzcaqjf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：298 积分：4225 威望：0 精华：0 注册：2009/11/4 16:30:00

[求助]对数值的查询筛选 发帖心情

Post By：2016/6/17 17:15:00 [只看该作者]

Dim t As Table = Tables("窗口1_table1")

Dim sql As String

Dim st As String = e.Form.Controls("TextBox1").text

If st > "" Then

sql = "select * fro m {订单} where CStr(IIf(单价 is null ,0,单价)) = '" & st & "' or CStr(IIf(数量 is null ,0,数量)) = '" & st & "'"

t.fill(sql,"yy",True)

t.AutoSizeCols()

End If

对-1和1之间数值(不包括-1和1)比如-0.2,0.5等数值都不能筛选,而其它数值都可以筛选.求解?

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.zip

[此贴子已经被作者于2016/6/17 17:18:37编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/17 19:05:00 [只看该作者]

Dim t As Table = Tables("窗口1_table1")
Dim sql As String
Dim st As String = e.Form.Controls("TextBox1").text
If st > "" Then
    sql = "select * fr om {订单} where IIf(单价 is null ,0,单价) >= " & st-0.000001 & " and IIf(单价 is null ,0,单价) <= " & st + 0.000001 & " or IIf(数量 is null ,0,数量) >= " & st-0.000001 & " and IIf(数量 is null ,0,数量) <= " & st+0.000001 & ""
    t.fill(sql,"yy",True)
    t.AutoSizeCols()
End If