Foxtable(狐表)用户栏目专家坐堂 → 记录查询


  共有1999人关注过本帖树形打印复制链接

主题:记录查询

帅哥哟,离线,有人找我吗?
outcat
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
记录查询  发帖心情 Post By:2018/3/13 1:00:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
我要在月报表中查询选中的这行的记录,然后查看此行的记录明细,我在司机运费记录窗体AfterLoad事件中写了下面的代码
Tables("司机运费记录_Table1").Filter = "司机 = '" & Tables("司机运费月报表_Table1").Current("司机")&"' "   查询的结果是该司机所有月份的记录,然后修改为下面的代码
Tables("司机运费记录_Table1").Filter = "司机 = '" & Tables("司机运费月报表_Table1").Current("司机")&"' And   月 = '" & Tables("司机运费月报表_Table1").Current("月")&"' " 

可是我要查询的司机运费记录表里 没有 “月”的字段列,这里不知道该怎么做了,请老师帮忙一下

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 9:25:00 [只看该作者]

Dim cr As Row = Tables("司机运费月报表_Table1").Current
Dim d As Date = cr("日期")
d = new Date(d.year, d.month, 1)
Tables("司机运费记录_Table1").Filter = "司机 = '" & cr("司机") & "' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

 

http://www.foxtable.com/webhelp/scr/2720.htm

 


 回到顶部