以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]整数型字段的筛选-老师帮助已解决  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124752)
--  作者：东风光魔
--  发布时间：2018/9/13 9:18:00
--  [求助]整数型字段的筛选-老师帮助已解决
\'目的: 做个功能组菜单,输入数值,筛选工龄.在筛选按钮的chik事件里写如下代码.
Dim srz As RibbonMenu.NumericBox = RibbonTabs("我的工作台").Groups("数值筛选").Items("数值输入框") \'定义"输入值"变量srz
Dim gl As Integer \'定义"工龄"整数变量
Integer.TryParse(srz.Value,gl)
Tables("ygb").Filter = "standing = gl " \'standing为整数型字段,意为"工龄".

请老师指导一下。
[此贴子已经被作者于2018/9/13 9:29:52编辑过]
--  作者：有点甜
--  发布时间：2018/9/13 9:25:00
--  
Dim srz As RibbonMenu.NumericBox = RibbonTabs("我的工作台").Groups("数值筛选").Items("数值输入框") \'定义"输入值"变量srz
Dim gl As Integer \'定义"工龄"整数变量
If Integer.TryParse(srz.Value,gl) Then
    Tables("ygb").Filter = "standing = " & gl \'standing为整数型字段,意为"工龄".
Else
    msgbox("不是数值")
End If
--  作者：东风光魔
--  发布时间：2018/9/13 9:29:00
--  
成功了，谢谢老师。还是不会用连接符号组合。
--  作者：有点甜
--  发布时间：2018/9/13 9:33:00
--  

 

http://www.foxtable.com/webhelp/scr/1284.htm