- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 条件统计，字符转换为日期 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54492)
-- 发布时间：2014/7/29 15:56:00
-- 条件统计，字符转换为日期
各位大侠，帮我看看这段代码，实在不知道杂回事，提示错误
统计年份、月份 都是字符列。
Dim dt1,dt2 As DataTable
dt1 = DataTables("发货明细表")
dt2 = DataTables("收货入库明细表")
Dim sum1,sum2 As Double
Dim d As Date
If e.DataCol.Name = "统计_年份" OrElse e.DataCol.Name = "统计_月份" Then
If dr.IsNull("统计_年份") = False AndAlso dr.IsNull("统计_月份") = False Then
d = CDate(dr("统计_年份") & "-" & dr("统计_月份") & "-01")
sum1 = dt1.Compute("Sum(数量)", "[物料编码] = \'" & dr("物料编码") & "\' and [日期] < #" & d & "# ")
sum2 = dt2.Compute("Sum(实收数量)", "[物料编码] = \'" & dr("物料编码") & "\' And [日期] < #" & d & "# ")
dr("统计_总数量初期") = dr("期初数_总数量") + sum1 - sum2
dr("统计_总数量出库") = dt1.Compute("Sum(数量)", "[物料编码] = \'" & dr("物料编码") & "\'And [日期] >= #" & d & "# And [日期] < #" & d.AddMonths(1) & "# ")
dr("统计_总数量入库") = dt2.Compute("Sum(实收数量)", "[物料编码] = \'" & dr("物料编码") & "\' and [日期] >= #" & d & "# And [日期] < #" & d.AddMonths(1) & "# ")
End If
End If
详细错误信息：
调用的目标发生了异常。
该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。
-- 发布时间：2014/7/29 15:57:00
--
d = new date(dr("统计_年份"), dr("统计_月份"), 1)
-- 发布时间：2014/7/29 16:13:00
--
一样提示错误。。
-- 发布时间：2014/7/29 16:17:00
--
你的数据，年月有问题
d = new date(val(dr("统计_年份")), val(dr("统计_月份")), 1)
-- 发布时间：2014/7/29 17:00:00
--
请看附件，不是日期的问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
[此贴子已经被作者于2014-7-29 17:00:03编辑过]
-- 发布时间：2014/7/29 17:07:00
--
打不开你的项目
不可识别的数据库格式 \'C:\\Documents and Settings\\Administrator\\My Documents\\下载\\管理项目2.foxdb\'。
-- 发布时间：2014/7/29 17:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2014/7/29 17:38:00
--
回复7楼，测试没有问题，输入2014 7 直接计算了，不报错
-- 发布时间：2014/7/29 17:41:00
--
好吧，也许我要更新 程序了。。。。。。
-- 发布时间：2014/7/29 17:46:00
--
此主题相关图片如下：qq图片20140729155432.jpg
为什么还是这样，不解...