-- 作者:woodiy
-- 发布时间:2009/11/10 20:39:00
-- 在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
帮忙看看,如何改才可行啊!
|