Imports System.Data.SqlClient Imports System.Reflection Public Class FrmPROCESS_DEP Dim cmd As New SqlCommand Dim da As New SqlDataAdapter Dim dt As New DataTable Dim sql As String Dim gDep As String Private Sub FrmPROCESS_DEP_Load(sender As Object, e As EventArgs) Handles MyBase.Load gDep = "" dgv_DRUM_IO.RowHeadersWidth = 10 dgv_buff.RowHeadersWidth = 10 dgv_mill_spray.RowHeadersWidth = 10 dgv_detail.RowHeadersWidth = 10 dgv_hang.RowHeadersWidth = 10 dgv_pasting.RowHeadersWidth = 10 dgv_small.RowHeadersWidth = 10 dgv_spray.RowHeadersWidth = 10 dgv_vacumn.RowHeadersWidth = 10 dgv_vibration.RowHeadersWidth = 10 DGV_FILL.RowHeadersWidth = 10 DGV_MEASURE.RowHeadersWidth = 10 DGV_TOGGLE.RowHeadersWidth = 10 dgv_clean.RowHeadersWidth = 10 Dim conn As New SqlConnection conn.ConnectionString = connstring conn.Open() cmd.Connection = conn ' Me.MdiParent = FrmMDI Dim dt As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,SUM(TOTAL) AS 合计,count(*) as 鼓数 FROM RT_RETAN_RECORD_D where area is not null GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) desc,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt) dgv_DRUM_IO.DataSource = dt '----出鼓叠皮 dgv_DRUM_IO.Columns(0).Width = 60 dgv_DRUM_IO.Columns(1).Width = 40 dgv_DRUM_IO.Columns(2).Width = 90 dgv_DRUM_IO.Columns(3).Width = 60 'dgv_DRUM_IO.Columns(4).Width = 100 'dgv_DRUM_IO.Columns(5).Width = 100 sql = "INSERT INTO RT_RETAN_RECORD_D (DATE, CARD, CUST, COLOR, WEIGHT, class, type, COMMENT, dd, Dep) SELECT date, card, cust, color, weight, N'反绒' AS Expr1, N'打底' AS Expr2, source, tech, N'水场' AS Expr3 FROM rt_retan_record_d1" dt = New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,SUM(weight) AS 合计,count(*) as 鼓数 FROM RT_RETAN_RECORD_D1 where date is not null GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt) dgv_small.DataSource = dt '----出鼓叠皮 dgv_small.Columns(0).Width = 60 dgv_small.Columns(1).Width = 40 dgv_small.Columns(2).Width = 90 dgv_small.Columns(3).Width = 60 'dgv_DRUM_IO.Columns(4).Width = 100 'dgv_DRUM_IO.Columns(5).Width = 100 dt = New DataTable sql = "SELECT YEAR(DATE1) AS 年,MONTH(DATE1) AS 月,SUM(CAST(weight AS NUMERIC(10,0))) AS 重量,count(*) as 鼓数 FROM RT_pasting_DAily WHERE loca LIKE N'%漳浦%' GROUP BY YEAR(DATE1),MONTH(DATE1) ORDER BY YEAR(DATE1) DESC,MONTH(DATE1) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt) dgv_pasting.DataSource = dt '---------煎板 dgv_pasting.Columns(0).Width = 60 dgv_pasting.Columns(1).Width = 40 dgv_pasting.Columns(2).Width = 90 dgv_pasting.Columns(3).Width = 60 Dim dt1 As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,SUM(WEIGHT1) AS 重量,count(*) as 鼓数 FROM RT_HANG_DAILY WHERE LOCAL LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt1) dgv_hang.DataSource = dt1 '-------挂晾 dgv_hang.Columns(0).Width = 60 dgv_hang.Columns(1).Width = 40 dgv_hang.Columns(2).Width = 90 dgv_hang.Columns(3).Width = 60 Dim dt2 As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE)AS 月,SUM(WEIGHT1) AS 重量,count(*) as 鼓数 FROM RT_vibration_DAILY WHERE LOCAL LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt2) dgv_vibration.DataSource = dt2 '------打软 dgv_vibration.Columns(0).Width = 60 dgv_vibration.Columns(1).Width = 40 dgv_vibration.Columns(2).Width = 90 dgv_vibration.Columns(3).Width = 60 Dim dt3 As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月 ,CAST(sum(weight1) AS NUMERIC(10,0)) AS 磨皮重量,count(*) as 鼓数 FROM RT_buff_DAILY WHERE LOCA LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt3) dgv_buff.DataSource = dt3 '------磨皮 dgv_buff.Columns(0).Width = 60 dgv_buff.Columns(1).Width = 40 dgv_buff.Columns(2).Width = 90 dgv_buff.Columns(3).Width = 60 dt3 = New DataTable sql = "SELECT YEAR(date) AS 年,MONTH(date) AS 月 ,CAST(sum(weight1) AS NUMERIC(10,0)) AS 磨皮重量,count(*) as 鼓数 FROM RT_clean_DAILY WHERE LOCAl LIKE N'%漳浦%' GROUP BY YEAR(date),MONTH(date) ORDER BY YEAR(date) DESC,MONTH(date) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt3) dgv_clean.DataSource = dt3 '------扫灰 dgv_clean.Columns(0).Width = 60 dgv_clean.Columns(1).Width = 40 dgv_clean.Columns(2).Width = 90 dgv_clean.Columns(3).Width = 60 Dim dt_TOGGLE As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,sum(weight1) AS 干皮重量,count(*) as 鼓数 FROM RT_TOGGLE_DAILY WHERE LOCA LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt_TOGGLE) DGV_TOGGLE.DataSource = dt_TOGGLE '------绷板 DGV_TOGGLE.Columns(0).Width = 60 DGV_TOGGLE.Columns(1).Width = 40 DGV_TOGGLE.Columns(2).Width = 90 DGV_TOGGLE.Columns(3).Width = 60 Dim dt_MEASURE As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(sf) as numeric(10,1)) AS 尺数 FROM RT_measure_DAILY GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt_MEASURE) DGV_MEASURE.DataSource = dt_MEASURE '------打尺 DGV_MEASURE.Columns(0).Width = 70 DGV_MEASURE.Columns(1).Width = 50 DGV_MEASURE.Columns(2).Width = 90 ' dgv_buff.Columns(3).Width = 100 Dim dt_spray As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(weight1) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM rt_spray_daily GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt_spray) dgv_spray.DataSource = dt_spray '------喷台 dgv_spray.Columns(0).Width = 60 dgv_spray.Columns(1).Width = 40 dgv_spray.Columns(2).Width = 90 dgv_spray.Columns(3).Width = 60 Dim dt_vacumn As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(weight) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM RT_vacumn_DAILY GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt_vacumn) dgv_vacumn.DataSource = dt_vacumn '------真空 dgv_vacumn.Columns(0).Width = 60 dgv_vacumn.Columns(1).Width = 40 dgv_vacumn.Columns(2).Width = 90 dgv_vacumn.Columns(3).Width = 60 Dim dt_burn As New DataTable sql = "SELECT YEAR(DATE1) AS 年,MONTH(DATE1) AS 月,cast(sum(weight1) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM RT_mill_spray_DAILY GROUP BY YEAR(DATE1),MONTH(DATE1) ORDER BY YEAR(DATE1) desc,MONTH(DATE1) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt_burn) dgv_mill_spray.DataSource = dt_burn '------喷台摔鼓 dgv_mill_spray.Columns(0).Width = 60 dgv_mill_spray.Columns(1).Width = 40 dgv_mill_spray.Columns(2).Width = 90 dgv_mill_spray.Columns(3).Width = 60 Dim dt_FILL As New DataTable sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(weight1) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM RT_FILL_DAILY GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) desc,MONTH(DATE) DESC" cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt_FILL) DGV_FILL.DataSource = dt_FILL '------填充 DGV_FILL.Columns(0).Width = 60 DGV_FILL.Columns(1).Width = 40 DGV_FILL.Columns(2).Width = 90 DGV_FILL.Columns(3).Width = 60 ini_dgv() sql = "select top(1) date from RT_RETAN_RECORD_D order by date desc" cmd.CommandText = sql txt_out.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_RETAN_RECORD_D1 order by date desc" cmd.CommandText = sql txt_out1.Text = cmd.ExecuteScalar sql = "select top(1) date1 from RT_pasting_DAily order by date1 desc" cmd.CommandText = sql txt_paste.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_HANG_DAILY order by date desc" cmd.CommandText = sql txt_hang.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_vibration_DAILY order by date desc" cmd.CommandText = sql txt_vibration.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_buff_DAILY order by date desc" cmd.CommandText = sql txt_buff.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_clean_DAILY order by date desc" cmd.CommandText = sql txt_clean.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_measure_DAILY order by date desc" cmd.CommandText = sql txt_measure.Text = cmd.ExecuteScalar sql = "select top(1) date from rt_spray_daily order by date desc" cmd.CommandText = sql txt_spray.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_vacumn_DAILY order by date desc" cmd.CommandText = sql txt_vacumn.Text = cmd.ExecuteScalar sql = "select top(1) date1 from RT_mill_spray_DAILY order by date1 desc" cmd.CommandText = sql txt_spray_mill.Text = cmd.ExecuteScalar sql = "select top(1) date from RT_FILL_DAILY order by date desc" cmd.CommandText = sql txt_fill.Text = cmd.ExecuteScalar With dgv_buff.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_clean.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_hang.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_DRUM_IO.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_mill_spray.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_pasting.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_small.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_spray.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_vacumn.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With dgv_vibration.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With DGV_FILL.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With With DGV_MEASURE.Columns(2).DefaultCellStyle .Format = "n0" .Alignment = DataGridViewContentAlignment.MiddleRight End With End Sub Private Sub ini_dgv() Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is DataGridView Then '是否为文本框TextBox Dim a As DataGridView = ctrl a.AllowUserToAddRows = False For Each column In a.Columns column.defaultcellstyle.alignment = DataGridViewContentAlignment.MiddleRight Next End If Next End Sub Private Sub Dgv_DRUM_IO_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_DRUM_IO.CellContentClick End Sub Private Sub dgv_DRUM_IO_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_DRUM_IO.CellClick ListBox1.Items.Clear() sql = "select day(date) as day from rt_retan_record_d where year(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)" cmd.CommandText = sql Dim dt As New DataTable da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "Drum_io" End Sub Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click Select Case gDep Case "Drum_io" sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, total as 合计, T_WEIGHT AS [桶装1.5分],B_WEIGHT AS [板装2分],T2_WEIGHT AS [桶装3分],B2_WEIGHT AS [板装4分],comment as 备注 FROM RT_RETAN_RECORD_D where year(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql da.SelectCommand = cmd Dim dt1 As New DataTable da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 dgv_detail.Columns(6).Width = 80 dgv_detail.Columns(7).Width = 80 dgv_detail.Columns(8).Width = 80 Case "Spray" sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, weight as 蓝皮重, times as 次数,comment as 备注 FROM rt_spray_daily where year(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "pasting" sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight as 蓝皮重,PEOPLE as组别,type as 类型,comment as 备注 FROM rt_pasting_daily where year(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "hang" sql = "SELECT DATE4 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 蓝皮重,group1 as组别,type as 类型,comment1 as 备注 FROM rt_pasting_daily where year(date4)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(0).Value & "' and month(date4)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(1).Value & "' and day(date4)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "toggle" sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 干皮重,type as 类型,comment1 as 备注 FROM rt_pasting_daily where year(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "vibration" sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 蓝皮重,group1 as组别,type as 类型,comment1 as 备注 FROM rt_vibration_daily where year(date1)='" & dgv_vibration.Rows(dgv_vibration.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_vibration.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "buff" sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 干皮重,group1 as组别,type as 类型,comment1 as 备注 FROM rt_buff_daily where year(date1)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "measure" sql = "SELECT DATE AS 日期,card as 卡号, color as 颜色, source as 皮源,weight as 蓝皮重,sf as 尺数,comment1 as 备注 FROM rt_measure_daily where year(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "vacumn" sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, thickness as 皮源,worc as 蓝干皮,weight as 重量,comment2 as 人员,comment as 备注 FROM rt_vacumn_daily where year(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "mill_spray" sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 重量,commentc as 备注 FROM rt_mill_spray_daily where year(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 Case "fill" sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色,weight1 as 重量, p2 as 组别 FROM rt_fill_daily where year(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'" cmd.CommandText = sql Dim dt1 As New DataTable da.SelectCommand = cmd da.Fill(dt1) dgv_detail.DataSource = dt1 dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing dgv_detail.Columns(0).Width = 100 dgv_detail.Columns(1).Width = 130 dgv_detail.Columns(2).Width = 100 dgv_detail.Columns(3).Width = 120 dgv_detail.Columns(4).Width = 80 dgv_detail.Columns(5).Width = 80 End Select End Sub Private Sub dgv_spray_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_spray.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date) as day from rt_spray_daily where year(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "Spray" End Sub Private Sub dgv_pasting_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_pasting.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date1) as day from rt_pasting_daily where year(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells("年").Value & "' and month(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date1)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "pasting" End Sub Private Sub dgv_hang_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_hang.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date4) as day from rt_hang_daily where year(date4)='" & dgv_hang.Rows(dgv_hang.CurrentCell.RowIndex).Cells("年").Value & "' and month(date4)='" & dgv_hang.Rows(dgv_hang.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date4)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "pasting" End Sub Private Sub DGV_TOGGLE_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_TOGGLE.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date) as day from rt_toggle_daily where year(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "toggle" End Sub Private Sub dgv_vibration_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_vibration.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date1) as day from rt_vibration_daily where year(date1)='" & dgv_vibration.Rows(dgv_vibration.CurrentCell.RowIndex).Cells("年").Value & "' and month(date1)='" & dgv_vibration.Rows(dgv_vibration.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date1)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "vibration" End Sub Private Sub dgv_buff_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_buff.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date) as day from rt_buff_daily where year(date)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "buff" End Sub Private Sub DGV_MEASURE_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_MEASURE.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date) as day from rt_measure_daily where year(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "measure" End Sub Private Sub dgv_vacumn_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_vacumn.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date) as day from rt_vacumn_daily where year(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "vacumn" End Sub Private Sub dgv_burn_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_mill_spray.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date1) as day from rt_mill_spray_daily where year(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells("年").Value & "' and month(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date1)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "mill_spray" End Sub Private Sub DGV_FILL_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_FILL.CellClick Dim dt As New DataTable ListBox1.Items.Clear() sql = "select day(date) as day from rt_fill_daily where year(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)" cmd.CommandText = sql da.Fill(dt) For x As Integer = 0 To dt.Rows.Count - 1 ListBox1.Items.Add(dt.Rows(x).Item("day")) Next gDep = "fill" End Sub Private Sub Label27_Click(sender As Object, e As EventArgs) Handles Label27.Click End Sub End Class