主题：生记录的问题

dim d1 as date = #12/30/2024#

dim cnt as integer = 5

dim dr as datarow

do while cnt > 0

dr = datatables("表A").find("日期=#" & d1 & "# and (星期 in ('六','日') or 节假 is not null)")

if dr is nothing then

output.show(d1)

cnt -= 1

end if

loop