主题：在Datelist中动态加载的求助

此主题相关图片如下：qq截图未命名.png


窗口中的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
   DataTables("通讯往来").LoadFilter = Filter  
End If

DataTables("通讯往来").Load()
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")  
dst.DataTable = DataTables("通讯往来")
dst.Build()

出错如下：

此主题相关图片如下：qq截图未命名2.png


帮忙看看，如何改才可行啊！