Initialize
数据已经加载，DataTable已经生成，即将生成Table和窗口的时候执行，通常在此添加全局变量，以及针对DataTable的初始化设置。
全局变量应该在这里定义添加，例如：
Vars.Add("Aggregate",GetType(Boolean),False)
还可以在这里设置某一列的默认值，例如将订单表日期列的默认值设置当天日期：
DataTables("订单").DataCols("日期").DefaultValue = Date.Today()
任务五
本次任务的目的是给菜单加入日期筛选功能：
单击筛选按钮，即可筛选出开始日期和结束日期之间的数据。
设计步骤
在菜单中，增加一个功能组，名称为"任务五"，在功能组中增加一个工具栏，名称为"工具栏一"，然后在工具栏增加两个编辑框，一个标准按钮：
| 类型 |
名称 |
标题 |
小图标 |
| 编辑框 |
StartDate |
开始日期： |
|
| 编辑框 |
EndDate |
结束日期： |
|
| 标准按钮 |
Filter |
|
Filter.Ico |
将Filter按钮的Click事件设为：
Dim
StartDate As Date
Dim EndDate As Date
With RibbonTabs("实战演练")("任务五")("工具栏1")
If Date.TryParse(.Items("StartDate").Text, StartDate) Then '如果输入了有效的起始日期
If Date.TryParse(.Items("EndDate").Text, EndDate) Then '而且输入了有效的结束日期
'那么筛选两个日期之间的数据
CurrentTable.Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
Else '否则筛选大于起始日期的数据
CurrentTable.Filter = "[日期] >= #" & StartDate & "#"
End If
ElseIf Date.TryParse(.Items("EndDate").Text, EndDate) Then '如果输入了有效的结束日期
CurrentTAble.Filter = "[日期] <= #" & EndDate & "#" '那么筛选小于结束日期的数据
End If
End With
加好友 
发短信
Post By：2008/9/27 0:17:00 [只看该作者]
F6
