Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim sglsg As New GroupTableBuilder("sglsb", DataTables("car_accident"))
sglsg.Groups.AddDef("sg_rq", DateGroupEnum.Year, "year")
sglsg.Groups.AddDef("sg_rq",DateGroupEnum.Month, "month")
sglsg.Totals.AddDef("sg_rq",AggregateEnum.Count, "num")
sglsg.SamePeriodGrowth = True
sglsg.CircleGrowth = True
sglsg.Build()''
Dim dr As Row
dr = Tables("sglsb").Find("year = y and month = m ")
If dr IsNot Nothing Then '如果找到的话
msgbox(dr(numcle))
End If
黄色字体语句哪里不正确? 语句是想执行,搜索本月的记录,