目录树里的事件代码，
为什么 dt 表生成以后。不能按 dt 条件过滤。
年，月 不能直接使用 dt 中的 别名 年，月。而必须使用原表中的字段。目录树事件中 必须把A15是否入库 = 'Y' 加入，不然没有Y的也过滤出来了。
Dim tab As Table = Tables("绩效统计_table4")
'1查询缴库成本表中数据,2并设置目录树的筛选条件,3查询表附加给窗口控件表,4按筛选条件调用查询内容------↓
Dim dt As DataTable
Dim cmd As New SQLCommand
Dim cbh As WinForm.CheckBox = e.Form.Controls("CheckBox2")
cmd.ConnectionName = con_name
cmd.CommandText = "Se lect A04部门代号,A05部门 车间, A15是否入库,YEAR(A03生产日期) as 年,MONTH(A03生产日期) as 月,A58简称 简称, A07品号,A08品名,A09货品规格, " & _
"SUM(isnull(A49不良,0)) 不良,SUM(isnull(A48产量,0)) 产量,SUM(isnull(A50良品,0)) 良品 from 生产日报 " & _
"where A15是否入库 = 'Y' " & _
"group by A04部门代号,A05部门,A15是否入库,YEAR(A03生产日期),MONTH(A03生产日期),A58简称,A07品号,A08品名,A09货品规格 "
dt = cmd.ExecuteReader()
Dim Filter As String
If e.node.Name = "所有数据" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="YEAR(A03生产日期) = '" & dr("年") & "' AND A15是否入库 = 'Y'"
Case 1
Filter ="YEAR(A03生产日期) = '" & dr("年") & "' And MONTH(A03生产日期) = '" & dr("月") & "' AND A15是否入库 = 'Y'"
End Select
End If
tab.DataSource = dt
dt.loadFilter = Filter
dt.Load
加好友 
发短信
Post By：2020/9/2 13:41:00 [只看该作者]
Post By：2020/9/3 9:17:00 [只看该作者]
此主题相关图片如下：无标题.png
