以文本方式查看主题

-  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=61678)

--  作者:ypp1420
--  发布时间:2014/12/17 9:15:00
--  关于月份筛选的动态表条件达式

甜版主好,我想做一个图表,大意是:某一年的某个月内每种材料消耗条形图,现在出现了一个问题!我建了3个控件:一个radiobutton, 两个combobox两个组合框,点击radiobutton 生成一个临时统计表1 统计表里面有三列,分别是 年 月 和金额 ;一个combobox组合框的年份从 统计表1中选择,另外一个组合框的月份从统计表1中选择符合第一个组合框输入年份的月份,

第一个选择年份组合框功能已经实现,第二个组合框输入月份,代码如下

Dim nf As WinForm.ComboBox = e.Form.Controls("输入年份")
e.sender.ComboList = DataTables("统计表1").GetComboListString("月","年 = #" & nf.value & "# ")

执行后显示“NET Framework 版本:2.0.50727.5472
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,材料统计,输入月份,Enter
详细错误信息:
该字符串未被识别为有效的 DateTime。

请指点迷津,谢谢!


--  作者:有点甜
--  发布时间:2014/12/17 9:36:00
--  
e.sender.ComboList = DataTables("统计表1").GetComboListString("月","年 = \'" & nf.value & "\'")
--  作者:ypp1420
--  发布时间:2014/12/17 9:40:00
--  

谢谢甜版主,问题解决! 我用的# 括日期怎么会报错 呢!

 


--  作者:有点甜
--  发布时间:2014/12/17 9:44:00
--  

年是字符或者数值,不是日期。


--  作者:ypp1420
--  发布时间:2014/12/17 9:45:00
--  
噢!明白了,学艺不精,还要继续认真啃帮助 !再次感谢甜版主!
--  作者:ypp1420
--  发布时间:2014/12/17 11:24:00
--  

甜版主好,我现在想用两个combobox组合框 输入的年份月份 生成一个统计表2 统计表中有 5列,分别是:年  月  材料名称 数量 和金额  我想实现 combobox组合框内输入年月后 自动生成一个临时统计表2 列出此年内此月的材料名称 数量  和金额  代码如下:

Dim nf As WinForm.ComboBox = e.Form.Controls("输入年份")
Dim yf As WinForm.ComboBox = e.Form.Controls("输入月份")
\'----------------------------生成统计表------------------------
Dim g As New GroupTableBuilder("统计表2", DataTables("皮带二队材料领用表"))
g.Groups.AddDef("领用时间", DateGroupEnum.Year, "年")
g.Groups.AddDef("领用时间", "月")
g.Groups.AddDef("材料名称")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.Filter = "[领用时间]  >= # \'" & yf.value & "\'/1/\'" & nf.value & "\'# And [领用时间] <  # \'\'" & yf.value & "\'\'+ \'1\'/1/\'" & nf.value & "\'# "  ‘ 领用时间大于此月的1日 小于下个月的1日!此处有个问题 ,12月份,年不变
g.Build()

 

报错

请指点迷津,谢谢!


--  作者:有点甜
--  发布时间:2014/12/17 11:34:00
--  
Dim d As Date = new Date(yf.value, nf.value, 1)
g.Filter = "[领用时间] >= #" & d & "# And [领用时间] <  #" & d.AddMonths(1) & "# "

--  作者:ypp1420
--  发布时间:2014/12/17 12:33:00
--  
谢谢甜版主,问题圆满解决图片点击可在新窗口打开查看