主题：加载数据时怎么默认只加载本月数据

有的没31号

 Dim StartDate As New Date(Date.Today.Year,Date.Today.month, 1)
 Dim EndDate As New Date(Date.Today.year,Date.Today.Month,Date.DaysInMonth(Date.Today.Year,Date.Today.Month))
试试

If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then
   Dim nYear  As Integer  = Date.Today.Year  '当前年
   Dim nMonth As Integer = Date.Today.Month   '当前月

   e.SelectString = "Select * From {综管} Where Year(月份营运报表_日期) = " & nYear & "  And   Month(月份营运报表_日期) =" & nMonth

End If

 应该也行

按年加载

发错了