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.C
cmd.CommandText = "select * from ( Select A04部门代号,A05部门 as 车间, A15是否入库,YEAR(A03生产日期) as 年,MONTH(A03生产日期) as 月,A58简称 as 简称, A07品号,A08品名,A09货品规格, " & _
"SUM(iif(isnull(A49不良),0)) as 不良,SUM(iif(isnull(A48产量),0)) as 产量,SUM(iif(isnull(A50良品),0)) as 良品 from {生产日报} " & _
"where A15是否入库 = 'Y' " & _
"group by A04部门代号,A05部门,A15是否入库,YEAR(A03生产日期),MONTH(A03生产日期),A58简称,A07品号,A08品名,A09货品规格) as xx "
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 =" where [年] = " & dr("年") ' And A15是否入库 = 'Y'"
Case 1
Filter =" where [年]=" & dr("年") & " and [月]=" & dr("月")
End Select
End If
cmd.CommandText = cmd.CommandText & Filter
dt = cmd.ExecuteReader()
tab.DataSource = dt
加好友 
发短信
Post By：2020/9/2 13:56:00 [显示全部帖子]
此主题相关图片如下：1.png