-- 作者:狐狸爸爸
-- 发布时间:2012/8/7 17:22:00
--
以下是引用bcw0717在2012-8-7 17:04:00的发言:
这个语句写在表的这个select 里么,对吧。
我如果是button1按,就加 if button1 click 这个么?
设置在按钮的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()
不知道将代码写在那里,是不应该的,最好先按顺序看帮助文件,磨刀不误砍柴工,心急吃不得热豆腐。
看帮助一定要按顺序,头一两遍可以不求甚解,第三遍开始要将每个例子实际操作演练一遍,不明白的就上论坛求助。三遍之后才开始做系统,遇到问题在帮助找答案,找不到的在论坛提问。 此外一定要先掌握《使用指南》,然后再看《开发指南》
[此贴子已经被作者于2012-8-7 17:22:40编辑过]
|