[讨论]菜单中的编辑框数据绑定和万年历 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：[讨论]菜单中的编辑框数据绑定和万年历