主题：启动项目后，单击“采购立项”菜单，弹出如图的错误。

打开该项目后，当单击“采购立项记录”菜单后，弹出如图的提示
此主题相关图片如下：qq截图20150318141921.png
这是什么原因？谢谢！

afterload事件

 

'''=====================采购立项记录=================

Dim dtjl As DataTable
Dim g As New GroupTableBuilder("采购立项统计",DataTables("tblcgjl"))
g.Groups.AddDef("lxrq",DateGroupEnum.Year,"年")
g.Groups.AddDef("lxrq",DateGroupEnum.Month,"月")
g.Groups.AddDef("cgdw")
g.groups.AddDef("dwlb","单位类别")
g.Totals.AddDef("cgjlID",AggregateEnum.Count,"采购立项数") '根据客户列来统计记录数,也就是订单数
dtjl  = g.Build(False) '参数设置为False,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树
Dim trv_cgjl As WinForm.TreeView = e.Form.Controls("trvcgjl")
trv_cgjl.BuildTree(dtjl,"年|月|单位类别|cgdw")
trv_cgjl.StopRedraw
For Each nd As WinForm.TreeNode In trv_cgjl.AllNodes
    Dim Year As Integer = nd.DataRow("年")
    Dim Month As Integer = nd.DataRow("月")
    Dim Product As String = nd.DataRow("cgdw")
    Dim dwlbie As String=nd.DataRow("单位类别")
    Select Case nd.Level
          Case 0
            nd.Text = nd.text & "年(" & dtjl.Compute("Sum(采购立项数)","年 = " & Year) & "项)"
        Case 1
            nd.Text = nd.text & "月(" & dtjl.Compute("Sum(采购立项数)","年 = " & Year & " And 月 = " & Month) & "项)"
        Case 2
            nd.Text = nd.text & "月(" & dtjl.Compute("Sum(采购立项数)","年 = " & Year & " And 月 = " & Month & " And 单位类别 = '" &  dwlbie & "'" ) &  "项)"
           
        Case 3           
            nd.Text = nd.text & "(" & nd.DataRow("采购立项数") & "项)"
    End Select
Next
trv_cgjl.Nodes.Insert("显示所有采购立项","显示所有采购立项(" & dtjl.Compute("Sum(采购立项数)") & "项)",0)
trv_cgjl.ResumeRedraw

谢谢！

录入数据后，目录树的第三级名称后面怎么会有"月",因为单位类别列是没有月的。
此主题相关图片如下：585.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:政府采购-调用外部数据版.rar

是的，老是在这转悠。谢谢！