- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎么定义从选定年的第一天开始统计数据？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34904)
-- 发布时间：2013/6/19 6:39:00
-- [求助]怎么定义从选定年的第一天开始统计数据？
怎么定义从选定年的第一天开始统计数据？比如选择2012年，11月，那么生成出生人数就是从2012.1.1到2012.11.30之间出生的人数，请教各位老师帮我修改下代码，谢谢
Dim village As WinForm.ComboBox = e.Form.Controls("选择村级单位")
village.Combolist = DataTables("出生").GetCombolistString("单位名称")
Dim year As WinForm.ComboBox = e.Form.Controls("年")
Dim month As WinForm.ComboBox = e.Form.Controls("月")
Dim csrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim FirstDay As Date = New Date(year.Text,month.Text,1) \'第一天
Dim LastDay As Date = New Date(year.Text,month.Text,Date.DaysInMonth(year.Text,month.Text)) \'最后一天
Dim yearDay As Date = New Date(year.Text,1) \'第一天
r("出生_总数") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女出生日期 >= #" & yearDay & "# And 子女出生日期 <= #" & LastDay & "#" )
r("出生_政策内_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策内\' And 子女孩次 = 1 And 子女出生日期 >= #" & yearDay & "# And 子女出生日期 <= #" & LastDay & "#" )
r("出生_政策内_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = \'政策内\' And 子女孩次 = 2 And 子女出生日期 >= #" & yearDay & "# And 子女出生日期 <= #" & LastDay & "#" )
此主题相关图片如下：qq图片20130619063422.jpg
-- 发布时间：2013/6/19 8:35:00
--
代码一眼看去没发现问题啊,有什么问题?