以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  记录查询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115706)
--  作者：outcat
--  发布时间：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("月")&"\' " 

可是我要查询的司机运费记录表里 没有 “月”的字段列，这里不知道该怎么做了，请老师帮忙一下
--  作者：有点甜
--  发布时间：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