以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]关于发布后项目很久后报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147308)

--  作者:工匠
--  发布时间:2020/3/13 17:24:00
--  [讨论]关于发布后项目很久后报错
老师好:
请帮看下附件描述是什么原因导致,已经使用很长时间才报错,并且根据帮助查到报错问题代码,但是看代码又发现不了问题...
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:关于报错.rar


谢谢!

--  作者:有点蓝
--  发布时间:2020/3/13 17:29:00
--  
是不是年月列数据里有特殊字符?导出{上线记录}表数据测试一下
--  作者:工匠
--  发布时间:2020/3/13 17:35:00
--  
谢谢老师,现在没有发现特殊字符(又重新从报工表里复制年月列名到上线表里年月列重命名粘贴的)。bin文件夹也删了多次测试

图片点击可在新窗口打开查看此主题相关图片如下:表列名对比.png
图片点击可在新窗口打开查看

[此贴子已经被作者于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
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导出及目录树.rar

谢谢!
[此贴子已经被作者于2020/3/15 10:44:16编辑过]

--  作者:有点蓝
--  发布时间:2020/3/15 21:01:00
--  
1、我测试没有问题,请做个有问题的实例测试
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.zip


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