尽量放到一个表里面去,加一列 星期 区分不同的日期。
计时器那里适当加入条件即可
"原本的条件 and 星期 = \'" & Format(Date.Today, "dddd") & "\'"
如果要用不同的表,可以这样写
Dim s As string = Format(Date.Today, "dddd")
DataTables(s).Find("原来的条件")