Foxtable(狐表)用户栏目专家坐堂 → 代码请教


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

主题:代码请教

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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/5/24 10:21:00 [显示全部帖子]

Dim Filter As String
With
e.Form.Controls("khdm")
   
If .Value IsNot Nothing Then
        Filter =
"客户代码 = '" & .Value & "'"
   
End If
End
With
With
e.Form.Controls("khmc")
   
If .Value IsNot Nothing Then
       
If Filter > "" Then
            Filter = Filter &
" And "
       
End If
        Filter = Filter &
"客户名称 = '" & .Value & "'"
   
End If
End
With
If Filter >""
    DataTables("客户信息").LoadFilter = Filter
    DataTables("客户信息").Loadtop =""
    DataTables("客户信息").Load
Else
    DataTables("客户信息").Loadtop ="10"    '查询条件为空时默认加载最新修改的10行
    DataTables("客户信息").LoadOrder = "维护日期 Desc"
    DataTables("客户信息").Load
End If
 
差不多这样吧

 回到顶部