以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [讨论]关于发布后项目很久后报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147308) |
||||
-- 作者:工匠 -- 发布时间:2020/3/13 17:24:00 -- [讨论]关于发布后项目很久后报错 老师好: 请帮看下附件描述是什么原因导致,已经使用很长时间才报错,并且根据帮助查到报错问题代码,但是看代码又发现不了问题... 谢谢!
|
||||
-- 作者:有点蓝 -- 发布时间:2020/3/13 17:29:00 -- 是不是年月列数据里有特殊字符?导出{上线记录}表数据测试一下 |
||||
-- 作者:工匠 -- 发布时间:2020/3/13 17:35:00 -- 谢谢老师,现在没有发现特殊字符(又重新从报工表里复制年月列名到上线表里年月列重命名粘贴的)。bin文件夹也删了多次测试 [此贴子已经被作者于2020/3/13 17:45:58编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2020/3/13 20:01:00 -- 指的是年月列这一列存储的数据,不是列名有特殊字符。最好导出{上线记录}表数据测试一下 |
||||
-- 作者:工匠 -- 发布时间:2020/3/15 10:30:00 -- 谢谢老师,现在又发现目录树节点展开过滤也是错的了...... 年月数据值是根据日时间生成的, If e.DataCol.Name = "日" Then If e.DataRow.IsNull("日") Then e.DataRow("年月") = Nothing Else Dim calCommon As New System.Globalization.GregorianCalendar() Dim dt As Date = e.DataRow("日") e.DataRow("年月") = Format(dt,"yyyy-MM") End If End If
谢谢! [此贴子已经被作者于2020/3/15 10:44:16编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2020/3/15 21:01:00 -- 1、我测试没有问题,请做个有问题的实例测试 2、 Select Case e.Node.Level Case 0 SQLFilter ="[年度] = \'" & dr("年度") & "\'" Case 1 SQLFilter ="[年度] = \'" & dr("年度") & "\' And [生产车间] = \'" & dr("生产车间") & "\'" Case 2 SQLFilter ="[年度] = \'" & dr("年度") & "\' And [生产车间] = \'" & dr("生产车间") & "\' And [班组] = \'" & dr("班组") & "\'" Case 3 SQLFilter ="[年度] = \'" & dr("年度") & "\' And [生产车间] = \'" & dr("生产车间") & "\' And [班组] = \'" & dr("班组") & "\' and [组段] = \'" & dr("组段") & "\'" Case 4 SQLFilter ="[年度] = \'" & dr("年度") & "\' And [生产车间] = \'" & dr("生产车间") & "\' And [班组] = \'" & dr("班组") & "\' and [组段] = \'" & dr("组段") & "\' and [年月] = \'" & dr("年月") & "\'" Case 5 SQLFilter ="[年度] = \'" & dr("年度") & "\' And [生产车间] = \'" & dr("生产车间") & "\' And [班组] = \'" & dr("班组") & "\' and [组段] = \'" & dr("组段") & "\' and [年月] = \'" & dr("年月") & "\' and [日] = \'" & dr("日") & "\'" End Select |