按年加载
If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then Dim nYear As Integer = Date.Today.Year '当前年 或指定年 Dim nYear As Integer = 2011
e.SelectString = "Select * From {综管} Where Year(月份营运报表_日期) = " & nYear
End If