Foxtable(狐表)用户栏目专家坐堂 → 求数字型和字符型同时筛选的代码


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

主题:求数字型和字符型同时筛选的代码

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


加好友 发短信
等级:小狐 帖子:302 积分:1860 威望:0 精华:0 注册:2012/4/27 11:34:00
  发帖心情 Post By:2013/3/27 7:46:00 [显示全部帖子]

Dim txt6 As String =  e.sender.Text    '没有e.ComboBox
Dim tbl6 As Table = Tables("报表")

If txt6 = "" Then
    tbl6.Filter = ""
Else
    txt6 = "'*" & txt6 & "*'"
    tbl6.Filter = "单位 Like " & txt6 & " Or  Convert([包1],'System.String') Like " & txt6
End If


 回到顶部