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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 汇总的问题？

共有2820人关注过本帖树形打印复制链接主题：汇总的问题？

zsslly

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

加好友

发短信

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

汇总的问题？ 发帖心情

Post By：2015/5/31 15:01:00 [只看该作者]

我有一个“客户信息表”,表中会记录每个客户每天做的一些事情！新建一个窗口，里面有二个textbox,二个表，如图，textbox里面有对应的日期“xx年xx月xx日星期几”我想要下面的表显示对应上面的时间汇总那天的所有事情！

代码应该怎么写？

或求知识点！

此主题相关图片如下：qq截图20150531145505.jpg

[此贴子已经被作者于2015/5/31 15:01:34编辑过]

大红袍

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

加好友

发短信

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

Post By：2015/5/31 15:04:00 [只看该作者]

Tables("窗口1_Table1").Filter = "日期 = #" & new Date(2015, 5, 31) & "#"

Tables("窗口1_Table1").Filter = "日期 = #" & new Date(2015, 5, 30) & "#"

具体问题，上传例子。

zsslly

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

加好友

发短信

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

Post By：2015/5/31 15:16:00 [只看该作者]

请老师帮看看!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:时间汇总.table

大红袍

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

加好友

发短信

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

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

e.Form.Controls("TextBox1").Text = Format(Date.Today.AddDays(-1), "yy年MM月dd日dddd")
e.Form.Controls("TextBox2").Text = Format(Date.Today, "yy年MM月dd日dddd")
e.Form.Controls("TextBox3").Text = Format(Date.Today.AddDays(1), "yy年MM月dd日dddd")

Tables("窗口1_Table1").Filter = "事件日期 = #" & Date.Today.AddDays(-1) & "#"
Tables("窗口1_Table2").Filter = "事件日期 = #" & Date.Today & "#"
Tables("窗口1_Table3").Filter = "事件日期 = #" & Date.Today.AddDays(1) & "#"