Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
jweishan 发表于:2008/9/27 0:17:00

我想在菜单中设计编辑框,用于输入全局变量,开始日期、截止日期,并调用内置输入器输入,看帮助文件上没有说明,想向高手求证一下菜单中能不能实现数据绑定和调用内置输入法!

2楼
kylin 发表于:2008/9/27 8:09:00
有这个想法也不错,可以试一下的,有搞不定的编个实例上传,继续提问。
3楼
blny 发表于:2008/9/27 8:49:00

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

4楼
jweishan 发表于:2008/10/7 21:56:00
感谢biny的耐心,但你的编辑框输入日期貌似不能用万年历哦!
5楼
狐狸爸爸 发表于:2008/10/7 22:26:00
用窗口,将日期输入控件绑定到全局变量
6楼
wcs 发表于:2008/10/7 23:17:00
菜单和工具栏中不行吗?
7楼
jweishan 发表于:2008/10/7 23:44:00
窗口的,我知道!
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.