各位老师，我想在实现筛选的时候，listbox的项目也能动态改变，目前我遇到的问题是，我想要根据“发送时间”和“计划名称”显示在listbox之中，第一打开窗口时，没有问题，但当我输入查询条件之后，只显示一列内容，请老师指教。下面是截图和代码。
listitemfomat--事件
e.Value = e.ListItem("发送时间") & "|" & e.ListItem("计划名称")
第一打开界面：
此主题相关图片如下：qq截图20150725105551.jpg
点击查询：本周Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "发送时间 >= '" & dt1 & "' And 发送时间 <= '" & dt2 & "'"
dataTables("审核计划").loadFilter = Filter
datatabels("审核计划").load
加好友 
发短信
Post By：2015/7/25 11:01:00 [只看该作者]
