以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问可否在代码中加入排序升序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16379)

--  作者:tungwun
--  发布时间:2012/2/11 22:26:00
--  请问可否在代码中加入排序升序
Dim Filter As String
With
e.Form.Controls("cmbProduct")
If
.Value IsNot Nothing Then
Filter =
"产品 = \'" & .Value & "\'"
End If
End
With
With
e.Form.Controls("cmbCustomer")
If
.Value IsNot Nothing Then
If
Filter > "" Then
Filter = Filter &
" And "
End If
Filter = Filter &
"客户 = \'" & .Value & "\'"
End If
End
With
With
e.Form.Controls("cmbEmployee")
If
.Value IsNot Nothing Then
If
Filter >"" Then
Filter = Filter &
" And "
End If
Filter = Filter &
"雇员 = \'" & .Value & "\'"
End If
End
With
With
e.Form.Controls("StartDate")
If
.Value IsNot Nothing Then
If
Filter >"" Then
Filter = Filter &
" And "
End If
Filter = Filter &
"日期 >= #" & .Value & "#"
End If
End
With
With
e.Form.Controls("EndDate")
If
.Value IsNot Nothing Then
If
Filter >"" Then
Filter = Filter &
" And "
End If
Filter = Filter &
"日期 <= #" & .Value & "#"
End If
End
With
If
Filter > "" Then
Tables
("订单").Filter = Filter
End
If

--  作者:狐狸爸爸
--  发布时间:2012/2/12 9:32:00
--  

关于排序:

 

http://www.foxtable.com/help/topics/1432.htm