以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在Datalist中应用筛选功能  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4778)
--  作者：woodiy
--  发布时间：2009/10/29 11:18:00
--  在Datalist中应用筛选功能

用如下代码的筛选功能，如何与Datalist表中的数据同步，谢谢

Dim Filter As String
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

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")  
dst.DataTable = DataTables("出库主表")
dst.Build()



图片点击可在新窗口打开查看此主题相关图片如下：qq截图未命名.jpg
图片点击可在新窗口打开查看
--  作者：yangming
--  发布时间：2009/10/29 11:19:00
--  
劝楼主别再用Datalist了,都准备取消了,至多再用一年
--  作者：woodiy
--  发布时间：2009/10/29 11:49:00
--  

哈，为什么啊，不过还是谢谢！
--  作者：yangming
--  发布时间：2009/10/29 11:51:00
--  
以下是引用woodiy在2009-10-29 11:49:00的发言：

哈，为什么啊，不过还是谢谢！

建议还是改成:table吧,这个功能完一可以取代Datalist了,所以才会取消它
--  作者：blackzhu
--  发布时间：2009/10/30 7:02:00
--  
  设计快不要用这个了,楼主是不是好久没有来了,这个以后肯定要淘汰的.用table一样的.