Foxtable(狐表)用户栏目专家坐堂 → 又要麻烦各位版主了,谢谢!!!


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

主题:又要麻烦各位版主了,谢谢!!!

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/16 11:55:00 [显示全部帖子]

1.
Dim Filter As String
With e.Form.Controls("输入查询姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = '" & .Value & "'"
       End If
End With
If Filter > "" Then
    Tables("人事工资管理").Filter = Filter
End If
数据转出时是很快的,没必要用进度条,提示是可以的

 回到顶部