请教个问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教个问题？

共有2333人关注过本帖树形打印复制链接主题：请教个问题？

zsslly

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

请教个问题？ 发帖心情

Post By：2015/6/21 12:06:00 [只看该作者]

我的主表中，"记录月份"列的内容为"xx年xx月" 14年01月......14年12月 15年01月......15年12月 16年01月......16年12月 ......

我设计的窗口中的“combobox1”控件中的内容为： 2014年、2015年、2016年、2017年、、、、、、

如果控件中的内容也为“xx年xx月”的话，代码如下写，我知道的，

e.Form.Controls("Table1").Table.Filter = "记录月份 = '" & e.Form.Controls("ComboBox1").Text & "'"

但如果内容形式不一样的话应该怎么改呢？求助？

zsslly

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

Post By：2015/6/21 12:38:00 [只看该作者]

求教老师？

zsslly

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

Post By：2015/6/21 12:55:00 [只看该作者]

有大神指点吗？

zsslly

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

Post By：2015/6/21 13:20:00 [只看该作者]

Dim s As String = e.Sender.Text
Dim d As Date = new Date (2000 + s.substring(0,2), s.substring(3,2), s.substring(6,2))
'msgbox(d)
Tables("主窗口_Table22").Filter = "事件日期 = #" & d & "#"

这个方法不知道能不能用？

zsslly

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

Post By：2015/6/22 9:29:00 [只看该作者]

在次求助？

sloyy

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2180 积分：13816 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2015/6/22 12:08:00 [只看该作者]

用两个combobox比较好,一个显示年,一个显示月再组合起来.

zsslly

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00

Post By：2015/6/22 15:35:00 [只看该作者]

求助?

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/23 11:17:00 [只看该作者]

e.Form.Controls("Table1").Table.Filter = "记录月份 like '" & e.Form.Controls("ComboBox1").Text.SubString(2,3) & "%'"

下一主题 >> << 上一主题

主题：请教个问题？