没看懂你意思。你是想说,最后一天的数据没有加载进来?
DataTables("销售清单").LoadFilter = "[售出日期] >= '" & DateStart.Value & "' and [售出日期] < '" & DateEnd.value.AddDays(1) & "' And 填写人员ID='" & _UserID & "'"