主题：按日期时间加裁数据

这样写

DataTables("MainSchedule").LoadFilter = "[AddTM] >= '2017-04-01' and [AddTM] < '2018-01-01' "
DataTables("MainSchedule").LoadOrder = "AddTM"
DataTables("MainSchedule").Load()

动态合成，就这样写

Dim d1 As Date = "2017-04-01"

Dim d2 As Date = "2017-12-31"

DataTables("MainSchedule").LoadFilter = "[AddTM] >= '" & d1 & "' and [AddTM] < '" & d2.AddDays(1) & "' "