.如果真 (数据库连接1.连接Access (数据库路径, “”) = 假)
信息框 (“连接失败”, 0, )
返回 ()
.如果真结束
.如果真 (记录集1.置连接 (数据库连接1) = 假)
信息框 (“未连接”, 0, )
返回 ()
.如果真结束
.如果真 (记录集1.打开 (“1月表”, #数据表名, ) = 假)
信息框 (“未打开”, 0, )
返回 ()
如果 (记录集1.查找 (“日期>='” + 时间到文本 (取日期 (日期框_查找开始.今天), ) + “'”, #正向搜索) = 真)
如果 (记录集1.查找 (“日期<='” + 时间到文本 (取日期 (日期框_查找终止.今天), ) + “'”, #正向搜索) = 真)
这是我这的原代码,可以查找,但不能查出日期开始和终止日内的.