改了之后为什么生成的表没有数据了，一个空表
Dim ryrq As WinForm.DateTimePicker = e.Form.Controls("每日人员日期")
Dim dt1 As DataTable
Dim sql As String = "sel ect 各检测员检测统计表_检测日期, 各检测员检测统计表_检测方法, 各检测员检测统计表_检测人员,sum(各检测员检测统计表_检测量) as 各检测员检测统计表_检测量,sum(各检测员检测统计表_返修量) as 各检测员检测统计表_返修量 from (sel ect convert(varchar(10), 首检_检测日期) as 各检测员检测统计表_检测日期,首检_检测长度 AS 各检测员检测统计表_检测量,首检_检测人员 as 各检测员检测统计表_检测人员,首检_返修长度 AS 各检测员检测统计表_返修量,检测方法 AS 各检测员检测统计表_检测方法,地点 as 检测地点 from {无损_检测明细} union all " & _
"Sel ect convert(varchar(10), 一次复检_检测日期) As 各检测员检测统计表_检测日期,一次复检_检测长度 as 各检测员检测统计表_检测量,一次复检_检测人员 as 各检测员检测统计表_检测人员,一次复检_返修长度 as 各检测员检测统计表_返修量,检测方法 as 各检测员检测统计表_检测方法,地点 as 检测地点 from {无损_检测明细} union all " & _
"Sel ect convert(varchar(10), 二次复检_检测日期) As 各检测员检测统计表_检测日期,二次复检_检测长度 as 各检测员检测统计表_检测量,二次复检_检测人员 as 各检测员检测统计表_检测人员,二次复检_返修长度 as 各检测员检测统计表_返修量,检测方法 as 各检测员检测统计表_检测方法,地点 as 检测地点 from {无损_检测明细}) as a where 各检测员检测统计表_检测日期 = '" & ryrq.Value & "' and 检测地点 <> '现场' GROUP BY 各检测员检测统计表_检测日期,各检测员检测统计表_检测方法,各检测员检测统计表_检测人员"
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = sql
dt1 = cmd.ExecuteReader()
加好友 
发短信
Post By：2018/7/22 22:18:00 [显示全部帖子]
