主题：筛选每月第一天时空表有一行代码如何写

有一个表只显示当前月份数据，在每月开始第一天要有一个空白行，筛选每月第一天时空表有一行代码如何写，请教大师

不太懂你意思.

你的意思是说.如果筛选出来的月份没有数据 就自动添加一行?

.如果筛选出来的月份没有数据 就自动添加第一行?

你能不能说明白一点啊,你这问得,我很纠结啊.想半天没弄明白你的意图!

就是你说的意思呀：如果筛选出来的月份没有数据 就自动添加一行?（只要一个空白行就可以了）

Dim y As Integer = 2011 '指定年份
Dim m As Integer = 6 '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(2011,6)) '获取该月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
if DataTables("订单").find(Filter) Is Nothing Then ‘如果这个月没有数据
     Dim dr As DataRow  = DataTables("订单").AddNew()
     dr("日期") = dt1
End if

谢谢