以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按时间统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=166167)

--  作者:bzqlyj
--  发布时间:2021/5/21 13:10:00
--  按时间统计
问题:在表A中,如何通过窗体的下拉窗选择年度,点按钮将表A的数据按年度写入表B。表A数据说明,ZT列为F,这一行到当前时间一到有效,如表A,第一行bh列的a,zt列为F,说明2019,2020,2021年都有,如表A第二行bh列的b, zt列为T,说明2019年有,(注,lrsj与jcsj的年度一样)2020年没有,如表A第五行,zt列为T,说明2019,2020年有,2021年没
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计.foxdb

有(注,lrsj与jcsj的年度不一样)

--  作者:有点蓝
--  发布时间:2021/5/21 14:02:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计.zip


--  作者:bzqlyj
--  发布时间:2021/5/21 14:12:00
--  回复:(有点蓝)[upload=zip,统计.zip]viewFile.asp?...
出错:
从字符串“2019”到类型“Date”的转换无效。
--  作者:有点蓝
--  发布时间:2021/5/21 14:17:00
--  
Dim d As Date = KK.Value
Dim d1 As Date = new Date(d.Year,1,1)
改为
Dim d As Date 
Dim d1 As Date = new Date(cint(KK.Value),1,1)

--  作者:bzqlyj
--  发布时间:2021/5/21 14:41:00
--  回复:(有点蓝)Dim d As Date = KK.ValueDim d1 As ...
改了后,如选择的是2019年的,2020年及2021年的数据都出来了
--  作者:有点蓝
--  发布时间:2021/5/21 14:44:00
--  
看懂代码,自己改改条件