主题：[求助]语句的问题

如果是Sql Server:
 
加载当日：
 
DataTables("某个表").LoadFilter = "日期 = '" & Date.Today & "'"
DataTables("某个表").Load()
 
加载当月：
 
Dim y As integer = Date.Today.Year

Dim m A integer = Date.Today.Month

Dim FirstDay As Date = New Date(y,m,1) '第一天
Dim LastDay As Date = New Date(y,m,Date.DaysInMonth(y,m)) '最后一天
DataTables("某个表").LoadFilter = "日期 >= '" & FirstDay & "' And 日期 <= '" & LastDay & "'"
DataTables("某个表").Load()

 

设置在按钮的Click事件中就行了。

 

当日按钮的click事件代码：

 

DataTables("某个表").LoadFilter = "日期 = '" & Date.Today & "'"
DataTables("某个表").Load()

 

当月按钮的Click事件代码：

 

Dim y As integer = Date.Today.Year

Dim m A integer = Date.Today.Month

Dim FirstDay As Date = New Date(y,m,1) '第一天
Dim LastDay As Date = New Date(y,m,Date.DaysInMonth(y,m)) '最后一天
DataTables("某个表").LoadFilter = "日期 >= '" & FirstDay & "' And 日期 <= '" & LastDay & "'"
DataTables("某个表").Load()

 

不知道将代码写在那里，是不应该的，最好先按顺序看帮助文件，磨刀不误砍柴工，心急吃不得热豆腐。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
此外一定要先掌握《使用指南》，然后再看《开发指南》

 

不可能的吧，这是筛选今天的记录，可能你今天本来就没有记录的。