主题：在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

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