Foxtable(狐表)用户栏目专家坐堂 → 关于当前表筛选的问题


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

主题:关于当前表筛选的问题

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/5 16:21:00 [显示全部帖子]

If CurrentTable.Name <> "客户信息表" Then
    msgbox("当前不在客户信息表")
    Return
End If
If zd.Text="单位名称" Then
    Tables("客户信息表").Filter = "单位名称 Like '*" & cxnr.Text & "*'"
Else
    Tables("客户信息表").Filter = "采购人 like '*" & cxnr.Text & "*'"
End If

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/5 17:22:00 [显示全部帖子]

msgbox(CurrentTable.Name)

Select Case CurrentTable.Name 
    Case
 "表A" 
        '代码一
    
Case "
B"
        '代码二
    
Case "
E"
        '代码三
End
 Select 

 回到顶部