Foxtable(狐表)用户栏目专家坐堂 → 数值型的数据如果查找


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

主题:数值型的数据如果查找

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


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
数值型的数据如果查找  发帖心情 Post By:2017/5/29 15:08:00 [只看该作者]

副本表【清单登记主窗口_Table1】有列为双精密的的列,列名为“金额”,小数点后有2位的,如:410.15。如何编写代码找出金额为410.15的行。下面的代码不行啊,请老师指点。谢谢!
Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "入库单号 like '%" & .Value & "%'"
    End If
End With
If Filter > "" Then
    Tables("清单登记主窗口_Table1").Filter = Filter
End If

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/29 15:23:00 [只看该作者]

Tables("清单登记主窗口_Table1").Filter = "substring(convert(金额,'System.String'),len(Convert(金额,'System.String'))-2,1)='.'"

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


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2017/5/29 15:46:00 [只看该作者]

不知道代码放到什么地方,这样对不对?
Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "金额 like '%" & .Value & "%'"
    End If
End With
If Filter > "" Then    
    Tables("清单登记主窗口_Table1").Filter = "substring(convert(金额,'System.String'),len(Convert(金额,'System.String'))-2,1)='.'"
End If


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/29 15:53:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & " convert(金额, 'System.String') like '%" & .Value & "%'"
    End If
End With
If Filter > "" Then    
    Tables("清单登记主窗口_Table1").Filter = filter
End If

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


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2017/5/29 16:09:00 [只看该作者]

高手,膜拜。

 回到顶部