HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/08、關務管理/Frm_BG_main.vb

Imports System.Data.SqlClient
Imports OfficeOpenXml
Imports System.Net
Imports Microsoft.Office.Interop
'Imports Microsoft.Office.Interop.Excel
'Imports Microsoft.Office.Core.XlPivotFieldOrientation
Public Class Frm_BG_main
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim my_year111 As Integer
    Dim my_month111 As Integer
    'Dim my_year As Integer
    Dim dt1 As New DataTable
    Dim sql As String
    Dim conn As New SqlConnection
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim xlRange As Microsoft.Office.Interop.Excel.Range
    Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
    Dim PT As Microsoft.Office.Interop.Excel.PivotTable
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Frm_wb_out.Show()
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        Frm_Stock_Month.Show()

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Frm_BG_PROCESS.Show()

    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Frm_BG_Record.Show()
    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        Frm_Ship_detail.Show()

    End Sub

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        Frm_BG_IN_SUM.Show()

    End Sub

    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        Frm_BG_OUT_SUM.Show()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Frm_BG_Ｃhem_Ｏut_Ｄaily.Show()

    End Sub

    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click '---每日发货

        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet

        Dim name(1000) As String
        Dim no(1000) As String
        Dim SERIAL(1000) As String
        Dim YEAR1(1000) As String
        Dim MONTH1(1000) As String
        Dim DATE1(1000) As String
        Dim COMMENT(1000) As String
        Dim qty(1000) As Double
        Dim QTY1(1000) As Double
        Dim po_no(1000) As String
        Dim sku_no(1000) As String
        Dim nw(1000) As Double
        Dim gw(1000) As Double
        Dim price(1000) As Double


        Dim dt As New DataTable
        Dim file_name As String = ""
        Dim file_name1 As String = ""


        ListBox1.Items.Clear()

        Dim my_weight As Double = 0






        Dim a As Integer = 0
        Dim my_count As Integer = 0
        'OpenFileDialog1.Multiselect = True
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            file_name = OpenFileDialog1.FileName
            file_name1 = OpenFileDialog1.SafeFileName
        Else
            Exit Sub

        End If



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False



        'sql = "delete from rt_bg_io"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()



        xlBook = xlApp.Workbooks.Open(file_name,, True)
        xlBook.Activate()





        Dim yy As Integer = 0








        ListBox1.Items.Add(file_name)


        Dim my_customer As String = ""

        If OpenFileDialog1.SafeFileName Like "*上杰*" And OpenFileDialog1.SafeFileName Like "*越南*" Then      '---------------------------------------上杰越南


            my_weight = InputBox("请输入货柜重量",, 0)


            sql = "delete from rt_ship_daily_sj_vn"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()






            xlSheet = xlApp.Workbooks(1).Worksheets(1)
            xlSheet.Activate()






            Dim y As Integer = 0
            For y = 14 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A14:N" & y - 1).Select()


            xlApp.Selection.UnMerge
            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"


            For y = 14 To y - 1

                sql = "insert into rt_ship_daily_sj_vn (my_weight,no,name,qty,weight,po_no,unit_price,sku_no,order_month) values(" & my_weight & ",'" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & Math.Round(xlSheet.Cells(y, 5).value, 3) & ",N'" & Math.Round(xlSheet.Cells(y, 6).value, 3) & "'," & xlSheet.Cells(y, 9).value & ",N'" & xlSheet.Cells(y, 10).value & "','" & xlSheet.Cells(y, 11).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next


            sql = "select po_no as 订单号,name as 品名, thick as 厚度, cast(sum(qty) as numeric(10,1)) as 尺数,cast(sum(weight) as numeric(10,1)) as 重量 from (SELECT my_weight,no, po_no, name,qty,weight, case when left(name,3)='1.2' then '1.24' when left(name,3)='1.4' then '1.46' end as thick FROM  RT_SHIP_DAILY_sj_vn) as p group by po_no,name,thick"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt




            sql = "select 品名,厚度,尺数,cast(尺数/SUM(尺数) OVER () *货柜重 as numeric(10,4)) as 重量 from 
(SELECT   品名, thick AS 厚度, CAST(SUM(qty) AS numeric(10, 1)) AS 尺数, CAST(SUM(weight) AS numeric(10, 1)) AS 重量 ,
                AVG(my_weight) AS 货柜重
FROM      (SELECT   my_weight, no, po_no, name, qty, weight, CASE WHEN LEFT(name, 3) = '1.2' THEN '1.24' WHEN LEFT(name, 
                                 3) = '1.4' THEN '1.46' END AS thick, CASE WHEN name LIKE '%PU%' OR
                                 name LIKE '%action%' OR
                                 name LIKE N'%榔%' THEN 'PU' ELSE '反毛' END AS 品名
                 FROM      RT_SHIP_DAILY_SJ_VN) AS p
GROUP BY 品名, thick) as q"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv2.DataSource = dt




            '            sql = "select 品名,thick as 厚度, cast(sum(qty_sf) as numeric(10,1)) as 尺数,sum(weight) as 净重 from (SELECT   no, po_no, no1, m_no, name, ltrim(thick) as thick, color, qty_sf, no2, p, nw, gw,cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *nw as numeric(10,1)) as weight,case when name like '%PU%' or name like N'%纹%'  or name like '%action%' or name like N'%榔%' then 'pu' else '反毛' end as 品名
            'FROM      RT_SHIP_DAILY_JH) as p  group by 品名,thick"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            'dgv3.DataSource = dt
















        ElseIf OpenFileDialog1.SafeFileName Like "*上杰*" Then         '----------------------------------------------------------------------------------上杰


            sql = "delete from rt_ship_daily_sj"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            xlSheet = xlApp.Workbooks(1).Worksheets(1)

            Dim y As Integer = 0
            For y = 14 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A14:N" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then
            xlApp.Selection.UnMerge
            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            ' End If

            Dim my_no As String
            Dim my_nw As Double
            Dim my_gw As Double
            Dim my_sf As Double
            Dim my_price As Double
            Dim s1 As Integer = 1
            For y = 14 To y - 1

                If Not (xlSheet.Cells(y, 10).value Is Nothing) Then

                    If (xlSheet.Cells(y, 6).value Is Nothing) And (xlSheet.Cells(y, 7).value Is Nothing) Then
                        my_nw = xlSheet.Cells(y - 1, 6).value
                        my_gw = xlSheet.Cells(y - 1, 7).value
                        my_no = xlSheet.Cells(y - 1, 1).value


                    Else
                        my_nw = xlSheet.Cells(y, 6).value
                        my_gw = xlSheet.Cells(y, 7).value
                        my_no = xlSheet.Cells(y, 1).value


                    End If
                    my_sf = xlSheet.Cells(y, 3).value
                    my_price = xlSheet.Cells(y, 12).value
                    sql = "insert into rt_ship_daily_sj (filename,serial,order_item,no,name,qty_sf,nw,gw,po_no,qty_sf1,unit_price) values
                          (N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & my_sf & "," & my_nw & "," & my_gw & ",N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 10).value & "," & my_price & ")"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                End If

            Next


            '            sql = "select 品名,cast(sum(淨重) as numeric(10,1)) as 淨重 from (select case when 品名 like '%PU%' or 品名 like '%action%' or 品名 like N'%榔%' then 'pu' else '反毛' end as 品名,淨重 from  (select name as 品名,sum(weight) as 淨重 from (SELECT   no, name, qty_sf1, nw,qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) AS Ratio, cast(qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) *nw as numeric(10,3)) as weight FROM      rt_ship_daily_sj) as p group by name) as q ) as qq group by 品名"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            '            dt.Columns.Add("尺数")
            '            dt.Columns.Add("货值")



            '            For rr As Integer = 0 To dt.Rows.Count - 1

            '                sql = "SELECT   CAST(SUM(qty_sf1) AS numeric(10, 1)) AS 呎數 FROM      (SELECT DISTINCT  no, name, CASE WHEN name LIKE '%PU%' OR  name LIKE '%action%' OR  name LIKE N'%榔%' THEN 'pu' ELSE '反毛' END AS 品名, qty_sf, unit, nw, gw, po_no, po_serial, qty_sf1, sku_no, order_month, supplier, type, unit_price, cbm  FROM      rt_ship_daily_sj) AS p
            'GROUP BY 品名 having 品名=N'" & dt.Rows(rr).Item("品名") & "'"
            '                cmd.CommandText = sql

            '                dt.Rows(rr).Item("尺数") = cmd.ExecuteScalar


            '            Next



            '            For rr As Integer = 0 To dt.Rows.Count - 1

            '                sql = "SELECT   CAST(SUM(qty_sf1 * unit_price) AS numeric(10, 3)) AS 金額 FROM      (SELECT DISTINCT no, name, CASE WHEN name LIKE '%PU%' OR name LIKE '%action%' OR name LIKE N'%榔%' THEN 'pu' ELSE '反毛' END AS 品名, qty_sf, unit, nw, gw, po_no, po_serial, qty_sf1, sku_no, order_month, supplier, type, unit_price, cbm                 FROM      rt_ship_daily_sj) AS p
            'GROUP BY 品名 having 品名=N'" & dt.Rows(rr).Item("品名") & "'"
            '                cmd.CommandText = sql

            '                dt.Rows(rr).Item("货值") = cmd.ExecuteScalar


            '            Next
            '            dgv1.DataSource = dt



            sql = "select 品名,po_no as 订购单号,厚度,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,cast(sum(unit_price*qty_sf1)/sum(qty_sf1) as numeric(10,2)) as 单价,cast(sum(unit_price*qty_sf1) as numeric(10,2)) as 货值,sum(净重) as 净重 from 
(SELECT   no, case when (name like '%PU%' or name like '%action%' or name like N'%榔%') AND name NOT LIKE '%tpu%'  then N'贴膜' else '反毛' end as 品名, nw, gw, po_no, qty_sf1, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
FROM      rt_ship_daily_sj) as p group by 品名,po_no,厚度"  '----旧

            sql = "select name as 品名 ,po_no as 订单号,order_item as 项次号,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,deli_no as 发货单号 from rt_ship_daily_sj group by name,po_no,order_item,deli_no "


            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd


            da.Fill(dt)


            dgv1.DataSource = dt


            dgv1.Columns("品名").Width = 300

            dgv1.Columns("订单号").Width = 180

            dgv1.Columns("项次号").Width = 80

            dgv1.Columns("尺数").Width = 120



            sql = "select 品名,颜色,厚度,sum(尺数) as 尺数,sum(货值) as 货值,sum(净重) as 净重 from (select 品名,颜色,po_no as 订购单号,厚度,sum(qty_sf1) as 尺数,sum(unit_price*qty_sf1)/sum(qty_sf1)  as 单价,sum(unit_price*qty_sf1) as 货值,sum(净重) as 净重 from 
(SELECT   no, case when (name like '%PU%' or name like '%action%' or name like N'%榔%') and name not like '%tpu%' then N'贴膜' else '反毛' end as 品名, case when name like '%黑色%' then '黑色' else '其他' end as 颜色, nw, gw, po_no, qty_sf1, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
FROM      rt_ship_daily_sj) as p group by 品名,po_no,厚度,颜色) as q group by 品名,颜色,厚度 order by 品名"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt





            sql = "select 品名,颜色,sum(尺数) as 尺数,sum(货值) as 货值,sum(净重) as 净重 from (select 品名,颜色,po_no as 订购单号,厚度,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,cast(sum(unit_price*qty_sf1)/sum(qty_sf1) as numeric(10,2)) as 单价,cast(sum(unit_price*qty_sf1) as numeric(10,2)) as 货值,sum(净重) as 净重 from 
(SELECT   no, case when (name like '%PU%' or name like '%action%' or name like N'%榔%') and name not like '%tpu%' then N'贴膜' else '反毛' end as 品名, case when name like '%黑色%' then '黑色' else '其他' end as 颜色, nw, gw, po_no, qty_sf1, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
FROM      rt_ship_daily_sj) as p group by 品名,po_no,厚度,颜色) as q group by 品名,颜色 order by 品名"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv3.DataSource = dt







        ElseIf OpenFileDialog1.SafeFileName Like "*永正货柜*" Then    '--------------------------------------------------------------------------永正货柜


            sql = "delete from rt_ship_uz_HG"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            xlSheet = xlApp.Workbooks(1).Worksheets(1)

            Dim y As Integer = 0
            For y = 14 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A14:N" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then


            xlApp.Selection.UnMerge
            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"
            '        End If


            Dim mc As Integer = 1
            For y = 14 To y - 1

                sql = "insert into rt_ship_uz_HG (no,name,qty_sf,nw,gw,po_no,qty_sf1,unit_price,serial) values('" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 5).value & "," & xlSheet.Cells(y, 6).value & ",N'" & xlSheet.Cells(y, 7).value & "'," & xlSheet.Cells(y, 9).value & "," & xlSheet.Cells(y, 14).value & "," & mc & ")"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

                mc = mc + 1

            Next


            '            sql = "select 品名,厚度,cast(sum(淨重) as numeric(10,1)) as 淨重 from (select case when 品名 like '%PU%' or 品名 like '%action%' or 品名 like N'%榔%' then 'pu' else '反毛' end as 品名,淨重,厚度 from  (select name as 品名, thick as 厚度,sum(weight) as 淨重 from (SELECT no, name,CASE WHEN name LIKE '%1.2%' THEN 1.24 ELSE 1.46 END AS thick, qty_sf1, nw,qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) AS Ratio, cast(qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) *nw as numeric(10,3)) as weight FROM      RT_Ship_UZ_HG) as p group by name,thick) as q ) as qq group by 品名,厚度"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            '            dt.Columns.Add("尺数")
            '            dt.Columns.Add("货值")



            '            For rr As Integer = 0 To dt.Rows.Count - 1

            '                sql = "SELECT   CAST(SUM(qty_sf1) AS numeric(10, 1)) AS 呎數 FROM      (SELECT DISTINCT  no, name, CASE WHEN name LIKE '%PU%' OR  name LIKE '%action%' OR  name LIKE N'%榔%' THEN 'pu' ELSE '反毛' END AS 品名, qty_sf, nw, gw, po_no, qty_sf1, unit_price  FROM      RT_Ship_UZ_HG) AS p
            'GROUP BY 品名 having 品名=N'" & dt.Rows(rr).Item("品名") & "'"
            '                cmd.CommandText = sql

            '                dt.Rows(rr).Item("尺数") = cmd.ExecuteScalar


            '            Next



            '            For rr As Integer = 0 To dt.Rows.Count - 1

            '                sql = "SELECT   CAST(SUM(qty_sf1 * unit_price) AS numeric(10, 3)) AS 金額 FROM      (SELECT DISTINCT  no, name, CASE WHEN name LIKE '%PU%' OR   name LIKE '%action%' OR  name LIKE N'%榔%' THEN 'pu' ELSE '反毛' END AS 品名, qty_sf,  nw, po_no, qty_sf1,unit_price           FROM      RT_Ship_UZ_HG) AS p
            'GROUP BY 品名 having 品名=N'" & dt.Rows(rr).Item("品名") & "'"
            '                cmd.CommandText = sql

            '                dt.Rows(rr).Item("货值") = cmd.ExecuteScalar


            '            Next
            '            dgv1.DataSource = dt



            sql = "select po_no as 订单号,品名 as 类别, 颜色,sum(qty_sf1) as 尺数,cast(sum(qty_sf1*单价)/sum(qty_sf1) as numeric(10,2)) as 单价 from (SELECT rt_ship_uz_hg.po_no, case when name like '%PU%' or name like '%action%' or name like N'%榔%' then '貼膜' else '反毛' end as 品名,case when name like '%黑色%' then '黑色' else '其他' end as 颜色,name,CASE WHEN name LIKE '%1.2%' THEN 1.24 ELSE 1.46 END AS thick, 
unit_price as 单价, qty_sf1, nw,qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) AS Ratio, cast(qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) *nw as numeric(10,3)) as weight FROM      RT_Ship_UZ_HG) as p group by po_no,品名,颜色"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv1.DataSource = dt


            dgv1.Columns(0).Width = 200
            dgv1.Columns(1).Width = 80
            dgv1.Columns(2).Width = 80













            sql = "select 类别,颜色,sum(尺数) as 尺数,cast(sum(货值)/sum(尺数) as numeric(10,2)) as 单价,cast(sum(货值) as numeric(10,2)) as 货值,sum(毛重) as  毛重,sum(净重) as 净重,sum(件数) as 件数 from
( select po_no as 订单号,类别,sum(nw) as 净重,sum(gw) as 毛重, 颜色,sum(qty_sf1) as 尺数,sum(qty_sf1*单价)as 货值,count(*) as 件数 from 
(SELECT rt_ship_uz_hg.po_no, case when name like '%PU%' or name like '%action%' or name like N'%榔%' then '貼膜' else '反毛' end as 类别,case when name like '%黑色%' then '黑色' else '其他' end as 颜色,name, 
unit_price as 单价, qty_sf1, nw, gw,qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) AS Ratio, cast(qty_sf1/SUM(qty_sf1) OVER (PARTITION BY no) *nw as numeric(10,3)) as weight FROM      RT_Ship_UZ_HG) as p group by po_no,类别,颜色) as q group by 类别,颜色 order by 类别"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt



            dgv2.Columns(0).Width = 70
            dgv2.Columns(1).Width = 70
            dgv2.Columns(2).Width = 120
            dgv2.Columns(3).Width = 70
            dgv2.Columns(4).Width = 120
            dgv2.Columns(5).Width = 120




            With dgv2.Columns("尺数").DefaultCellStyle
                .Format = "n2"
                .Alignment = DataGridViewContentAlignment.MiddleRight

            End With

            With dgv2.Columns("货值").DefaultCellStyle
                .Format = "n2"
                .Alignment = DataGridViewContentAlignment.MiddleRight

            End With

            With dgv2.Columns("净重").DefaultCellStyle
                .Format = "n2"
                .Alignment = DataGridViewContentAlignment.MiddleRight

            End With

            With dgv2.Columns("毛重").DefaultCellStyle
                .Format = "n2"
                .Alignment = DataGridViewContentAlignment.MiddleRight

            End With



















        ElseIf OpenFileDialog1.SafeFileName Like "永正发货*" Then   '-----------永正发货

            sql = "delete from rt_ship_daily_uz_1"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()

            xlSheet = xlApp.Workbooks(1).Worksheets(1)

            Dim y As Integer = 0
            For y = 14 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y

            yy = y - 1
            xlApp.Range("A14:q" & yy).Select()

            'If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge
            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"
            'End If

            Dim my_card As String
            Dim my_no As String
            Dim my_nw As String
            Dim my_gw As String
            Dim my_name As String
            Dim my_po As String
            Dim my_price As String
            Dim s1 As String = 1
            Dim my_skuno As String
            Dim my_order_item As String



            For y = 14 To y - 1


                If y = 14 Then

                    my_no = xlSheet.Cells(y, 1).value
                    my_order_item = xlSheet.Cells(y, 1).value
                    my_name = xlSheet.Cells(y, 2).value
                    my_card = xlSheet.Cells(y, 5).value
                    my_nw = xlSheet.Cells(y, 6).value
                    my_gw = xlSheet.Cells(y, 7).value
                    my_po = xlSheet.Cells(y, 8).value
                    my_skuno = xlSheet.Cells(y, 12).value


                End If


                If xlSheet.Cells(y, 1).value Is Nothing And xlSheet.Cells(y, 3).value Is Nothing And xlSheet.Cells(y, 8).value Is Nothing And xlSheet.Cells(y, 10).value Is Nothing Then

                Else

                    If xlSheet.Cells(y, 10).value Is Nothing Then

                    Else



                        If xlSheet.Cells(y, 3).value Is Nothing And xlSheet.Cells(y, 6).value Is Nothing And xlSheet.Cells(y, 7).value Is Nothing Then




                            my_name = xlSheet.Cells(y, 2).value
                            my_po = xlSheet.Cells(y, 8).value






                        Else
                            my_no = xlSheet.Cells(y, 1).value
                            my_name = xlSheet.Cells(y, 2).value
                            my_po = xlSheet.Cells(y, 8).value
                            my_nw = xlSheet.Cells(y, 6).value
                            my_gw = xlSheet.Cells(y, 7).value




                        End If

                        If xlSheet.Cells(y, 16).value Is Nothing Then
                            my_price = 0
                            ListBox2.Items.Add（my_no & "_" & my_name & "_" & xlSheet.Cells(y, 10).value & " 无单价"）
                        Else
                            my_price = xlSheet.Cells(y, 16).value
                        End If


                        If my_nw Is Nothing Then my_nw = 0
                        If my_gw Is Nothing Then my_gw = 0

                        sql = "insert into rt_ship_daily_uz_1 (order_item,filename,sku_no,serial,card,no,name,nw,gw,po_no,qty_sf1,unit_price) values('" & xlSheet.Cells(y, 9).value & "',N'" & file_name & "','" & my_skuno & "','" & s1 & "','" & xlSheet.Cells(y, 5).value & "','" & my_no & "',N'" & my_name & "'," & my_nw & "," & my_gw & ",'" & my_po & "'," & xlSheet.Cells(y, 10).value & "," & my_price & ")"


                        cmd.CommandText = sql
                        cmd.ExecuteScalar()
                        s1 = s1 + 1




                    End If
                End If


            Next


            sql = "select 品名,po_no as 订购单号,厚度,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,cast(sum(unit_price*qty_sf1)/sum(qty_sf1) as numeric(10,2)) as 单价,cast(sum(unit_price*qty_sf1) as numeric(10,2)) as 货值,sum(净重) as 净重 from 
(SELECT   no, case when name like '%PU%' or name like '%action%' or name like N'%榔%' then N'贴膜' else '反毛' end as 品名, nw, gw, po_no, qty_sf1, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
FROM      RT_SHIP_DAILY_UZ_1) as p group by 品名,po_no,厚度"  '----旧



            sql = "select name as 品名,po_no as 订单号,order_item as 项次号,cast(sum(qty_sf1) as numeric(10,1)) as 尺数 from rt_ship_daily_uz_1 group by name,po_no,order_item"



            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dt.Columns.Add("发货单号")


            dgv1.DataSource = dt


            dgv1.Columns("品名").Width = 300
            dgv1.Columns("订单号").Width = 120
            dgv1.Columns("项次号").Width = 80
            dgv1.Columns("尺数").Width = 120






            sql = "select 品名,厚度,sum(尺数) as 尺数,sum(货值) as 货值,sum(净重) as 净重 from (select 品名,po_no as 订购单号,厚度,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,cast(sum(unit_price*qty_sf1)/sum(qty_sf1) as numeric(10,2)) as 单价,cast(sum(unit_price*qty_sf1) as numeric(10,2)) as 货值,sum(净重) as 净重 from 
(SELECT   no, case when name like '%PU%' or name like '%action%' or name like N'%榔%' then N'贴膜' else '反毛' end as 品名, nw, gw, po_no, qty_sf1, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
FROM      RT_SHIP_DAILY_UZ_1) as p group by 品名,po_no,厚度) as q group by 品名,厚度 order by 品名"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt





            sql = "select 品名,sum(尺数) as 尺数,sum(货值) as 货值,sum(净重) as 净重 from (select 品名,po_no as 订购单号,厚度,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,cast(sum(unit_price*qty_sf1)/sum(qty_sf1) as numeric(10,2)) as 单价,cast(sum(unit_price*qty_sf1) as numeric(10,2)) as 货值,sum(净重) as 净重 from 
(SELECT   no, case when name like '%PU%' or name like '%action%' or name like N'%榔%' then N'贴膜' else '反毛' end as 品名, nw, gw, po_no, qty_sf1, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
FROM      RT_SHIP_DAILY_UZ_1) as p group by 品名,po_no,厚度) as q group by 品名 order by 品名"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv3.DataSource = dt





        ElseIf OpenFileDialog1.SafeFileName Like "*亿博样*" And Not (OpenFileDialog1.SafeFileName Like "*华盛*") Then

            sql = "delete from rt_ship_daily_yby"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value = "合计：" Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:i" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_yby (serial,filename,no,name,qty,nw,gw,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 5).value & "," & xlSheet.Cells(y, 6).value & ",'" & xlSheet.Cells(y, 7).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_YBy group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 350
            dgv1.Columns("订单号").Width = 150





        ElseIf OpenFileDialog1.SafeFileName Like "亿博*" And Not (OpenFileDialog1.SafeFileName Like "*亿博样*") Then


            sql = "delete from rt_ship_daily_yb"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value = "合计：" Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:i" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_yb (serial,filename,no,name,qty,nw,gw,po_no,unit_price) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 5).value & "," & xlSheet.Cells(y, 6).value & ",N'" & xlSheet.Cells(y, 7).value & "',0)"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_YB group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 350
            dgv1.Columns("订单号").Width = 150





            '            sql = "select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT   po_no as 订单号,name as 品名,case when name like '%PU%' or name like '%action%' or name like N'%榔%' or name like N'%virgin%' then 'PU' else '反毛' end as 类别, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
            'FROM      RT_SHIP_DAILY_YB) as p group by 订单号,类别,厚度"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            '            dgv2.DataSource = dt


            '            sql = "select 类别,sum(尺数),sum(净重) from (select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT  po_no as 订单号,name as 品名,case when name like '%PU%' or name like '%action%' or name like N'%榔%' or name like N'%virgin%' then 'PU' else '反毛' end as 类别, case when name like '%black%' then '黑色' else '其他' end as 颜色,    qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
            'FROM      RT_SHIP_DAILY_YB) as p group by 订单号,类别,厚度) as q group by 类别"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            '            dgv3.DataSource = dt




            '            sql = "select name as 品名,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(qty_sf*unit_price) as numeric(10,1)) as 总价,sum(weight) as 淨重 from (SELECT   no, name, color, qty_sf, gw1, po_no, unit_price, cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *gw1 as numeric(10,1)) as weight
            'FROM      RT_SHIP_DAILY_PUMA) as p group by name"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)










            'sql = ""


            'cmd.CommandText = sql
            'dt = New DataTable
            'da.SelectCommand = cmd
            'da.Fill(dt)


            'dgv2.DataSource = dt









        ElseIf OpenFileDialog1.SafeFileName Like "加和*" Then



            sql = "delete from rt_ship_daily_jh"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "加和" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next




            Dim y As Integer = 0
            For y = 4 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 5).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A4:m" & y - 1).Select()

            '  If xlApp.Selection.mergecells = True Then
            xlApp.Selection.UnMerge
            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"
            '     End If


            For y = 4 To y - 1

                sql = "insert into rt_ship_daily_jh (no1,po_no,m_no,name,thick,
color,qty_sf,nw,gw,no2) values('" &
                    xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 6).value &
                    "',N'" & xlSheet.Cells(y, 7).value & "'," & xlSheet.Cells(y, 8).value & "," & xlSheet.Cells(y, 11).value & "," & xlSheet.Cells(y, 12).value & "," & xlSheet.Cells(y, 10).value & ")"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next


            '            sql = "select po_no as 订单号,m_no as 料号,name as 品名, color as 颜色,thick as 厚度,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(weight) as numeric(10,1)) as 净重 from (SELECT   no1, po_no, no2, m_no, name, ltrim(thick) as thick, color, qty_sf, nw, gw,cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no1) *nw as numeric(10,1)) as weight
            '            FROM      RT_SHIP_DAILY_JH) as p group by po_no,m_no,name,color,thick"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)

            '            dgv1.DataSource = dt




            '            sql = "select po_no as 订单号,thick as 厚度,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(weight) as numeric(10,1)) as 净重 from (SELECT no1, po_no, no2, m_no, name, ltrim(thick) as thick, color, qty_sf, nw, gw,cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no1) *nw as numeric(10,1)) as weight FROM      RT_SHIP_DAILY_JH) as p group by po_no,thick"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)

            '            dgv2.DataSource = dt




            '            sql = "select 品名,thick as 厚度, cast(sum(qty_sf) as numeric(10,1)) as 尺数,sum(weight) as 净重 from (SELECT   no1, po_no, no2, m_no, name, ltrim(thick) as thick, color, qty_sf,  nw, gw,cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no1) *nw as numeric(10,1)) as weight,case when name like '%PU%' or name like N'%纹%'  or name like '%action%' or name like N'%榔%' then 'pu' else '反毛' end as 品名
            'FROM      RT_SHIP_DAILY_JH) as p  group by 品名,thick"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            '            dgv3.DataSource = dt



            sql = "SELECT   no1, po_no, no2, m_no, name, ltrim(thick) as thick, color, qty_sf,  nw, gw,cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no1) *nw as numeric(10,1)) as weight,
case when name like '%PU%' or name like N'%纹%'  or name like '%action%' or name like N'%榔%' then 'pu' else '反毛' end as 品名
             FROM      RT_SHIP_DAILY_JH"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv1.DataSource = dt






        ElseIf OpenFileDialog1.SafeFileName Like "吉兴*" Then



            sql = "delete from rt_ship_daily_JX"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            'For i = 1 To xlApp.Worksheets.Count


            '    If xlApp.Workbooks(1).Worksheets(i).name = "0" Then
            '        Exit For
            '    End If



            'Next


            xlSheet = xlApp.Workbooks(1).Worksheets(1)
            xlSheet.Activate()



            Dim y As Integer = 0
            For y = 8 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:u" & y - 1).Select()


            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"



            For y = 8 To y - 1

                sql = "insert into rt_ship_daily_jx (no,name,color,qty,nw,gw,po_no) values('" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 10).value & "'," & xlSheet.Cells(y, 13).value & "," & xlSheet.Cells(y, 17).value & "," & xlSheet.Cells(y, 20).value & ",N'" & xlSheet.Cells(y, 2).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next


            sql = "select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from 
(SELECT   po_no as 订单号,name as 品名,case when name like '%PU %' or name like '%action%' or name like N'%榔%' or name like N'%virgin%' then 'PU' else '反毛' end as 类别, qty as 数量,
cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价
FROM      RT_SHIP_DAILY_jx) as p group by 订单号,类别,厚度"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt




            sql = "select 类别,sum(尺数),sum(净重),sum(货值) from(select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from (SELECT   po_no as 订单号,name as 品名,case when name like '%PU %' or name like '% action %' or name like N'%榔%' or name like N'% virgin %' then 'PU' else '反毛' end as 类别, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价 FROM      RT_SHIP_DAILY_jx) as p group by 订单号,类别,厚度) as q group by 类别"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt


        ElseIf OpenFileDialog1.SafeFileName Like "*PEI HAI*" Then


            sql = "delete from rt_ship_daily_xbh"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value Is Nothing Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:J" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_xbh (serial,filename,no,name,qty,nw,gw,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 6).value & "," & xlSheet.Cells(y, 7).value & ",N'" & xlSheet.Cells(y, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_xbh group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 400
            dgv1.Columns("订单号").Width = 150



        ElseIf OpenFileDialog1.SafeFileName Like "*锐奇*" Then


            sql = "delete from rt_ship_daily_ruiqi"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value Is Nothing Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:h" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge




            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_ruiqi (serial,filename,no,name,qty,po_no,work_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 3).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 采购号,work_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_ruiqi group by po_no,name,work_no,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 300
            dgv1.Columns("采购号").Width = 150
            dgv1.Columns("订单号").Width = 200

        ElseIf OpenFileDialog1.SafeFileName Like "宏美*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "*HATAY*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "宏美*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "*亿博*" And OpenFileDialog1.SafeFileName Like "*华盛*" Then

            sql = "delete from rt_ship_daily_yby_huasheng"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "明细" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value = "合计：" Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:i" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_yby_huasheng (serial,filename,no,name,qty,nw,gw,po_no,thick) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 4).value & "," & xlSheet.Cells(y, 7).value & "," & xlSheet.Cells(y, 8).value & ",N'" & xlSheet.Cells(y, 9).value & "','" & xlSheet.Cells(y, 3).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from rt_ship_daily_yby_huasheng group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 350
            dgv1.Columns("订单号").Width = 150

        ElseIf OpenFileDialog1.SafeFileName Like "EVERGREE*" Then

            sql = "delete from rt_ship_daily_evergree"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value Is Nothing Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:J" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_evergree (serial,filename,no,name,qty,nw,gw,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 6).value & "," & xlSheet.Cells(y, 7).value & ",N'" & xlSheet.Cells(y, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_evergree group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 400
            dgv1.Columns("订单号").Width = 150
        ElseIf OpenFileDialog1.SafeFileName Like "*THANH*" Then

            sql = "delete from rt_ship_daily_thanhhu"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value Is Nothing Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:J" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_thanhhu (serial,filename,no,name,qty,nw,gw,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 6).value & "," & xlSheet.Cells(y, 7).value & ",N'" & xlSheet.Cells(y, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_thanhhu group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 400
            dgv1.Columns("订单号").Width = 150





        ElseIf OpenFileDialog1.SafeFileName Like "PROPER*" Then

            sql = "delete from rt_ship_daily_PROPERWELL"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value Is Nothing Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:J" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_PROPERWELL (serial,filename,no,name,qty,nw,gw,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 5).value & "," & xlSheet.Cells(y, 6).value & ",N'" & xlSheet.Cells(y, 7).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_PROPERWELL group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 400
            dgv1.Columns("订单号").Width = 150

        ElseIf OpenFileDialog1.SafeFileName Like "*STELLA*" Then
            sql = "delete from rt_ship_daily_STELLA"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 0
            Dim my_no As Integer


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If xlSheet.Cells(y, 2).value Is Nothing Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:J" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            'End If


            s1 = 1
            For y = 2 To y - 1




                If xlSheet.Cells(y, 1).value Is Nothing Then

                Else
                    my_no = xlSheet.Cells(y, 1).value
                End If



                sql = "insert into rt_ship_daily_stella (serial,filename,no,name,qty,nw,gw,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 6).value & "," & xlSheet.Cells(y, 7).value & ",N'" & xlSheet.Cells(y, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


            sql = "select 订单号,cast(sum(数量) as numeric(10,1)) as 尺数,sum(重量) as 净重,厚度 from (SELECT po_no as 订单号,name as 品名, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度
FROM      RT_SHIP_DAILY_YB ) as p  group by 订单号,厚度" '旧

            sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号  from RT_SHIP_DAILY_stella group by po_no,name,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 400
            dgv1.Columns("订单号").Width = 150

        ElseIf OpenFileDialog1.SafeFileName Like "*HATAY*" Then



            sql = "delete from rt_ship_daily_HATAY"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            'For i = 1 To xlApp.Worksheets.Count


            '    If xlApp.Workbooks(1).Worksheets(i).name = "0" Then
            '        Exit For
            '    End If



            'Next


            xlSheet = xlApp.Workbooks(1).Worksheets(1)
            xlSheet.Activate()



            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:j" & y - 1).Select()


            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"



            For y = 2 To y - 1

                sql = "insert into rt_ship_daily_HATAY (no,name,qty,nw,gw,po_no) values('" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 5).value & "," & xlSheet.Cells(y, 6).value & ",N'" & xlSheet.Cells(y, 7).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next


            sql = "select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from 
(SELECT   po_no as 订单号,name as 品名,case when name like '%PU %' or name like '%action%' or name like N'%榔%' or name like N'%virgin%' then 'PU' else '反毛' end as 类别, qty as 数量,
cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价
FROM      RT_SHIP_DAILY_HATAY) as p group by 订单号,类别,厚度"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt




            sql = "select 类别,sum(尺数),sum(净重),sum(货值) from(select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from (SELECT   po_no as 订单号,name as 品名,case when name like '%PU %' or name like '% action %' or name like N'%榔%' or name like N'% virgin %' then 'PU' else '反毛' end as 类别, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价 FROM      RT_SHIP_DAILY_HATAY) as p group by 订单号,类别,厚度) as q group by 类别"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt




        ElseIf OpenFileDialog1.SafeFileName Like "东治*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "东家*" Then


            sql = "delete from rt_ship_daily_dj"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "0" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 7).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:K" & y - 1).Select()


            xlApp.Selection.UnMerge


            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"



            For y = 2 To y - 1

                sql = "insert into rt_ship_daily_dj (no,name,qty,nw,gw,po_no,unit_price) values('" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 5).value & "," & xlSheet.Cells(y, 6).value & ",N'" & xlSheet.Cells(y, 7).value & "'," & xlSheet.Cells(y, 10).value & ")"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next


            sql = "select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from 
(SELECT   po_no as 订单号,name as 品名,case when name like '%PU%' or name like '%action%' or name like N'%榔%' or name like N'%virgin%' then 'PU' else '反毛' end as 类别, qty as 数量,
cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价
FROM      RT_SHIP_DAILY_dj) as p group by 订单号,类别,厚度"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt




            sql = "select 类别,sum(尺数),sum(净重),sum(货值) from(select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from (SELECT   po_no as 订单号,name as 品名,case when name like '%PU%' or name like '%action%' or name like N'%榔%' or name like N'%virgin%' then 'PU' else '反毛' end as 类别, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价 FROM      RT_SHIP_DAILY_dj) as p group by 订单号,类别,厚度) as q group by 类别"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt







            '            sql = "select name as 品名,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(qty_sf*unit_price) as numeric(10,1)) as 总价,sum(weight) as 淨重 from (SELECT   no, name, color, qty_sf, gw1, po_no, unit_price, cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *gw1 as numeric(10,1)) as weight
            'FROM      RT_SHIP_DAILY_PUMA) as p group by name"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)










            'sql = ""


            'cmd.CommandText = sql
            'dt = New DataTable
            'da.SelectCommand = cmd
            'da.Fill(dt)


            'dgv2.DataSource = dt







        ElseIf OpenFileDialog1.SafeFileName Like "*威弘*" Then




            sql = "delete from rt_ship_daily_wh"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()

            Dim s1 As Integer = 1
            Dim s11 As Integer = 1001



            For i = 1 To xlApp.Worksheets.Count


                xlSheet = xlApp.Worksheets(i)
                xlSheet.Activate()



                Dim y As Integer
                For y = xlApp.Workbooks(1).Worksheets(i).UsedRange.Rows.Count To 3 Step -1

                    If xlSheet.Cells(y, 1).value = Nothing Then
                        GoTo OK2
                    End If

                    If xlSheet.Cells(y, 1).value.ToString = "数量合计" Then
                        Exit For
                    End If
OK2:

                Next y

                Dim yyy As Integer

                For yyy = 3 To xlApp.Workbooks(1).Worksheets(i).UsedRange.Rows.Count

                    If xlSheet.Cells(yyy, 14).value = "制  表" Then
                        Exit For
                    End If


                Next yyy







                xlSheet.Range("A3:A" & y - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"

                xlSheet.Range("c4:g" & y - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"


                xlSheet.Range("k3:k" & yyy - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"


                If xlSheet.Range("N3:Q" & yyy - 1).MergeCells.ToString <> "False" Then

                    xlSheet.Range("N3:Q" & yyy - 1).Select()

                    xlApp.Selection.UnMerge
                    'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                    'xlApp.CutCopyMode = False
                    'xlApp.Selection.FormulaR1C1 = "=R[-1]C"



                End If


                Dim my_no As String
                Dim my_po As String
                Dim my_work As String
                Dim my_color As String
                Dim my_thick As String
                Dim my_no1 As String
                Dim my_po1 As String
                Dim my_work1 As String
                Dim my_color1 As String
                Dim my_thick1 As String
                Dim my_card As String


                For y = 3 To y - 1




                    If xlSheet.Cells(y, 2).value = Nothing And xlSheet.Cells(y, 4).value = Nothing And xlSheet.Cells(y, 5).value = Nothing And xlSheet.Cells(y, 6).value = Nothing And xlSheet.Cells(y, 7).value = Nothing Then
                        ' Exit For
                    Else
                        If xlSheet.Cells(y, 2).value Is Nothing Then
                        Else
                            If xlSheet.Cells(y, 4).VALUE Is Nothing Then

                                If xlSheet.Cells(y, 1).value Is Nothing Then

                                Else
                                    my_no = xlSheet.Cells(y, 1).value
                                End If



                                sql = "insert into rt_ship_daily_wh (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 3).value & "','" & s1 & "','" & my_no & "'," & xlSheet.Cells(y, 2).value & ",N'" & my_po & "',N'" & my_work & "',N'" & my_color & "','" & my_thick & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s1 = s1 + 1

                            Else

                                If xlSheet.Cells(y, 1).value Is Nothing Then

                                Else
                                    my_no = xlSheet.Cells(y, 1).value
                                End If


                                my_po = xlSheet.Cells(y, 4).value
                                my_work = xlSheet.Cells(y, 5).value
                                my_color = xlSheet.Cells(y, 6).value
                                my_thick = xlSheet.Cells(y, 7).value

                                sql = "insert into rt_ship_daily_wh (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 3).value & "','" & s1 & "','" & my_no & "'," & xlSheet.Cells(y, 2).value & ",N'" & my_po & "',N'" & my_work & "',N'" & my_color & "','" & my_thick & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s1 = s1 + 1

                            End If
                        End If
                    End If



                    If xlSheet.Cells(y, 12).value = Nothing And xlSheet.Cells(y, 14).value = Nothing And xlSheet.Cells(y, 15).value = Nothing And xlSheet.Cells(y, 16).value = Nothing And xlSheet.Cells(y, 17).value = Nothing Then

                        '  Exit For
                    Else

                        If xlSheet.Cells(y, 12).value Is Nothing Then
                        Else

                            If xlSheet.Cells(y, 14).VALUE Is Nothing Then
                                If xlSheet.Cells(y, 11).value Is Nothing Then
                                Else
                                    my_no1 = xlSheet.Cells(y, 11).value
                                End If
                                sql = "insert into rt_ship_daily_wh (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 13).value & "','" & s11 & "','" & my_no1 & "'," & xlSheet.Cells(y, 12).value & ",N'" & my_po1 & "',N'" & my_work1 & "',N'" & my_color1 & "','" & my_thick1 & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s11 = s11 + 1

                            Else
                                If xlSheet.Cells(y, 11).value Is Nothing Then
                                Else
                                    my_no1 = xlSheet.Cells(y, 11).value
                                End If

                                my_po1 = xlSheet.Cells(y, 14).value
                                my_work1 = xlSheet.Cells(y, 15).value
                                my_color1 = xlSheet.Cells(y, 16).value
                                my_thick1 = xlSheet.Cells(y, 17).value

                                sql = "insert into rt_ship_daily_wh (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 13).value & "','" & s11 & "','" & my_no1 & "'," & xlSheet.Cells(y, 12).value & ",N'" & my_po1 & "',N'" & my_work1 & "',N'" & my_color1 & "','" & my_thick1 & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s11 = s11 + 1

                            End If



                        End If


                        'sql = "insert into rt_ship_076_1 (no,sf,order_no,i_no,color,thick) values('" & my_no1 & "'," & xlSheet.Cells(y, 10).value & ",N'" & my_po1 & "',N'" & my_work1 & "',N'" & my_color1 & "','" & my_thick1 & "')"
                        'cmd.CommandText = sql
                        'cmd.ExecuteScalar()


                    End If



                Next



            Next




            sql = "SELECT   order_no AS 订单号, i_no AS 指令号, color AS 颜色, thick AS 厚度, cast(SUM(sf) as numeric(10,1)) AS 尺数,deli_no as 发货单号 FROM      RT_ship_daily_wh GROUP BY order_no, i_no, color, thick,deli_no ORDER BY 订单号, 指令号, 颜色"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)
            dgv1.DataSource = dt

            'dt.Columns.Add("尺数")
            'dt.Columns.Add("货值")

            sql = "SELECT   订单类别, 厚度, SUM(尺数) AS 尺数, 类别
FROM      (SELECT   CASE WHEN LEFT(order_no, 2) 
                                 = 'RT' THEN N'人民币' WHEN order_no LIKE 'SX%' THEN '美元' ELSE order_no END AS 订单类别, 
                                 i_no AS 指令号, color AS 颜色, thick AS 厚度, CAST(SUM(sf) AS numeric(10, 1)) AS 尺数, 
                                 CASE WHEN color LIKE '%pu%' OR
                                 color LIKE '%action%' OR
                                 color LIKE N'%纹%' THEN 'PU' ELSE '反毛' END AS 类别
                 FROM      RT_ship_daily_wh
                 GROUP BY order_no, i_no, color, thick) AS p
GROUP BY 订单类别, 厚度, 类别
ORDER BY 订单类别"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)
            dgv2.DataSource = dt


            sql = "SELECT   订单类别, SUM(尺数) AS 尺数, 类别
FROM      (SELECT   CASE WHEN LEFT(order_no, 2) 
                                 = 'RT' THEN N'人民币' WHEN order_no LIKE 'SX%' THEN '美元' ELSE order_no END AS 订单类别, 
                                 i_no AS 指令号, color AS 颜色, thick AS 厚度, CAST(SUM(sf) AS numeric(10, 1)) AS 尺数, 
                                 CASE WHEN color LIKE '%pu%' OR
                                 color LIKE '%action%' OR
                                 color LIKE N'%纹%' THEN 'PU' ELSE '反毛' END AS 类别
                 FROM      RT_ship_daily_wh
                 GROUP BY order_no, i_no, color, thick) AS p
GROUP BY 订单类别, 类别 ORDER BY 订单类别"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)
            dgv3.DataSource = dt





        ElseIf OpenFileDialog1.SafeFileName Like "SAMIL*" Then




            sql = "delete from rt_ship_daily_samil"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            Dim s1 As Integer = 1


            'For i = 1 To xlApp.Worksheets.Count


            '    If xlApp.Workbooks(1).Worksheets(i).name = "0" Then
            '        Exit For
            '    End If



            'Next


            xlSheet = xlApp.Workbooks(1).Worksheets(1)
            xlSheet.Activate()


            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y

            xlApp.Range("A2:j" & y - 1).Select()

            xlApp.Selection.UnMerge

            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"


            For y = 2 To y - 1

                sql = "insert into rt_ship_daily_samil (serial,filename,card,no,name,qty,nw,gw,po_no) values('" & s1 & "',N'" & file_name & "','" & xlSheet.Cells(y, 6).value & "','" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & xlSheet.Cells(y, 7).value & "," & xlSheet.Cells(y, 8).value & ",N'" & xlSheet.Cells(y, 9).value.ToString.Replace("'", "''") & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next


            sql = "select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from 
(SELECT   po_no as 订单号,name as 品名,case when name like '%PU %' or name like '%action%' or name like N'%榔%' or name like N'%virgin%' then 'PU' else '反毛' end as 类别, qty as 数量,
cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价
FROM      RT_SHIP_DAILY_samil) as p group by 订单号,类别,厚度" '旧


            sql = "select name as 品名,po_no as 订单号,cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号 from rt_ship_daily_samil group by name,po_no,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 350
            dgv1.Columns("订单号").Width = 180





            sql = "select 类别,sum(尺数),sum(净重),sum(货值) from(select 订单号,类别,cast(sum(数量) as numeric(10,1)) as 尺数,cast(sum(数量*单价) as numeric(10,3)) as  货值,sum(重量) as 净重,厚度 from (SELECT   po_no as 订单号,name as 品名,case when name like '%PU %' or name like '% action %' or name like N'%榔%' or name like N'% virgin %' then 'PU' else '反毛' end as 类别, qty as 数量,cast(qty/SUM(qty) OVER (PARTITION BY no) *nw as numeric(10,1)) as 重量,case when left(ltrim(name),3)='1.2' then left(ltrim(name),3) +'4' else '1.46' end as 厚度,unit_price as 单价 FROM      RT_SHIP_DAILY_samil) as p group by 订单号,类别,厚度) as q group by 类别"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt






        ElseIf OpenFileDialog1.SafeFileName Like "宏福*" Then                 '-----------------PUMA



            Dim conn1 As New SqlConnection
            conn1.ConnectionString = connstring
            conn1.Open()
            Dim cmd1 As New SqlCommand
            cmd1.Connection = conn1
            Dim dr As SqlDataReader



            sql = "delete from rt_ship_daily_puma"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "1" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If



            Next






            Dim y As Integer = 0
            For y = 4 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A4:v" & y - 1).Select()
            'If xlApp.Selection.mergecells = True Then

            xlApp.Selection.UnMerge
            xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            xlApp.CutCopyMode = False
            xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            ' End If

            For y = 4 To y - 1

                sql = "insert into rt_ship_daily_puma (no,name,color,qty_sf,gw1,po_no,unit_price) values('" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 4).value & "'," & xlSheet.Cells(y, 5).value & "," & xlSheet.Cells(y, 12).value & ",N'" & xlSheet.Cells(y, 14).value & "',N'" & xlSheet.Cells(y, 20).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next


            sql = "select name as 品名,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(qty_sf*unit_price) as numeric(10,2)) as 货值,po_no as 订单号,sum(重量) as 毛重, sum(袋重) as 袋重,sum(重量)-sum(袋重) as 净重 from
(select no,name,qty_sf,unit_price,po_no,gw1,cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *gw1 as numeric(10,2)) as 重量,cast(pa/SUM(pa)  OVER (PARTITION BY no)*0.1 as numeric(10,2)) as 袋重 from 
(select no,name,color,qty_sf,unit_price,po_no,gw1,cast(count as numeric(10,1)) as pa from 
(SELECT   no, name,case when name<>'' then 1 end as count, color, qty_sf, gw1, po_no, unit_price, cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *gw1 as numeric(10,1)) as weight
FROM      RT_SHIP_DAILY_PUMA) as r) as s) as t group by name,po_no order by 品名,po_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt




            sql = "select 品名,sum(尺数) as 尺数,cast(sum(净重) as numeric(10,1)) as 淨重 from(select case when (品名 like '%PU%' or 品名 like '%action%' or 品名 like N'%榔%') and 品名 not like '%puma%' then 'pu' else '反毛' end as 品名,尺数,净重 from 
(select name as 品名,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(qty_sf*unit_price) as numeric(10,2)) as 货值,po_no as 订单号,sum(重量) as 毛重, sum(袋重) as 袋重,sum(重量)-sum(袋重) as 净重 from
(select no,name,qty_sf,unit_price,po_no,gw1,cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *gw1 as numeric(10,2)) as 重量,cast(pa/SUM(pa)  OVER (PARTITION BY no)*0.1 as numeric(10,3)) as 袋重 from 
(select no,name,color,qty_sf,unit_price,po_no,gw1,cast(count as numeric(10,2)) as pa from 
(SELECT   no, name,case when name<>'' then 1 end as count, color, qty_sf, gw1, po_no, unit_price, cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *gw1 as numeric(10,2)) as weight
FROM      RT_SHIP_DAILY_PUMA) as r) as s) as t group by name,po_no) as u) as v group by 品名"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv2.DataSource = dt






            '            sql = "select name as 品名,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(qty_sf*unit_price) as numeric(10,1)) as 总价,sum(weight) as 淨重 from (SELECT   no, name, color, qty_sf, gw1, po_no, unit_price, cast(qty_sf/SUM(qty_sf) OVER (PARTITION BY no) *gw1 as numeric(10,1)) as weight
            'FROM      RT_SHIP_DAILY_PUMA) as p group by name"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)










            'sql = ""


            'cmd.CommandText = sql
            'dt = New DataTable
            'da.SelectCommand = cmd
            'da.Fill(dt)


            'dgv2.DataSource = dt



        ElseIf OpenFileDialog1.SafeFileName Like "HATAY*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "穎億*" Then



            sql = "delete from rt_ship_daily_yy"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "0" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If
            Next

            Dim y As Integer = 0
            For y = 2 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            'xlApp.Range("A2:k" & y - 1).Select()
            ''If xlApp.Selection.mergecells = True Then

            'xlApp.Selection.UnMerge
            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            For y = 2 To y - 1

                sql = "insert into rt_ship_daily_yy (filename,no,name,pcs,qty,unit,
                                                nw,gw,po_no,work_no,supplier,coin) values(N'" & file_name & "','" &
                    xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 3).value & "','" & xlSheet.Cells(y, 4).value & "','" &
                    xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 6).value & "','" & xlSheet.Cells(y, 7).value & "','" &
                    xlSheet.Cells(y, 8).value & "','" & xlSheet.Cells(y, 9).value & "',N'" & xlSheet.Cells(y, 10).value & "','" &
                    xlSheet.Cells(y, 11).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next

            sql = "select name as 品名,cast(sum(qty) as numeric(10,1)) as 尺数,po_no as 订单号,work_no as 指令号,deli_no as 发货单号 from rt_ship_daily_yy group by name,po_no,work_no,deli_no"

            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 350
            dgv1.Columns("指令号").Width = 250









        ElseIf OpenFileDialog1.SafeFileName Like "澳孚*" Then

            sql = "delete from rt_ship_daily_af"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()


            xlSheet = xlApp.Workbooks(1).Worksheets(1)

            Dim y As Integer = 0
            For y = 2 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 2).value) < 1 Then
                    Exit For
                End If

            Next y


            xlApp.Range("A2:l" & y - 1).Select()
            ' If xlApp.Selection.mergecells = True Then
            xlApp.Selection.UnMerge
            'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
            'xlApp.CutCopyMode = False
            'xlApp.Selection.FormulaR1C1 = "=R[-1]C"

            ' End If

            Dim my_no As String
            Dim my_nw As Double
            Dim my_gw As Double
            Dim my_sf As Double
            Dim my_price As Double

            Dim s1 As Integer = 0

            For y = 2 To y - 1

                If Not (xlSheet.Cells(y, 9).value Is Nothing) Then

                    If (xlSheet.Cells(y, 5).value Is Nothing) And (xlSheet.Cells(y, 6).value Is Nothing) Then
                        my_nw = xlSheet.Cells(y - 1, 5).value
                        my_gw = xlSheet.Cells(y - 1, 6).value
                        my_no = xlSheet.Cells(y - 1, 1).value


                    Else
                        my_nw = xlSheet.Cells(y, 5).value
                        my_gw = xlSheet.Cells(y, 6).value
                        my_no = xlSheet.Cells(y, 1).value


                    End If
                    my_sf = xlSheet.Cells(y, 3).value
                    my_price = xlSheet.Cells(y, 11).value
                    sql = "insert into rt_ship_daily_af (filename,serial,no,name,qty_sf,nw,gw,
                                                        po_no,work_no,unit_price) values(N'" & file_name & "','" & s1 & "','" &
                        my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & my_sf & "," & my_nw & "," & my_gw & ",N'" &
                        xlSheet.Cells(y, 8).value & "','" & xlSheet.Cells(y, 9).value & "','" & my_price & "')"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                End If

            Next


            sql = "select 品名,po_no as 订购单号,厚度,cast(sum(qty_sf) as numeric(10,1)) as 尺数,cast(sum(unit_price*qty_sf)/sum(qty_sf) as numeric(10,2)) as 单价,cast(sum(unit_price*qty_sf) as numeric(10,2)) as 货值,sum(净重) as 净重 from 
(SELECT   no, case when (name like '%PU%' or name like '%action%' or name like N'%榔%') AND name NOT LIKE '%tpu%'  then N'贴膜' else '反毛' end as 品名, nw, gw, po_no, qty_sf, unit_price,case when name like '%1.2%' then '1.24' 
when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf/sum(qty_sf) over (partition by no) *nw as numeric(10,1)) as 净重 FROM      rt_ship_daily_af) as p group by 品名,po_no,厚度" '旧


            sql = "select name as 品名,po_no as 订单号,work_no as 指令号,sum(qty_sf) as 尺数,deli_no as 发货单号 from rt_ship_daily_af group by name,po_no,work_no,deli_no"


            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)


            dgv1.DataSource = dt

            dgv1.Columns("品名").Width = 250
            dgv1.Columns("指令号").Width = 150



            '            sql = "select 品名,颜色,厚度,sum(尺数) as 尺数,sum(货值) as 货值,sum(净重) as 净重 from (select 品名,颜色,po_no as 订购单号,厚度,sum(qty_sf1) as 尺数,sum(unit_price*qty_sf1)/sum(qty_sf1)  as 单价,sum(unit_price*qty_sf1) as 货值,sum(净重) as 净重 from 
            '(SELECT   no, case when (name like '%PU%' or name like '%action%' or name like N'%榔%') and name not like '%tpu%' then N'贴膜' else '反毛' end as 品名, case when name like '%黑色%' then '黑色' else '其他' end as 颜色, nw, gw, po_no, qty_sf, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
            'FROM      rt_ship_daily_sj) as p group by 品名,po_no,厚度,颜色) as q group by 品名,颜色,厚度 order by 品名"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            '            dgv2.DataSource = dt





            '            sql = "select 品名,颜色,sum(尺数) as 尺数,sum(货值) as 货值,sum(净重) as 净重 from (select 品名,颜色,po_no as 订购单号,厚度,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,cast(sum(unit_price*qty_sf1)/sum(qty_sf1) as numeric(10,2)) as 单价,cast(sum(unit_price*qty_sf1) as numeric(10,2)) as 货值,sum(净重) as 净重 from 
            '(SELECT   no, case when (name like '%PU%' or name like '%action%' or name like N'%榔%') and name not like '%tpu%' then N'贴膜' else '反毛' end as 品名, case when name like '%黑色%' then '黑色' else '其他' end as 颜色, nw, gw, po_no, qty_sf1, unit_price,case when name like '%1.2%' then '1.24' when name like '%1.4%' then '1.46' else '1.24' end as 厚度,cast(qty_sf1/sum(qty_sf1) over (partition by no) *nw as numeric(10,1)) as 净重
            'FROM      rt_ship_daily_sj) as p group by 品名,po_no,厚度,颜色) as q group by 品名,颜色 order by 品名"

            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)


            '            dgv3.DataSource = dt











        ElseIf OpenFileDialog1.SafeFileName Like "极路客*" Then    '--------------------------------------------极路客



            sql = "delete from rt_ship_daily_jlk"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()

            Dim s1 As Integer = 1
            Dim s11 As Integer = 1001



            For i = 1 To xlApp.Worksheets.Count


                xlSheet = xlApp.Worksheets(i)
                xlSheet.Activate()



                Dim y As Integer
                For y = xlApp.Workbooks(1).Worksheets(i).UsedRange.Rows.Count To 3 Step -1

                    If xlSheet.Cells(y, 1).value = Nothing Then
                        GoTo OK3
                    End If

                    If xlSheet.Cells(y, 1).value.ToString = "重量总计:" Then
                        Exit For
                    End If


                Next y

OK3:

                Dim yyy As Integer

                For yyy = 3 To xlApp.Workbooks(1).Worksheets(i).UsedRange.Rows.Count

                    If xlSheet.Cells(yyy, 10).value = "数量总计:" Then
                        Exit For
                    End If


                Next yyy


                xlSheet.Range("A4:A" & y - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"

                xlSheet.Range("d4:e" & y - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"


                xlSheet.Range("j3:k" & yyy - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"


                'If xlSheet.Range("N3:Q" & yyy - 1).MergeCells.ToString <> "False" Then

                '    xlSheet.Range("N3:Q" & yyy - 1).Select()

                '    xlApp.Selection.UnMerge
                '    'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                '    'xlApp.CutCopyMode = False
                '    'xlApp.Selection.FormulaR1C1 = "=R[-1]C"



                'End If


                Dim my_no As String
                Dim my_po As String
                Dim my_work As String
                Dim my_color As String
                Dim my_thick As String
                Dim my_no1 As String
                Dim my_po1 As String
                Dim my_work1 As String
                Dim my_color1 As String
                Dim my_thick1 As String
                Dim my_card As String


                For y = 4 To y - 1


                    If y = 4 Then


                        my_no = xlSheet.Cells(y, 1).value
                        my_color = xlSheet.Cells(y, 4).value
                        my_thick = xlSheet.Cells(y, 5).value

                        my_no1 = xlSheet.Cells(y, 7).value
                        my_color1 = xlSheet.Cells(y, 10).value
                        my_thick1 = xlSheet.Cells(y, 11).value




                    End If





                    If xlSheet.Cells(y, 2).value = Nothing And xlSheet.Cells(y, 4).value = Nothing And xlSheet.Cells(y, 5).value = Nothing Then
                        ' Exit For
                    Else
                        If xlSheet.Cells(y, 2).value Is Nothing Then
                        Else

                            If xlSheet.Cells(y, 1).value Is Nothing Then

                            Else
                                my_no = xlSheet.Cells(y, 1).value
                            End If




                            If xlSheet.Cells(y, 4).value Is Nothing And xlSheet.Cells(y, 5).value Is Nothing Then
                            Else


                                my_color = xlSheet.Cells(y, 4).value
                                my_thick = xlSheet.Cells(y, 5).value


                            End If




                            sql = "insert into rt_ship_daily_jlk (filename,card,serial,no,qty,color,thick) values(N'" &
                                file_name & "','" & xlSheet.Cells(y, 3).value & "','" & s1 & "','" & my_no & "','" & xlSheet.Cells(y, 2).value & "',N'" & my_color & "','" & my_thick & "')"
                            cmd.CommandText = sql
                            cmd.ExecuteScalar()
                            s1 = s1 + 1


                        End If
                    End If







                    If xlSheet.Cells(y, 8).value = Nothing And xlSheet.Cells(y, 10).value = Nothing And xlSheet.Cells(y, 11).value = Nothing Then
                        ' Exit For
                    Else
                        If xlSheet.Cells(y, 8).value Is Nothing Then
                        Else

                            If xlSheet.Cells(y, 7).value Is Nothing Then

                            Else
                                my_no1 = xlSheet.Cells(y, 7).value
                            End If




                            If xlSheet.Cells(y, 10).value Is Nothing And xlSheet.Cells(y, 11).value Is Nothing Then
                            Else


                                my_color1 = xlSheet.Cells(y, 10).value
                                my_thick1 = xlSheet.Cells(y, 11).value




                            End If




                            sql = "insert into rt_ship_daily_jlk (filename,card,serial,no,qty,color,thick) values(N'" &
                                file_name & "','" & xlSheet.Cells(y, 9).value & "','" & s11 & "','" & my_no1 & "','" & xlSheet.Cells(y, 8).value & "',N'" & my_color1 & "','" & my_thick1 & "')"
                            cmd.CommandText = sql
                            cmd.ExecuteScalar()
                            s11 = s11 + 1



                        End If
                    End If







                Next



            Next




            sql = "SELECT   color as 颜色,thick as 厚度,sum(qty) as 尺数,DELE_NO AS 发货单号 from rt_ship_daily_jlk group by color,thick,DELI_NO "
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)



            dgv1.DataSource = dt

            'dt.Columns.Add("尺数")
            'dt.Columns.Add("货值")

            '            sql = "SELECT   订单类别, 厚度, SUM(尺数) AS 尺数, 类别
            'FROM      (SELECT   CASE WHEN LEFT(order_no, 2) 
            '                                 = 'RT' THEN N'人民币' WHEN order_no LIKE 'SX%' THEN '美元' ELSE order_no END AS 订单类别, 
            '                                 i_no AS 指令号, color AS 颜色, thick AS 厚度, CAST(SUM(sf) AS numeric(10, 1)) AS 尺数, 
            '                                 CASE WHEN color LIKE '%pu%' OR
            '                                 color LIKE '%action%' OR
            '                                 color LIKE N'%纹%' THEN 'PU' ELSE '反毛' END AS 类别
            '                 FROM      RT_ship_daily_wh
            '                 GROUP BY order_no, i_no, color, thick) AS p
            'GROUP BY 订单类别, 厚度, 类别
            'ORDER BY 订单类别"
            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)
            '            dgv2.DataSource = dt


            '            sql = "SELECT   订单类别, SUM(尺数) AS 尺数, 类别
            'FROM      (SELECT   CASE WHEN LEFT(order_no, 2) 
            '                                 = 'RT' THEN N'人民币' WHEN order_no LIKE 'SX%' THEN '美元' ELSE order_no END AS 订单类别, 
            '                                 i_no AS 指令号, color AS 颜色, thick AS 厚度, CAST(SUM(sf) AS numeric(10, 1)) AS 尺数, 
            '                                 CASE WHEN color LIKE '%pu%' OR
            '                                 color LIKE '%action%' OR
            '                                 color LIKE N'%纹%' THEN 'PU' ELSE '反毛' END AS 类别
            '                 FROM      RT_ship_daily_wh
            '                 GROUP BY order_no, i_no, color, thick) AS p
            'GROUP BY 订单类别, 类别 ORDER BY 订单类别"
            '            cmd.CommandText = sql
            '            dt = New DataTable
            '            da.SelectCommand = cmd
            '            da.Fill(dt)
            '            dgv3.DataSource = dt




        ElseIf OpenFileDialog1.SafeFileName Like "HATAY*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "DCLASE*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "078*" Then
        ElseIf OpenFileDialog1.SafeFileName Like "076发货*" Then '------------------------金威利

            sql = "delete from rt_ship_076_1"
            cmd.CommandText = sql

            cmd.ExecuteNonQuery()

            Dim my_total_weight As Double = 0

            Dim s1 As Integer = 1
            Dim s11 As Integer = 1001

            For i = 1 To xlApp.Worksheets.Count

                xlSheet = xlApp.Worksheets(i)
                xlSheet.Activate()

                Dim y As Integer
                For y = xlApp.Workbooks(1).Worksheets(i).UsedRange.Rows.Count To 3 Step -1

                    If xlSheet.Cells(y, 1).value = Nothing Then

                        If xlSheet.Cells(y, 2).value = "重量" Then



                        End If


                        GoTo OK
                    End If

                    If xlSheet.Cells(y, 1).value.ToString = "数量合计" Then
                        Exit For
                    End If
OK:

                Next y

                Dim yyy As Integer

                For yyy = 3 To xlApp.Workbooks(1).Worksheets(i).UsedRange.Rows.Count

                    If xlSheet.Cells(yyy, 14).value = "制  表" Then
                        Exit For
                    End If


                Next yyy



                If xlSheet.Cells(y + 2, 2).value Like "重量*" Then

                    Dim q() As String
                    Dim r() As String

                    q = Split(xlSheet.Cells(y + 2, 2).value, "重量")
                    r = Split(q(1), "KG")

                    If IsNumeric(r(0)) Then
                    Else

                        r = Split(q(1), "kg")

                        If IsNumeric(r(0)) Then
                        Else

                            r = Split(q(1), "Kg")
                        End If



                    End If




                    'my_total_weight = r(0)




                End If



                xlSheet.Range("A3:A" & y - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"

                xlSheet.Range("c3:g" & y - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"


                xlSheet.Range("N3:Q" & yyy - 1).Select()

                xlApp.Selection.UnMerge
                'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                'xlApp.CutCopyMode = False
                'xlApp.Selection.FormulaR1C1 = "=R[-1]C"


                If xlSheet.Range("K3:L" & yyy - 1).MergeCells.ToString <> "False" Then

                    xlSheet.Range("K3:L" & yyy - 1).Select()

                    xlApp.Selection.UnMerge
                    'xlApp.Selection.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Select
                    'xlApp.CutCopyMode = False
                    'xlApp.Selection.FormulaR1C1 = "=R[-1]C"



                End If


                Dim my_card As String
                Dim my_no As String
                Dim my_po As String
                Dim my_work As String
                Dim my_color As String
                Dim my_thick As String
                Dim my_no1 As String
                Dim my_po1 As String
                Dim my_work1 As String
                Dim my_color1 As String
                Dim my_thick1 As String




                For y = 3 To y - 1




                    If xlSheet.Cells(y, 2).value = Nothing And xlSheet.Cells(y, 4).value = Nothing And xlSheet.Cells(y, 5).value = Nothing And xlSheet.Cells(y, 6).value = Nothing And xlSheet.Cells(y, 7).value = Nothing Then
                        ' Exit For
                    Else
                        If xlSheet.Cells(y, 2).value Is Nothing Then
                        Else
                            If xlSheet.Cells(y, 4).VALUE Is Nothing Then

                                If xlSheet.Cells(y, 1).value Is Nothing Then

                                Else
                                    my_no = xlSheet.Cells(y, 1).value
                                End If



                                sql = "insert into rt_ship_076_1 (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 3).value & "','" & s1 & "','" & my_no & "'," & xlSheet.Cells(y, 2).value & ",N'" & my_po & "',N'" & my_work & "',N'" & my_color & "','" & my_thick & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s1 = s1 + 1

                            Else

                                If xlSheet.Cells(y, 1).value Is Nothing Then

                                Else
                                    my_no = xlSheet.Cells(y, 1).value
                                End If


                                my_po = xlSheet.Cells(y, 4).value
                                my_work = xlSheet.Cells(y, 5).value
                                my_color = xlSheet.Cells(y, 6).value
                                my_thick = xlSheet.Cells(y, 7).value

                                sql = "insert into rt_ship_076_1 (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 3).value & "','" & s1 & "','" & my_no & "'," & xlSheet.Cells(y, 2).value & ",N'" & my_po & "',N'" & my_work & "',N'" & my_color & "','" & my_thick & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s1 = s1 + 1

                            End If
                        End If
                    End If



                    If xlSheet.Cells(y, 12).value = Nothing And xlSheet.Cells(y, 14).value = Nothing And xlSheet.Cells(y, 15).value = Nothing And xlSheet.Cells(y, 16).value = Nothing And xlSheet.Cells(y, 17).value = Nothing Then

                        '  Exit For
                    Else

                        If xlSheet.Cells(y, 12).value Is Nothing Then
                        Else

                            If xlSheet.Cells(y, 14).VALUE Is Nothing Then
                                If xlSheet.Cells(y, 11).value Is Nothing Then
                                Else
                                    my_no1 = xlSheet.Cells(y, 11).value
                                End If
                                sql = "insert into rt_ship_076_1 (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 13).value & "','" & s11 & "','" & my_no1 & "'," & xlSheet.Cells(y, 12).value & ",N'" & my_po1 & "',N'" & my_work1 & "',N'" & my_color1 & "','" & my_thick1 & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s11 = s11 + 1

                            Else
                                If xlSheet.Cells(y, 11).value Is Nothing Then
                                Else
                                    my_no1 = xlSheet.Cells(y, 11).value
                                End If

                                my_po1 = xlSheet.Cells(y, 14).value
                                my_work1 = xlSheet.Cells(y, 15).value
                                my_color1 = xlSheet.Cells(y, 16).value
                                my_thick1 = xlSheet.Cells(y, 17).value

                                sql = "insert into rt_ship_076_1 (filename,card,serial,no,sf,order_no,i_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 13).value & "','" & s11 & "','" & my_no1 & "'," & xlSheet.Cells(y, 12).value & ",N'" & my_po1 & "',N'" & my_work1 & "',N'" & my_color1 & "','" & my_thick1 & "')"
                                cmd.CommandText = sql
                                cmd.ExecuteScalar()
                                s11 = s11 + 1

                            End If



                        End If


                        'sql = "insert into rt_ship_076_1 (no,sf,order_no,i_no,color,thick) values('" & my_no1 & "'," & xlSheet.Cells(y, 10).value & ",N'" & my_po1 & "',N'" & my_work1 & "',N'" & my_color1 & "','" & my_thick1 & "')"
                        'cmd.CommandText = sql
                        'cmd.ExecuteScalar()


                    End If



                Next



            Next

            sql = "insert into rt_ship_temp select * from rt_ship_076_1"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()






            sql = "SELECT   order_no AS 订单号, i_no AS 指令号, color AS 颜色, thick AS 厚度, cast(SUM(sf) as numeric(10,1)) AS 尺数,DELI_NO AS 发货单号 FROM      RT_ship_076_1 GROUP BY order_no, i_no, color, thick,DELI_NO "
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)

            dt.Columns.Add("发货单号")

            dgv1.DataSource = dt


            'dt.Columns.Add("货值")

            sql = "SELECT   订单类别, 厚度, SUM(尺数) AS 尺数, 类别
FROM      (SELECT   CASE WHEN LEFT(order_no, 2) 
                                 = 'RT' THEN N'人民币' WHEN order_no LIKE 'SX%' THEN '美元' ELSE order_no END AS 订单类别, 
                                 i_no AS 指令号, color AS 颜色, thick AS 厚度, CAST(SUM(sf) AS numeric(10, 1)) AS 尺数, 
                                 CASE WHEN color LIKE '%pu%' OR
                                 color LIKE '%action%' OR
                                 color LIKE N'%纹%' THEN 'PU' ELSE '反毛' END AS 类别
                 FROM      RT_ship_076_1
                 GROUP BY order_no, i_no, color, thick) AS p
GROUP BY 订单类别, 厚度, 类别
ORDER BY 订单类别"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)
            dgv2.DataSource = dt


            sql = "SELECT   订单类别, SUM(尺数) AS 尺数, 类别
FROM      (SELECT   CASE WHEN LEFT(order_no, 2) 
                                 = 'RT' THEN N'人民币' WHEN order_no LIKE 'SX%' THEN '美元' ELSE order_no END AS 订单类别, 
                                 i_no AS 指令号, color AS 颜色, thick AS 厚度, CAST(SUM(sf) AS numeric(10, 1)) AS 尺数, 
                                 CASE WHEN color LIKE '%pu%' OR
                                 color LIKE '%action%' OR
                                 color LIKE N'%纹%' THEN 'PU' ELSE '反毛' END AS 类别
                 FROM      RT_ship_076_1
                 GROUP BY order_no, i_no, color, thick) AS p
GROUP BY 订单类别, 类别 ORDER BY 订单类别"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)
            dgv3.DataSource = dt





            For rr As Integer = 0 To dt.Rows.Count - 1
                'sql = ""
                'cmd.CommandText = sql
                'dt.Rows(rr).Item("尺数") = cmd.ExecuteScalar
            Next



            For rr As Integer = 0 To dt.Rows.Count - 1
                'sql = ""
                'cmd.CommandText = sql
                'dt.Rows(rr).Item("货值") = cmd.ExecuteScalar
            Next
            'DataGridView1.DataSource = dt


        Else

            MsgBox("找不到相对应的模组")
        End If


















        xlApp.Visible = True




        xlSheet = Nothing '釋放sheet物件


        '  xlApp.Quit() '關閉Excel

        xlApp = Nothing

        MsgBox("作业完成")


    End Sub

    Private Sub Frm_BG_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring
        conn.Open()
        cmd.Connection = conn


        sql = "select filename from rt_ship_076_1 group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_af group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_evergree group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If


        'sql = "select filename from rt_ship_daily_jh group by filename"
        'cmd.CommandText = sql

        'If Not (cmd.ExecuteScalar Is Nothing) Then
        '    ListBox3.Items.Add(cmd.ExecuteScalar)
        'End If

        sql = "select filename from rt_ship_daily_jlk group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_properwell group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        'sql = "select filename from rt_ship_daily_puma group by filename"
        'cmd.CommandText = sql

        'If Not (cmd.ExecuteScalar Is Nothing) Then
        '    ListBox3.Items.Add(cmd.ExecuteScalar)
        'End If


        sql = "select filename from rt_ship_daily_ruiqi group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_samil group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If


        sql = "select filename from rt_ship_daily_sj group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_stella group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If


        sql = "select filename from rt_ship_daily_thanhhu group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_uz_1 group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If


        sql = "select filename from rt_ship_daily_wh group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_xbh group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If


        sql = "select filename from rt_ship_daily_yb group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

        sql = "select filename from rt_ship_daily_yby group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If


        sql = "select filename from rt_ship_daily_yby_huasheng group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If


        sql = "select filename from rt_ship_daily_yy group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
        End If

















    End Sub

    Private Sub DataGridView2_MouseUp(sender As Object, e As MouseEventArgs) Handles dgv2.MouseUp

        Dim x As Double = 0
        Dim y As Double = 0
        Dim z As Double = 0
        Dim a As Int16 = 0
        Dim b As Double = 0

        For i As Integer = 0 To dgv2.SelectedRows.Count - 1

            x = x + Math.Round(dgv2.Rows(dgv2.SelectedRows.Item(i).Index).Cells("尺数").Value, 2)

            y = y + Math.Round(dgv2.Rows(dgv2.SelectedRows.Item(i).Index).Cells("货值").Value, 2)

            z = z + Math.Round(dgv2.Rows(dgv2.SelectedRows.Item(i).Index).Cells("净重").Value, 2)

            a = a + dgv2.Rows(dgv2.SelectedRows.Item(i).Index).Cells("件数").Value

            b = b + Math.Round(dgv2.Rows(dgv2.SelectedRows.Item(i).Index).Cells("毛重").Value, 2)

        Next i

        TextBox3.Text = dgv2.SelectedRows.Count

        TextBox2.Text = x
        TextBox1.Text = y
        TextBox4.Text = z
        TextBox5.Text = a
        TextBox6.Text = b




    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click   '---报关进口汇总


        sql = "SELECT   DATE1 AS 报关日期, Date2 AS 进厂日期, MONTH(Date2) AS 进厂月份, XNO AS 手册号, NAME AS 海关分类,type as 进口类型,matl_name AS 品名, QTY AS 数量, PRICE AS 单价, price*qty as 货值, ORIGIN AS 产地 FROM      RT_BG_IN_DETAIL WHERE  date2 between '" & dtp1.Value & "' and '" & dtp2.Value & "'"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)


        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If

        dgv1.DataSource = dt1



        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "报关进口汇总"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select






        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())



        xlApp.Range("B30").Select()

        xlSheet.Paste()

        xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$L$" & dt1.Rows.Count + 25), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$L$" & dt1.Rows.Count + 25))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields




        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("海关分类")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("进厂月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With





        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("数量"), "数量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With



        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing



    End Sub

    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click

        Frm_BG_FM_MEASURE.Show()

    End Sub

    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click   '----报关出口汇总



        sql = "SELECT   RT_BG_OUT.XNO AS 手册号, RT_BG_OUT.date1 AS 报关日期, RT_BG_OUT.NO AS 报关单号, 
                MONTH(RT_BG_OUT.date1) AS 报关月份, 
                CASE WHEN RT_BG_OUT.name LIKE '%pu%' THEN N'PU皮二层皮' ELSE N'牛二层皮' END AS 品名, 
                RT_BG_OUT.NAME AS 品名1, RT_BG_OUT.QTY AS 重量, CAST(RT_BG_OUT.TOTAL AS numeric(10, 1)) AS 货值, CAST(RT_BG_OUT.TOTAL/rt_bg_out.qty AS numeric(10, 3)) AS 单价,
                CAST(RT_BG_OUT.FEE AS numeric(10, 1)) AS 工缴费, RT_BG_MTL_NAME.L_no AS 料号, 
                CAST(RT_BG_OUT.FEE / RT_BG_OUT.QTY AS NUMERIC(10, 1)) AS 工缴费单价, RT_BG_OUT.COMMENT AS 客户, 
                RT_BG_OUT.DES AS 目的地
FROM      RT_BG_OUT LEFT OUTER JOIN
                RT_BG_MTL_NAME ON RT_BG_OUT.NAME = RT_BG_MTL_NAME.NAME where date1 between '" & dtp1.Value & "' and '" & dtp2.Value & "'"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)


        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If

        dgv1.DataSource = dt1


        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "报关出口汇总"
        xlSheet.Activate()

        xlApp.Range("d25:d2000").Select()
        xlApp.Selection.NumberFormatLocal = "@"


        xlSheet.Cells(5, 5).select




        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Dim DT_OBJECT As DataObject =DGV1.GetClipboardContent()
        Clipboard.SetDataObject(DT_OBJECT)

        'Dim t As New System.Windows.Forms.DataObject
        't = dgv1.GetClipboardContent
        'System.Windows.Forms.Clipboard.SetDataObject(t, False, 2, 2)




        xlApp.Range("B25").Select()

        xlSheet.PasteSpecial("Unicode 文本", False, False)
        'xlSheet.Paste()

        xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$25:$o$" & dt1.Rows.Count + 25), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$25:$o$" & dt1.Rows.Count + 25))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("报关月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("重量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With



        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing



    End Sub

    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click  '----保税入库



        sql = "SELECT   m_in AS 入库数量, LEFT(xno, 12) AS 手册号, date AS 日期, MONTH(date) AS 月份, item_new AS 品名, name AS 明细 FROM      RT_BG_IO WHERE   (m_in <> 0) AND (date between '" & dtp1.Value & "' and '" & dtp2.Value & "') AND (item_new NOT LIKE N'%牛二层皮%')"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)

        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If
        dgv1.DataSource = dt1


        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "保税入库汇总"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select







        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())



        xlApp.Range("B30").Select()

        xlSheet.Paste()

        xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("入库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With



        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing








    End Sub

    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click   '----保税出库汇总


        sql = "SELECT   m_out AS 出库数量, LEFT(xno, 12) AS 手册号, date AS 日期, MONTH(date) AS 月份, item_new AS 品名, name AS 明细 FROM  RT_BG_IO WHERE   (m_out <> 0) AND (date between '" & dtp1.Value & "' and '" & dtp2.Value & "') And (item_new Not LIKE N'%牛二层皮%')"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)
        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If
        dgv1.DataSource = dt1


        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "保税出库汇总"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select






        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())



        xlApp.Range("B25").Select()

        xlSheet.Paste()

        xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$25:$g$" & dt1.Rows.Count + 25), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$25:$g$" & dt1.Rows.Count + 25))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("出库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With



        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing




    End Sub

    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click  '---成品入库



        sql = "SELECT   left(xno,12) AS 手册号, item_new AS 品名, name AS 明细, date AS 入库日期,month(date) as 入库月份, CAST(m_in AS numeric(10, 1)) AS 入库数量 FROM      RT_BG_IO WHERE (item_new LIKE N'%牛二层皮%') AND (date between '" & dtp1.Value & "' and '" & dtp2.Value & "') AND (m_in <> 0)"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)
        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If
        dgv1.DataSource = dt1

        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "保税入库汇总"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select






        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())



        xlApp.Range("B25").Select()

        xlSheet.Paste()

        xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$25:$g$" & dt1.Rows.Count + 25), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$25:$g$" & dt1.Rows.Count + 25))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("入库月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("入库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With



        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing






    End Sub

    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click  '----保税成品出库

        sql = "SELECT   left(xno,12) AS 手册号, item_new AS 品名, name AS 明细, date AS 出库日期,month(date) as 出库月份, CAST(m_out AS numeric(10, 1)) AS 出库数量 FROM      RT_BG_IO WHERE   (item_new LIKE N'%牛二层皮%') AND (date between '" & dtp1.Value & "' and '" & dtp2.Value & "') AND (m_out <> 0)"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)
        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If
        dgv1.DataSource = dt1



        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "保税出库汇总"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select






        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())



        xlApp.Range("B25").Select()

        xlSheet.Paste()

        xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$25:$g$" & dt1.Rows.Count + 25), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$25:$g$" & dt1.Rows.Count + 25))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("出库月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("出库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With



        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing








    End Sub

    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click '--生产耗料

        sql = "SELECT   distinct 手册号, 成品, 明细, 入库数量, 入库日期, 料件, 单耗, 料件耗用, 领料日期, MONTH(领料日期) AS 领料月份 FROM      (SELECT   TOP (100) PERCENT right(RT_BG_IO.xno, 5) AS 手册号, RT_BG_IO.item AS 成品, RT_BG_IO.name AS 明细, RT_BG_IO.m_in AS 入库数量, RT_BG_IO.date AS 入库日期, RT_BG_COM.NAME AS 料件, RT_BG_COM.PERCENTS AS 单耗, RT_BG_COM.PERCENTS * RT_BG_IO.m_in AS 料件耗用,  CASE WHEN rt_bg_com.name LIKE N'%聚%' THEN DATEADD(day, - 2, RT_BG_IO.date) WHEN rt_bg_com.name LIKE N'%pu%' OR  rt_bg_com.name LIKE N'%促%' THEN DATEADD(day, - 3, RT_BG_IO.date) WHEN rt_bg_com.name LIKE N'%蓝%' THEN DATEADD(day, - 14, RT_BG_IO.date) ELSE DATEADD(day, - 7, RT_BG_IO.date) END AS 领料日期  FROM RT_BG_IO INNER JOIN RT_BG_COM ON LEFT(RT_BG_IO.xno, 12) = RT_BG_COM.XNO AND RT_BG_IO.item = RT_BG_COM.product1    WHERE   (RT_BG_IO.item LIKE N'%牛二层皮%') AND (RT_BG_IO.name LIKE '%入%') AND (RT_BG_IO.m_in <> 0) AND  (date between '" & dtp1.Value & "' and '" & dtp2.Value & "') ORDER BY 入库数量) AS p"

        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)
        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If
        dgv1.DataSource = dt1

        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "料件领料汇总"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select

        dgv1.SelectAll()

        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())

        xlApp.Range("B30").Select()

        xlSheet.Paste()

        xlApp.Visible = True

        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"

        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("成品")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With
        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With
        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("领料月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件耗用"), "耗用合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With

        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing


    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click '-----------------------------汇总


        Dim a As Integer = 0


        sql = "SELECT   DATE1 AS 报关日期, Date2 AS 进厂日期, MONTH(Date2) AS 进厂月份, XNO AS 手册号, NAME AS 海关分类,type as 进口类型,matl_name AS 品名, QTY AS 数量, PRICE AS 单价, price*qty as 货值, ORIGIN AS 产地 FROM RT_BG_IN_DETAIL WHERE  date2 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "'"
        cmd.CommandText = sql
        da.SelectCommand = cmd

        da.Fill(dt1)


        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If

        dgv1.DataSource = dt1





        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        'xlApp.DisplayAlerts = False


        xlBook = xlApp.Workbooks.Add

        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "报关进口"
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")




        xlSheet.Cells(5, 5).select






        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())
        System.Threading.Thread.Sleep(1000)
        xlApp.Range("B30").Select()

        'xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)
        ' xlApp.Visible = True

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$L$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$L$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("海关分类")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("进厂月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With



        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("数量"), "数量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With



        sql = "SELECT  distinct XNO as 手册号, date1 as 报关日期, no as 报关单号,comment as 客户,month(date1) as 报关月份,name AS 品名, QTY AS 重量, cast(TOTAL as numeric(10,2)) AS 货值, cast(FEE as numeric(10,2)) AS 工缴费 FROM RT_BG_OUT where date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "'"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1) '------------------------------报关出口汇总

        dgv1.DataSource = dt1
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "报关出口"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select

        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())

        System.Threading.Thread.Sleep(1000)


        xlApp.Columns("d:d").Select
        xlApp.Selection.NumberFormatLocal = "@"


        xlApp.Range("B25").Select()


        'xlSheet.PasteSpecial("Unicode 文本", False, False)

        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)
        ' xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$25:$j$" & dt1.Rows.Count + 25), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        'Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        'Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$25:$j$" & dt1.Rows.Count + 25))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("报关月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("重量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With




        '----------------------------------------------------------------------保税入库


        sql = "SELECT   m_in AS 入库数量, LEFT(xno, 12) AS 手册号, date2 AS 进厂日期, MONTH(date2) AS 进厂月份, item_new AS 品名, name AS 明细 FROM      RT_BG_IO WHERE   (m_in <> 0) AND (date between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "') AND (item_new NOT LIKE N'%牛二层皮%')"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)


        dgv1.DataSource = dt1
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "保税入库"
        xlSheet.Activate()
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        xlSheet.Cells(5, 5).select
        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())

        System.Threading.Thread.Sleep(1000)

        xlApp.Range("B30").Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)
        'xlSheet.PasteSpecial()

        xlSheet.Paste()

        Clipboard.SetDataObject(DBNull.Value)
        ' xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 31), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"






        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 31))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("进厂月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("入库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With




        '--------------------------------------------------------------------------------------------------------------------------------保税出库汇总
        sql = "SELECT   m_out AS 出库数量, LEFT(xno, 12) AS 手册号, date AS 日期, MONTH(date) AS 月份, item_new AS 品名, name AS 明细 FROM  RT_BG_IO WHERE   (m_out <> 0) AND (date between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "') And (item_new Not LIKE N'%牛二层皮%')"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        dgv1.DataSource = dt1




        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "保税出库"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select

        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())

        System.Threading.Thread.Sleep(1000)

        xlApp.Range("B30").Select()

        ' xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)
        '  xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"





        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("出库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With



        '---------------------------------------------------------------------------------------------------成品入库


        sql = "SELECT   distinct left(xno,12) AS 手册号, item AS 品名, name AS 明细, date AS 入库日期,month(date) as 入库月份, CAST(m_in AS numeric(10, 1)) AS 入库数量 FROM      RT_BG_IO WHERE (item_new LIKE N'%牛二层皮%') AND (date between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "') AND (m_in <> 0)"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        dgv1.DataSource = dt1


        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "成品入库"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")


        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())
        System.Threading.Thread.Sleep(1000)


        xlApp.Range("B30").Select()

        'xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)
        ' xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"






        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("入库月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("入库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With



        '--------------------------------------------------------------------------保税成品出库


        sql = "SELECT  distinct left(xno,12) AS 手册号, item AS 品名, name AS 明细, date AS 出厂日期,month(date) as 出厂月份, CAST(m_out AS numeric(10, 2)) AS 出库数量 FROM      RT_BG_IO WHERE   (item_new LIKE N'%牛二层皮%') AND (date between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "') AND (m_out <> 0)"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        dgv1.DataSource = dt1




        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "成品出库"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")


        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())

        System.Threading.Thread.Sleep(1000)

        xlApp.Range("B30").Select()

        'xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)
        '  xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$g$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("品名")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("出厂月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("出库数量"), "重量合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        '------------------------------------------------------------------------------成品入库耗料

        sql = "SELECT   distinct 手册号, 成品, 明细, 入库数量, 入库日期, 料件, 单耗, 料件耗用, 领料日期, MONTH(领料日期) AS 领料月份 FROM      (SELECT   TOP (100) PERCENT LEFT(RT_BG_IO.xno, 12) AS 手册号, RT_BG_IO.item AS 成品, RT_BG_IO.name AS 明细,RT_BG_IO.m_in AS 入库数量, RT_BG_IO.date AS 入库日期, RT_BG_COM.NAME AS 料件, RT_BG_COM.PERCENTS AS 单耗, RT_BG_COM.PERCENTS * RT_BG_IO.m_in AS 料件耗用, CASE WHEN rt_bg_com.name LIKE N'%聚%' THEN DATEADD(day, - 2, RT_BG_IO.date) WHEN rt_bg_com.name LIKE N'%pu%' OR rt_bg_com.name LIKE N'%促%' THEN DATEADD(day, - 3, RT_BG_IO.date) WHEN rt_bg_com.name LIKE N'%蓝%' THEN DATEADD(day, - 14, RT_BG_IO.date) ELSE DATEADD(day, - 7, RT_BG_IO.date) END AS 领料日期  FROM      RT_BG_IO INNER JOIN                                 RT_BG_COM ON LEFT(RT_BG_IO.xno, 12) = RT_BG_COM.XNO AND  RT_BG_IO.item = RT_BG_COM.product1 WHERE   (RT_BG_IO.item LIKE N'%牛二层皮%') AND (RT_BG_IO.name LIKE '%入%') AND (RT_BG_IO.m_in <> 0) AND  (date between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "') ORDER BY 入库数量) AS p"

        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        dgv1.DataSource = dt1

        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "生产领料"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select

        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")


        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())

        System.Threading.Thread.Sleep(1000)

        xlApp.Range("B30").Select()

        'xlSheet.PasteSpecial("Unicode 文本", False, False)
        ' xlSheet.PasteSpecial()
        xlSheet.Paste()

        Clipboard.SetDataObject(DBNull.Value)
        '  xlApp.Visible = True


        'xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("领料月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("成品")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With




        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件耗用"), "耗用合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With




        '------------------------------------------------------------------------------成品出库耗料

        sql = "SELECT   distinct 手册号, 成品, 明细, 出库数量, 出库日期, 料件, 单耗, 料件耗用, 领料日期, MONTH(领料日期) AS 领料月份 FROM      (SELECT   TOP (100) PERCENT LEFT(RT_BG_IO.xno, 12) AS 手册号, RT_BG_IO.item AS 成品, RT_BG_IO.name AS 明细,                                  RT_BG_IO.m_out AS 出库数量, RT_BG_IO.date AS 出库日期, RT_BG_COM.NAME AS 料件, RT_BG_COM.PERCENTS AS 单耗, RT_BG_COM.PERCENTS * RT_BG_IO.m_out AS 料件耗用,  CASE WHEN rt_bg_com.name LIKE N'%聚%' THEN DATEADD(day, - 2, RT_BG_IO.date)                                  WHEN rt_bg_com.name LIKE N'%pu%' OR                                 rt_bg_com.name LIKE N'%促%' THEN DATEADD(day, - 3, RT_BG_IO.date) WHEN rt_bg_com.name LIKE N'%蓝%' THEN DATEADD(day, - 14, RT_BG_IO.date) ELSE DATEADD(day, - 7,                                  RT_BG_IO.date) END AS 领料日期                 FROM      RT_BG_IO INNER JOIN                                 RT_BG_COM ON LEFT(RT_BG_IO.xno, 12) = RT_BG_COM.XNO AND                                  RT_BG_IO.item = RT_BG_COM.product1                 WHERE   (RT_BG_IO.item LIKE N'%牛二层皮%') AND (RT_BG_IO.name LIKE '%出%') AND (RT_BG_IO.m_out <> 0) AND  (date between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "') ORDER BY 出库数量) AS p"

        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)

        dgv1.DataSource = dt1

        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "出口耗料"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select

        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")


        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())

        System.Threading.Thread.Sleep(1000)

        xlApp.Range("B30").Select()

        'xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)
        '   xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("领料月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("成品")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With




        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件耗用"), "耗用合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With





        '-----------------------------------------------------------------------------------analysis_data


        analysis_data("A0006", "蓝湿牛皮")
        analysis_data("A0006", "有机鞣料")
        analysis_data("A0006", "无机鞣料")
        ' analysis_data("A0006", "合成油脂(矿)")
        analysis_data("A0006", "合成油脂")
        analysis_data("A0006", "皮革整理剂")
        analysis_data("A0006", "表面活性剂")
        analysis_data("A0006", "聚氨酯混合液")
        analysis_data("A0006", "复鞣助剂")
        analysis_data("A0006", "制革染料")
        analysis_data("A0006", "PU树脂")
        analysis_data("A0006", "皮革促进剂")

        analysis_data("A0008", "蓝湿牛皮")
        analysis_data("A0008", "有机鞣料")
        analysis_data("A0008", "无机鞣料")
        analysis_data("A0008", "合成油脂(矿)")
        analysis_data("A0008", "合成油脂")
        analysis_data("A0008", "皮革整理剂")
        analysis_data("A0008", "表面活性剂")
        analysis_data("A0008", "聚氨酯混合液")
        analysis_data("A0008", "复鞣助剂")
        analysis_data("A0008", "制革染料")
        analysis_data("A0008", "PU树脂")
        analysis_data("A0008", "皮革促进剂")



        '------------------------------------------------车间

        analysis_data_1("A0008", "蓝湿牛皮")
        analysis_data_1("A0008", "有机鞣料")
        analysis_data_1("A0008", "无机鞣料")
        analysis_data_1("A0008", "合成油脂(矿)")
        analysis_data_1("A0008", "合成油脂")
        analysis_data_1("A0008", "皮革整理剂")
        analysis_data_1("A0008", "表面活性剂")
        analysis_data_1("A0008", "聚氨酯混合液")
        analysis_data_1("A0008", "复鞣助剂")
        analysis_data_1("A0008", "制革染料")
        analysis_data_1("A0008", "PU树脂")
        analysis_data_1("A0008", "皮革促进剂")


        analysis_data_1("A0006", "蓝湿牛皮")
        analysis_data_1("A0006", "有机鞣料")
        analysis_data_1("A0006", "无机鞣料")
        'analysis_data_1("A0006", "合成油脂(矿)")
        analysis_data_1("A0006", "合成油脂")
        analysis_data_1("A0006", "皮革整理剂")
        analysis_data_1("A0006", "表面活性剂")
        analysis_data_1("A0006", "聚氨酯混合液")
        analysis_data_1("A0006", "复鞣助剂")
        analysis_data_1("A0006", "制革染料")
        analysis_data_1("A0006", "PU树脂")
        analysis_data_1("A0006", "皮革促进剂")




        '--------------------------------------------------成品
        analysis_finish("A0008", "PU牛二层皮")
        analysis_finish("A0008", "牛二层皮1")
        analysis_finish("A0008", "牛二层皮2")
        analysis_finish("A0008", "牛二层皮3")
        analysis_finish("A0008", "牛二层皮4")



        analysis_finish("A0006", "PU牛二层皮")
        analysis_finish("A0006", "牛二层皮5")
        analysis_finish("A0006", "牛二层皮6")







        sheet_sum()






        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("出库累计")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000;[红色](0.00)"
        'End With



        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库累计")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000;[红色](0.00)"
        'End With



        xlApp.Visible = True


        MsgBox("完成")
        xlApp.Visible = True
        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing



    End Sub

    Private Sub sheet_sum()


        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "总表"
        xlSheet.Activate()


        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(3, 3), Address:="", SubAddress:="报关进口!A1", TextToDisplay:="报关进口")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(3, 4), Address:="", SubAddress:="报关出口!A1", TextToDisplay:="报关出口")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(4, 3), Address:="", SubAddress:="保税入库!A1", TextToDisplay:="保税入库")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(4, 4), Address:="", SubAddress:="保税出库!A1", TextToDisplay:="保税出库")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(5, 3), Address:="", SubAddress:="成品入库!A1", TextToDisplay:="成品入库")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(5, 4), Address:="", SubAddress:="成品出库!A1", TextToDisplay:="成品出库")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(6, 3), Address:="", SubAddress:="生产领料!A1", TextToDisplay:="生产领料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(6, 4), Address:="", SubAddress:="出口耗料!A1", TextToDisplay:="出口耗料")


        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(8, 3), Address:="", SubAddress:="A0008蓝湿牛皮!A1", TextToDisplay:="A0008蓝湿牛皮")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 3), Address:="", SubAddress:="A0008有机鞣料!A1", TextToDisplay:="A0008有机鞣料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 3), Address:="", SubAddress:="A0008无机鞣料!A1", TextToDisplay:="A0008无机鞣料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(11, 3), Address:="", SubAddress:="'A0008合成油脂(矿)'!A1", TextToDisplay:="A0008合成油脂(矿)")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(12, 3), Address:="", SubAddress:="A0008合成油脂!A1", TextToDisplay:="A0008合成油脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 3), Address:="", SubAddress:="A0008皮革整理剂!A1", TextToDisplay:="A0008皮革整理剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(14, 3), Address:="", SubAddress:="A0008表面活性剂!A1", TextToDisplay:="A0008表面活性剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(15, 3), Address:="", SubAddress:="A0008复鞣助剂!A1", TextToDisplay:="A0008复鞣助剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(16, 3), Address:="", SubAddress:="A0008制革染料!A1", TextToDisplay:="A0008制革染料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(17, 3), Address:="", SubAddress:="A0008聚氨酯混合液!A1", TextToDisplay:="A0008聚氨酯混合液")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(18, 3), Address:="", SubAddress:="A0008PU树脂!A1", TextToDisplay:="A0008PU树脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(19, 3), Address:="", SubAddress:="A0008皮革促进剂!A1", TextToDisplay:="A0008皮革促进剂")



        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(8, 4), Address:="", SubAddress:="A0006蓝湿牛皮!A1", TextToDisplay:="A0006蓝湿牛皮")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 4), Address:="", SubAddress:="A0006有机鞣料!A1", TextToDisplay:="A0006有机鞣料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 4), Address:="", SubAddress:="A0006无机鞣料!A1", TextToDisplay:="A0006无机鞣料")
        '  xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(11, 3), Address:="", SubAddress:="A0006'合成油脂(矿)'!A1", TextToDisplay:="合成油脂(矿)")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(12, 4), Address:="", SubAddress:="A0006合成油脂!A1", TextToDisplay:="A0006合成油脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 4), Address:="", SubAddress:="A0006皮革整理剂!A1", TextToDisplay:="A0006皮革整理剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(14, 4), Address:="", SubAddress:="A0006表面活性剂!A1", TextToDisplay:="A0006表面活性剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(15, 4), Address:="", SubAddress:="A0006复鞣助剂!A1", TextToDisplay:="A0006复鞣助剂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(16, 4), Address:="", SubAddress:="A0006制革染料!A1", TextToDisplay:="A0006制革染料")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(17, 4), Address:="", SubAddress:="A0006聚氨酯混合液!A1", TextToDisplay:="A0006聚氨酯混合液")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(18, 4), Address:="", SubAddress:="A0006PU树脂!A1", TextToDisplay:="A0006PU树脂")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(19, 4), Address:="", SubAddress:="A0006皮革促进剂!A1", TextToDisplay:="A0006皮革促进剂")



        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 6), Address:="", SubAddress:="'A0008有机鞣料--车间'!A1", TextToDisplay:="A0008有机鞣料--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 6), Address:="", SubAddress:="'A0008无机鞣料--车间'!A1", TextToDisplay:="A0008无机鞣料--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(11, 6), Address:="", SubAddress:="'A0008合成油脂(矿)--车间'!A1", TextToDisplay:="A0008合成油脂(矿)--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(12, 6), Address:="", SubAddress:="'A0008合成油脂--车间'!A1", TextToDisplay:="A0008合成油脂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 6), Address:="", SubAddress:="'A0008皮革整理剂--车间'!A1", TextToDisplay:="A0008皮革整理剂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(14, 6), Address:="", SubAddress:="'A0008表面活性剂--车间'!A1", TextToDisplay:="A0008表面活性剂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(15, 6), Address:="", SubAddress:="'A0008复鞣助剂--车间'!A1", TextToDisplay:="A0008复鞣助剂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(16, 6), Address:="", SubAddress:="'A0008制革染料--车间'!A1", TextToDisplay:="A0008制革染料--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(17, 6), Address:="", SubAddress:="'A0008聚氨酯混合液--车间'!A1", TextToDisplay:="聚氨酯混合液--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(18, 6), Address:="", SubAddress:="'A0008PU树脂--车间'!A1", TextToDisplay:="A0008PU树脂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(19, 6), Address:="", SubAddress:="'A0008皮革促进剂--车间'!A1", TextToDisplay:="A0008皮革促进剂-车间")



        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 7), Address:="", SubAddress:="'A0006有机鞣料--车间'!A1", TextToDisplay:="A0006有机鞣料--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 7), Address:="", SubAddress:="'A0006无机鞣料--车间'!A1", TextToDisplay:="A0006无机鞣料--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(11, 7), Address:="", SubAddress:="'A0006合成油脂(矿)--车间'!A1", TextToDisplay:="A0006合成油脂(矿)--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(12, 7), Address:="", SubAddress:="'A0006合成油脂--车间'!A1", TextToDisplay:="A0006合成油脂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 7), Address:="", SubAddress:="'A0006皮革整理剂--车间'!A1", TextToDisplay:="A0006皮革整理剂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(14, 7), Address:="", SubAddress:="'A0006表面活性剂--车间'!A1", TextToDisplay:="A0006表面活性剂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(15, 7), Address:="", SubAddress:="'A0006复鞣助剂--车间'!A1", TextToDisplay:="A0006复鞣助剂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(16, 7), Address:="", SubAddress:="'A0006制革染料--车间'!A1", TextToDisplay:="A0006制革染料--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(17, 7), Address:="", SubAddress:="'A0006聚氨酯混合液--车间'!A1", TextToDisplay:="A0006聚氨酯混合液--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(18, 7), Address:="", SubAddress:="'A0006PU树脂--车间'!A1", TextToDisplay:="A0006PU树脂--车间")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(19, 7), Address:="", SubAddress:="'A0006皮革促进剂--车间'!A1", TextToDisplay:="A0006皮革促进剂-车间")





        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 9), Address:="", SubAddress:="'A0008牛二层皮1--成品'!A1", TextToDisplay:="A0008牛二层皮1--成品")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 9), Address:="", SubAddress:="'A0008牛二层皮2--成品'!A1", TextToDisplay:="A0008牛二层皮2--成品")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(11, 9), Address:="", SubAddress:="'A0008牛二层皮3--成品'!A1", TextToDisplay:="A0008牛二层皮3--成品")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(12, 9), Address:="", SubAddress:="'A0008牛二层皮4--成品'!A1", TextToDisplay:="A0008牛二层皮4--成品")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 9), Address:="", SubAddress:="'A0008PU牛二层皮--成品'!A1", TextToDisplay:="A0008PU牛二层皮--成品")


        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(9, 10), Address:="", SubAddress:="'A0006牛二层皮5--成品'!A1", TextToDisplay:="A0006牛二层皮5--成品")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(10, 10), Address:="", SubAddress:="'A0006牛二层皮6--成品'!A1", TextToDisplay:="A0006牛二层皮6--成品")
        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(13, 10), Address:="", SubAddress:="'A0006PU牛二层皮--成品'!A1", TextToDisplay:="A0006PU牛二层皮--成品")


        xlSheet.Columns("A:K").EntireColumn.AutoFit
        xlSheet.Rows("1:60").Entirerow.AutoFit
    End Sub
    Private Sub analysis_data(xno As String, m_name As String)    '------ 保税仓进销存



        sql = "SELECT  date AS 日期, item_new AS 品名,m_in AS 入库数量, m_out as 出库数量, LEFT(xno, 12) AS 手册号,  MONTH(date) AS 月份,  name AS 明细 FROM      RT_BG_IO WHERE   item_new=N'" & m_name & "' and xno like '%0008%' and (date between '" & dtp1.Value & "' and '" & dtp2.Value & "')"

        sql = "SELECT  case when name like N'%入%' then date2 else date end AS 日期, item_new AS 品名,m_in AS 入库数量, m_out as 出库数量, LEFT(xno, 12) AS 手册号,  case when name like N'%入%' then MONTH(date2) else month(date) end AS 月份,  name AS 明细 FROM      RT_BG_IO WHERE   item_new=N'" & m_name & "' and xno like '%" & xno & "%'"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt1 = New DataTable
        da.Fill(dt1)




        dgv1.DataSource = dt1
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Activate()

        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")


        If dt1.Rows.Count = 0 Then

            Exit Sub

        End If


        xlSheet.Cells(5, 5).select
        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())
        System.Threading.Thread.Sleep(1000)

        xlApp.Rows("3:3").Select
        xlApp.Range("a3").Activate()
        '  xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B2").Select()



        ' xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.PasteSpecial()

        Clipboard.SetDataObject(DBNull.Value)

        '  xlApp.Visible = True


        xlSheet.Columns("B:B").ColumnWidth = 15
        xlSheet.Columns("c:c").ColumnWidth = 12
        xlSheet.Columns("D:D").ColumnWidth = 22
        xlSheet.Columns("e:e").ColumnWidth = 14

        '  xlSheet.Columns("A:L").EntireColumn.AutoFit
        xlSheet.Rows("1:500").Entirerow.AutoFit



        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$2:$H$" & dt1.Rows.Count + 2), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$2:$H$" & dt1.Rows.Count + 2))

        'Select the destination sheet
        xlSheet.Range("J2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("J2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("日期")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField

            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库数量"), "加总-入库数量", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
            .AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("出库数量"), "加总-出库数量", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
            ' .AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库数量"), "入库累计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
            '.AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("出库数量"), "出库累计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With




        xlApp.ActiveSheet.PivotTables("pivot1").CalculatedFields.Add("入库", "=入库数量", True)
        xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlDataField


        xlApp.ActiveSheet.PivotTables("pivot1").CalculatedFields.Add("入库累计", "=入库数量", True)
        xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库累计").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlDataField


        xlApp.ActiveSheet.PivotTables("pivot1").CalculatedFields.Add("出库累计", "=出库数量", True)
        xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("出库累计").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlDataField

        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:入库")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000"
        'End With

        With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:入库")
            .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
            .BaseField = "日期"
            .NumberFormat = "#,##0.000"
        End With

        With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:入库累计")
            .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
            .BaseField = "日期"
            .NumberFormat = "#,##0.000"
        End With

        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("加總:入库累计")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000"
        'End With
        With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:出库累计")
            .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
            .BaseField = "日期"
            .NumberFormat = "#,##0.000"
        End With

        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("加總:出库累计")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000"
        'End With

        Dim x As Integer = 0
        For x = 3 To 50000

            If xlSheet.Cells(x, 10).value.ToString = "总计" Then
                Exit For
            End If


        Next


        xlApp.Columns("M:M").Select
        xlApp.Selection.EntireColumn.Hidden = True



        'xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:入库").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlHidden
        'xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("加總:入库").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlHidden
        xlSheet.Range("p4").FormulaR1C1 = "=RC[-2]-RC[-1]"
        xlSheet.Range("p4").Select()
        xlApp.Selection.AutoFill(Destination:=xlApp.Range("p4:p" & x - 1))


        xlSheet.Cells(2, 16).value = "结存"
        ' xlSheet.Range("P:P").NumberFormat = "#,##0.000;[红色](0.00)"

        ' xlSheet.Range("K:L").NumberFormat = "#,##0.000;[红色](0.00)"

        xlSheet.Columns("P:P").ColumnWidth = 14.11
        '  xlSheet.Columns("P:P").NumberFormat = "#,##0.000;[红色](0.00)"

    End Sub
    Private Sub analysis_finish(xno As String, m_name As String)   '-------成品进销存

        sql = "SELECT  LEFT(xno, 12) AS 手册号, item AS 品名, name AS 明细, date AS 入库日期, MONTH(date) AS 入库月份,  CAST(m_in AS numeric(10, 1)) AS 入库数量, CAST(m_out AS numeric(10, 1)) AS 出库数量,             CASE WHEN m_in <> 0 THEN m_in WHEN m_out <> 0 THEN - m_out END AS io FROM      RT_BG_IO WHERE   (item =N'" & m_name & "') AND (xno LIKE '%" & xno & "%') ORDER BY 入库日期"

        dt1 = New DataTable

        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt1)
        dt1.Columns.Add("结存")

        Dim my_qty As Decimal = 0

        For x As Integer = 0 To dt1.Rows.Count - 1
            If x = 0 Then
                dt1.Rows(x).Item("结存") = dt1.Rows(x).Item("io")
                my_qty = dt1.Rows(x).Item("结存")
            Else

                dt1.Rows(x).Item("结存") = my_qty + dt1.Rows(x).Item("io")
                my_qty = dt1.Rows(x).Item("结存")



            End If

        Next


        dgv1.DataSource = dt1

        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = xno & m_name & "--成品"
        xlSheet.Activate()

        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        xlSheet.Cells(5, 5).select
        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())


        xlApp.Rows("3:3").Select
        xlApp.Range("a3").Activate()
        '  xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B2").Select()
        System.Threading.Thread.Sleep(1000)


        xlSheet.PasteSpecial("Unicode 文本", False, False)


        Clipboard.SetDataObject(DBNull.Value)

        ' xlApp.Visible = True


        xlSheet.Columns("B:B").ColumnWidth = 15
        xlSheet.Columns("c:c").ColumnWidth = 12
        xlSheet.Columns("D:D").ColumnWidth = 22
        xlSheet.Columns("e:e").ColumnWidth = 14

        xlSheet.Columns("A:L").EntireColumn.AutoFit
        xlSheet.Rows("1:500").Entirerow.AutoFit

        'xlSheet.Cells("O2").value = "结存"

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$2:$J$" & dt1.Rows.Count + 2), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        xlSheet.Columns("j:j").Select
        xlApp.Selection.Style = "Comma"
        xlApp.Selection.NumberFormatLocal = "#,###.00_ ;[红色]-#,###.00 "





    End Sub

    Private Sub analysis_data_1(xno As String, m_name As String)    '------核算料件领料是否倒挂



        sql = "SELECT DISTINCT 领料日期, MONTH(领料日期) AS 领料月份 FROM      (SELECT   TOP (100) PERCENT RIGHT(RT_BG_IO.xno, 5) AS 手册号, RT_BG_IO.item AS 成品, RT_BG_IO.name AS 明细,                                  RT_BG_IO.m_in AS 入库数量, RT_BG_IO.date AS 入库日期, RT_BG_COM.NAME AS 料件,                                 RT_BG_COM.PERCENTS AS 单耗, RT_BG_COM.PERCENTS * RT_BG_IO.m_in AS 料件耗用,                                  CASE WHEN rt_bg_com.name LIKE N'%聚%' THEN DATEADD(day, - 2, RT_BG_IO.date)                                  WHEN rt_bg_com.name LIKE N'%pu%' OR                                 rt_bg_com.name LIKE N'%促%' THEN DATEADD(day, - 3, RT_BG_IO.date)                                 WHEN rt_bg_com.name LIKE N'%蓝%' THEN DATEADD(day, - 14, RT_BG_IO.date) ELSE DATEADD(day, - 7,                                  RT_BG_IO.date) END AS 领料日期                 FROM      RT_BG_IO INNER JOIN                                 RT_BG_COM ON LEFT(RT_BG_IO.xno, 12) = RT_BG_COM.XNO AND                                  RT_BG_IO.item = RT_BG_COM.product1                 WHERE   (RT_BG_IO.name LIKE '%入%') AND (RT_BG_IO.m_in <> 0)                 ORDER BY 入库数量) AS p WHERE   (手册号 = '" & xno & "') AND (料件 = N'" & m_name & "') AND (料件耗用 <> 0) ORDER BY 领料日期"

        cmd.CommandText = sql

        Dim my_date As Date

        my_date = cmd.ExecuteScalar





        sql = "SELECT   SUM(m_out) AS 保税出库数量 FROM RT_BG_IO WHERE   (xno like '%" & xno & "' and item_new = N'" & m_name & "' and date<='" & String.Format("{0:d}", my_date) & "') GROUP BY xno"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim q_begin As Decimal = 0
        q_begin = cmd.ExecuteScalar

        '------------------------0------1-----2-----3---------4------5-----6-----7---------8-----------9
        sql = "SELECT DISTINCT 手册号, 成品, 明细, 入库数量, 入库日期, 料件, 单耗, 料件耗用, 领料日期, MONTH(领料日期) AS 领料月份 FROM      (SELECT   TOP (100) PERCENT RIGHT(RT_BG_IO.xno, 5) AS 手册号, RT_BG_IO.item AS 成品, RT_BG_IO.name AS 明细,                                  RT_BG_IO.m_in AS 入库数量, RT_BG_IO.date AS 入库日期, RT_BG_COM.NAME AS 料件,                                 RT_BG_COM.PERCENTS AS 单耗, RT_BG_COM.PERCENTS * RT_BG_IO.m_in AS 料件耗用,                                  CASE WHEN rt_bg_com.name LIKE N'%聚%' THEN DATEADD(day, - 2, RT_BG_IO.date)                                  WHEN rt_bg_com.name LIKE N'%pu%' OR                                 rt_bg_com.name LIKE N'%促%' THEN DATEADD(day, - 3, RT_BG_IO.date)                                 WHEN rt_bg_com.name LIKE N'%蓝%' THEN DATEADD(day, - 14, RT_BG_IO.date) ELSE DATEADD(day, - 7,                                  RT_BG_IO.date) END AS 领料日期                 FROM      RT_BG_IO INNER JOIN                                 RT_BG_COM ON LEFT(RT_BG_IO.xno, 12) = RT_BG_COM.XNO AND                                  RT_BG_IO.item = RT_BG_COM.product1                 WHERE   (RT_BG_IO.name LIKE '%入%') AND (RT_BG_IO.m_in <> 0)                 ORDER BY 入库数量) AS p WHERE   (手册号 ='" & xno & "') AND (料件 = N'" & m_name & "') AND (料件耗用 <> 0) ORDER BY 领料日期"





        dt1 = New DataTable

        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt1)



        dt1.Columns.Add("结存")

        Dim myRow As DataRow
        myRow = dt1.NewRow
        ' myRow(0) = xno
        'myRow(5) =
        myRow(10) = q_begin

        dt1.Rows.InsertAt(myRow, 0)



        sql = "SELECT item, name, year, month, date1,m_out, bal, xno, date, id, item_new FROM  RT_BG_IO WHERE   (xno like '%" & xno & "') AND (item_new = N'" & m_name & "') AND (m_out <> 0) and date >'" & String.Format("{0:d}", my_date) & "'"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt2 As New DataTable
        da.Fill(dt2)

        For z As Integer = 0 To dt2.Rows.Count - 1

            myRow = dt1.NewRow

            myRow(7) = dt2.Rows(z).Item("m_out")
            myRow(8) = dt2.Rows(z).Item("date")
            myRow(9) = Month(dt2.Rows(z).Item("date"))
            dt1.Rows.InsertAt(myRow, dt1.Rows.Count)

        Next

        dt1.DefaultView.Sort = "领料日期,手册号"

        Dim dt11 As New DataTable

        dt11 = dt1.DefaultView.ToTable()




        Dim my_begin As Decimal = 0
        For z As Integer = 0 To dt11.Rows.Count - 1

            If z = 0 Then
                my_begin = dt11.Rows(z).Item("结存")
            Else
                If IsDBNull(dt11.Rows(z).Item("手册号")) Then

                    my_begin = my_begin + dt11.Rows(z).Item("料件耗用")
                Else
                    my_begin = my_begin - dt11.Rows(z).Item("料件耗用")
                End If
                dt11.Rows(z).Item("结存") = my_begin
            End If

        Next

        dgv1.DataSource = dt11






        'sql = "SELECT  date AS 日期, item_new AS 品名,m_in AS 入库数量, m_out as 出库数量, LEFT(xno, 12) AS 手册号,  MONTH(date) AS 月份,  name AS 明细 FROM RT_BG_IO WHERE   item_new=N'" & m_name & "' and xno like '%0008%'"
        'cmd.CommandText = sql
        'da.SelectCommand = cmd
        'dt1 = New DataTable
        'da.Fill(dt1)


        'dgv1.DataSource = dt1
        xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = xno & m_name & "--车间"
        xlSheet.Activate()

        xlSheet.Hyperlinks.Add(Anchor:=xlSheet.Cells(1, 1), Address:="", SubAddress:="总表!A1", TextToDisplay:="总表")

        xlSheet.Cells(5, 5).select
        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())
        System.Threading.Thread.Sleep(1000)

        'xlApp.Rows("3:3").Select
        'xlApp.Range("a3").Activate()
        ' xlApp.ActiveWindow.FreezePanes = True


        xlApp.Range("B2").Select()

        ' ExcelPackage.LicenseContext = LicenseContext.NonCommercial

        ' Dim filepath As New System.IO.FileInfo("d:\123.xlsx")
        'Dim Package As New ExcelPackage(filepath)
        'Dim wks As ExcelWorksheet = Package.Workbook.Worksheets.Add(xlSheet.Name)




        'wks.Cells("A1").LoadFromDataTable(dt11, True)


        'Package.Save()




        '  xlApp.Cells("B2").LoadFromDataTable(dt11, True)


        ' xlSheet.PasteSpecial("Unicode 文本", False, False)
        xlSheet.Paste()

        Clipboard.SetDataObject(DBNull.Value)


        ' xlApp.Visible = True


        xlSheet.Columns("B:B").ColumnWidth = 15
        xlSheet.Columns("c:c").ColumnWidth = 12
        xlSheet.Columns("D:D").ColumnWidth = 22
        xlSheet.Columns("e:e").ColumnWidth = 14

        xlSheet.Columns("A:L").EntireColumn.AutoFit
        xlSheet.Rows("1:500").Entirerow.AutoFit

        'xlSheet.Cells("O2").value = "结存"

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$2:$L$" & dt11.Rows.Count + 2), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"


        xlSheet.Columns("L:L").Select
        xlApp.Selection.NumberFormatLocal = "0.00_ ;[红色]-0.00 "










        'Create the Cache
        'PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$2:$H$" & dt1.Rows.Count + 2))

        ''Select the destination sheet
        'xlSheet.Range("J2").Select()

        ''Create the Pivot table
        'PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("J2"), TableName:="Pivot1")

        'xlApp.ActiveWorkbook.ShowPivotTableFieldList = True


        'With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("日期")
        '    .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField

        '    .Position = 1
        'End With

        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库数量"), "入库数量", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("出库数量"), "出库数量", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        '    ' .AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库数量"), "入库累计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        '    '.AddDataField(xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("出库数量"), "出库累计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With




        'xlApp.ActiveSheet.PivotTables("pivot1").CalculatedFields.Add("入库", "=入库数量", True)
        'xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlDataField


        'xlApp.ActiveSheet.PivotTables("pivot1").CalculatedFields.Add("入库累计", "=入库数量", True)
        'xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("入库累计").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlDataField


        'xlApp.ActiveSheet.PivotTables("pivot1").CalculatedFields.Add("出库累计", "=出库数量", True)
        'xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("出库累计").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlDataField

        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:入库")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000"
        'End With
        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:入库累计")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000"
        'End With
        'With xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:出库累计")
        '    .Calculation = Microsoft.Office.Interop.Excel.XlPivotFieldCalculation.xlRunningTotal
        '    .BaseField = "日期"
        '    .NumberFormat = "#,##0.000"
        'End With

        'Dim x As Integer = 0
        'For x = 3 To 50000

        '    If xlSheet.Cells(x, 10).value.ToString = "总计" Then
        '        Exit For
        '    End If


        'Next


        'xlApp.ActiveSheet.PivotTables("pivot1").PivotFields("求和项:入库").Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlHidden
        'xlSheet.Range("o3").FormulaR1C1 = "=RC[-2]-RC[-1]"
        'xlSheet.Range("o3").Select()
        'xlApp.Selection.AutoFill(Destination:=xlApp.Range("o3:o" & x))







    End Sub

    Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click

        sql = "SELECT   distinct 手册号, 成品, 明细, 出库数量, 出库日期, 料件, 单耗, 料件耗用, 领料日期, MONTH(领料日期) AS 领料月份 FROM      (SELECT   TOP (100) PERCENT LEFT(RT_BG_IO.xno, 12) AS 手册号, RT_BG_IO.item AS 成品, RT_BG_IO.name AS 明细,                                  RT_BG_IO.m_out AS 出库数量, RT_BG_IO.date AS 出库日期, RT_BG_COM.NAME AS 料件, RT_BG_COM.PERCENTS AS 单耗, RT_BG_COM.PERCENTS * RT_BG_IO.m_out AS 料件耗用,  CASE WHEN rt_bg_com.name LIKE N'%聚%' THEN DATEADD(day, - 2, RT_BG_IO.date)                                  WHEN rt_bg_com.name LIKE N'%pu%' OR                                 rt_bg_com.name LIKE N'%促%' THEN DATEADD(day, - 3, RT_BG_IO.date) WHEN rt_bg_com.name LIKE N'%蓝%' THEN DATEADD(day, - 14, RT_BG_IO.date) ELSE DATEADD(day, - 7,                                  RT_BG_IO.date) END AS 领料日期                 FROM      RT_BG_IO INNER JOIN                                 RT_BG_COM ON LEFT(RT_BG_IO.xno, 12) = RT_BG_COM.XNO AND                                  RT_BG_IO.item = RT_BG_COM.product1                 WHERE   (RT_BG_IO.item LIKE N'%牛二层皮%') AND (RT_BG_IO.name LIKE '%出%') AND (RT_BG_IO.m_out <> 0) AND  (date between '" & dtp1.Value & "' and '" & dtp2.Value & "') ORDER BY 出库数量) AS p"

        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt1 As New DataTable
        da.Fill(dt1)
        If dt1.Rows.Count = 0 Then
            MsgBox("查无记录")
            Exit Sub
        End If
        dgv1.DataSource = dt1



        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlRange As Microsoft.Office.Interop.Excel.Range

        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        xlApp.DisplayAlerts = False

        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "料件领料汇总"
        xlSheet.Activate()

        xlSheet.Cells(5, 5).select






        dgv1.SelectAll()


        Me.dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv1.GetClipboardContent())



        xlApp.Range("B30").Select()

        xlSheet.Paste()

        xlApp.Visible = True


        '''' xlApp.ActiveSheet.Paste
        ''''xlApp.CutCopyMode = False
        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表1"




        Dim PTCache As Microsoft.Office.Interop.Excel.PivotCache
        Dim PT As Microsoft.Office.Interop.Excel.PivotTable

        'Create the Cache
        PTCache = xlApp.ActiveWorkbook.PivotCaches.Create(SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase, SourceData:=xlApp.Range("$B$30:$k$" & dt1.Rows.Count + 30))

        'Select the destination sheet
        xlSheet.Range("b2").Select()

        'Create the Pivot table
        PT = xlSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=xlSheet.Range("B2"), TableName:="Pivot1")

        xlApp.ActiveWorkbook.ShowPivotTableFieldList = True

        'Adding fields





        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlRowField
            .Position = 1
        End With


        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("领料月份")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("手册号")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With

        With xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("成品")
            .Orientation = Microsoft.Office.Core.XlPivotFieldOrientation.xlColumnField
            .Position = 1
        End With




        With xlApp.ActiveSheet.PivotTables("pivot1")
            .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("料件耗用"), "耗用合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        End With


        'With xlApp.ActiveSheet.PivotTables("pivot1")
        '    .AddDataField(xlApp.ActiveSheet.PivotTables("Pivot1").PivotFields("货值"), "货值合计", Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum)
        'End With



        xlApp.Visible = True
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing







    End Sub

    Private Sub dgv2_MouseDown(sender As Object, e As MouseEventArgs) Handles dgv2.MouseDown



    End Sub

    Private Sub dgv3_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv3.CellContentClick

    End Sub

    Private Sub dgv3_MouseUp(sender As Object, e As MouseEventArgs) Handles dgv3.MouseUp


        Dim x As Double = 0
        Dim y As Double = 0
        For i As Integer = 0 To dgv2.SelectedRows.Count - 1

            x = x + Math.Round(dgv2.Rows(dgv2.SelectedRows.Item(i).Index).Cells("尺数").Value, 1)


        Next i

        TextBox3.Text = dgv2.SelectedRows.Count

        TextBox2.Text = x




    End Sub

    Private Sub Button16_Click_1(sender As Object, e As EventArgs) Handles Button16.Click
        Frm_wb_out_1.Show()
    End Sub

    Private Sub Button17_Click_1(sender As Object, e As EventArgs) Handles Button17.Click
        Frm_Print_report.Show()
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click


        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet



        Dim dt As New DataTable
        Dim file_name As String = ""
        Dim file_name1 As String = ""
        Dim my_weight As Double = 0
        Dim a As Integer = 0
        Dim my_count As Integer = 0
        'OpenFileDialog1.Multiselect = True


        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            file_name = OpenFileDialog1.FileName
            file_name1 = OpenFileDialog1.SafeFileName
        Else
            Exit Sub

        End If



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False



        'sql = "delete from rt_bg_io"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()



        xlBook = xlApp.Workbooks.Open(file_name,, True)

        xlBook.Activate()



        If ListBox1.Items(0) Like "*076*" Then                        '----------------------------------------------- 蓝皮入库


            For i = 1 To xlApp.Worksheets.Count

                If xlApp.Workbooks(1).Worksheets(i).name = "金威利" Then
                    xlSheet = xlApp.Workbooks(1).Worksheets(i)
                    xlSheet.Activate()
                    Exit For
                End If

            Next

            xlSheet.Range("a1:q17").Copy()

            For y As Integer = 0 To dgv1.Rows.Count - 2

                xlApp.Range("a" & 1 + 17 * (y + 1)).Select()
                xlSheet.Paste()

            Next y


            '  Dim MY_DATE As Date = dgv2.Rows(0).Cells("进厂日期").Value
            Dim MY_COUNT1 As Integer = 0
            Dim MY_ITEM As Integer = 0

            For y As Integer = 0 To dgv2.Rows.Count - 1



                MY_COUNT1 = MY_COUNT1 - 1
                MY_ITEM = MY_ITEM + 1

                xlSheet.Cells(2 + y * 17, 3) = "金威利"

                xlSheet.Cells(6 + y * 17, 1) = dgv1.Rows(y).Cells("颜色").Value
                xlSheet.Cells(6 + y * 17, 3) = dgv1.Rows(y).Cells("类别").Value
                xlSheet.Cells(6 + y * 17, 4) = dgv1.Rows(y).Cells("厚度").Value
                xlSheet.Cells(6 + y * 17, 6) = dgv1.Rows(y).Cells("尺数").Value


                xlSheet.Cells(11 + y * 17, 2) = dgv1.Rows(y).Cells("订单号").Value
                xlSheet.Cells(11 + y * 17, 5) = dgv1.Rows(y).Cells("指令号").Value
                xlSheet.Cells(11 + y * 17, 16) = dgv1.Rows(y).Cells("尺数").Value



            Next


        End If




        Dim yy As Integer = 0









        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing

        MsgBox("")



























    End Sub

    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
        Frm_AC.ShowDialog()
    End Sub

    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
        analysis_data_1("A0008", "合成油脂(矿)")
    End Sub

    Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click

        Dim dt As New DataTable

        Dim file_name As String = ""

        Dim a As Integer = 0
        Dim my_count As Integer = 0
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            file_name = OpenFileDialog1.FileName
        Else
            Exit Sub
        End If

        Dim filepath As String = Me.Button33.Text

        Dim sourceFileName As String = file_name


        Dim address2 As String = "ftp://" & my_ip & ":7788/K3/即时库存/" & OpenFileDialog1.SafeFileName

        Dim address3() As String

        address3 = Split(address2, "ftp://" & my_ip & ":7788/K3/即时库存/")
        Dim add4 As String

        add4 = "d:\k3\" & address3(1)
        add4 = "d:\k3\即时库存\" & OpenFileDialog1.SafeFileName


        Dim userName As String = "matchy3c"
        Dim password As String = "Lafayette11"
        Dim showUI As Boolean = True
        Dim connectionTimeout As Integer = 500

        Dim client As WebClient = New WebClient
        client.Credentials = New NetworkCredential(userName, password)
        ' client.Proxy = GlobalProxySelection.GetEmptyWebProxy()
        client.UploadFile(address2, sourceFileName)



        sql = "delete from rt_realtime_stock"  '----
        ' sql = "delete from rt_sys_chem_out "  '----化料
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()

        sql = "Select * FROM OPENDATASOURCE ('Microsoft.ACE.OLEDB.12.0','Excel 12.0;HDR=Yes;IMEX=1;Database=" & add4 & "')... [车间化料$]"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)
        '  dgv1.DataSource = dt


        Dim my_sqlbulk As New SqlBulkCopy(conn)

        my_sqlbulk.DestinationTableName = "dbo.rt_realtime_stock"
        my_sqlbulk.WriteToServer(dt)


        sql = "SELECT   cls, CLASS2 AS 海关分类, SUM(qty) AS 数量
FROM      (SELECT   CASE WHEN matl_no LIKE '%.s.%' THEN N'保税' ELSE N'国内' END AS cls, RT_realtime_stock.matl_name, 
                                 RT_realtime_stock.qty, RT_SYS_CHEM_MAIN.CLASS2
                 FROM      RT_realtime_stock LEFT OUTER JOIN
                                 RT_SYS_CHEM_MAIN ON RT_realtime_stock.matl_name = RT_SYS_CHEM_MAIN.name) AS p
WHERE   (CLASS2 IS NOT NULL) AND (CLASS2 <> '') AND (CLASS2 <> 'PU')
GROUP BY CLASS2, cls
ORDER BY 海关分类 DESC"

        cmd.CommandText = sql
        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)
        dgv1.DataSource = dt

        dt = New DataTable













        sql = "delete from rt_realtime_stock"  '----
        ' sql = "delete from rt_sys_chem_out "  '----化料
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()




        sql = "Select * FROM OPENDATASOURCE ('Microsoft.ACE.OLEDB.12.0','Excel 12.0;HDR=Yes;IMEX=1;Database=" & add4 & "')... [保税仓$]"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)
        ' dgv2.DataSource = dt




        my_sqlbulk.DestinationTableName = "dbo.rt_realtime_stock"
        my_sqlbulk.WriteToServer(dt)


        sql = "SELECT   cls, CLASS2 AS 海关分类, SUM(qty) AS 数量
FROM      (SELECT   CASE WHEN matl_no LIKE '%.s.%' THEN N'保税' ELSE N'国内' END AS cls, RT_realtime_stock.matl_name, 
                                 RT_realtime_stock.qty, RT_SYS_CHEM_MAIN.CLASS2
                 FROM      RT_realtime_stock LEFT OUTER JOIN
                                 RT_SYS_CHEM_MAIN ON RT_realtime_stock.matl_name = RT_SYS_CHEM_MAIN.name) AS p
WHERE   (CLASS2 IS NOT NULL) AND (CLASS2 <> '') AND (CLASS2 <> 'PU')
GROUP BY CLASS2, cls
ORDER BY 海关分类 DESC"

        cmd.CommandText = sql
        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)
        dgv2.DataSource = dt













        MsgBox("完成")


    End Sub

    Private Sub dgv2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv2.CellContentClick

    End Sub

    Private Sub dgv2_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv2.CellMouseClick

    End Sub

    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click


        sql = " update rt_ship_uz_hg set class='fm7' where name like '%黑色%' and name not like '%action%' and name not like '%PU%' and name not like N'%榔%'    "
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()
        sql = " update rt_ship_uz_hg set class='fm8' where name not like '%黑色%' and name not like '%action%' and name not like '%PU%' and name not like N'%榔%'   "
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()
        sql = " update rt_ship_uz_hg set class='PU3' where name not like '%黑色%' and (name like '%action%' or name like '%PU%' or name like N'%榔%')             "
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()
        sql = " update rt_ship_uz_hg set class='PU5' where name like '%黑色%' and (name like '%action%' or name like '%PU%' or name like N'%榔%')                   "
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()


        sql = "select diff from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='fm7' ) as q group by diff order by diff" '-----fm7
        cmd.CommandText = sql
        Dim dt As New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        Dim begin As Boolean = False
        Dim mystring As String = "牛二层皮7   "

        Dim begin_diff As Integer

        Dim a As Integer = 0


        For x As Integer = 0 To dt.Rows.Count - 1
            a = 0
            sql = "select no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='fm7' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) "
            cmd.CommandText = sql


            mystring = mystring & "第" & cmd.ExecuteScalar & "~"

            a = a + 1
            sql = "select top(1) no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='fm7' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) desc"
            cmd.CommandText = sql

            mystring = mystring & cmd.ExecuteScalar & "件 / "

        Next

        If dt.Rows.Count > 0 Then
            ListBox2.Items.Add(mystring)

        End If

        sql = "select diff from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='fm8' ) as q group by diff order by diff"  '-----fm8
        cmd.CommandText = sql
        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        mystring = "牛二层皮8   "

        For x As Integer = 0 To dt.Rows.Count - 1

            sql = "select no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='fm8' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) "
            cmd.CommandText = sql


            mystring = mystring & "第" & cmd.ExecuteScalar & "~"

            sql = "select top(1) no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='fm8' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) desc"
            cmd.CommandText = sql

            mystring = mystring & cmd.ExecuteScalar & "件 / "

        Next

        If dt.Rows.Count <> 0 Then
            ListBox2.Items.Add(mystring)

        End If

        sql = "select diff from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='pu3' ) as q group by diff order by diff" '-----pu3
        cmd.CommandText = sql
        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        mystring = "PU牛二层皮3   "

        For x As Integer = 0 To dt.Rows.Count - 1

            sql = "select no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='pu3' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) "
            cmd.CommandText = sql

            mystring = mystring & "第" & cmd.ExecuteScalar & "~"

            sql = "select top(1) no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='pu3' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) desc"
            cmd.CommandText = sql

            mystring = mystring & cmd.ExecuteScalar & "件 / "

        Next

        If dt.Rows.Count <> 0 Then
            ListBox2.Items.Add(mystring)

        End If


        sql = "select diff from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='pu5' ) as q group by diff order by diff" '-----pu5
        cmd.CommandText = sql
        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        mystring = "PU牛二层皮5   "

        For x As Integer = 0 To dt.Rows.Count - 1

            sql = "select no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='pu5' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) "
            cmd.CommandText = sql


            mystring = mystring & "第" & cmd.ExecuteScalar & "~"


            sql = "select top(1) no from (select no,rank() over (order by cast(no as integer)) as 序号, cast(no as integer)- rank() over (order by cast(no as integer)) as diff from rt_ship_uz_hg where class='pu5' ) as p where diff=" & dt.Rows(x).Item("diff") & " order by cast(no as integer) desc"
            cmd.CommandText = sql

            mystring = mystring & cmd.ExecuteScalar & "件 / "

        Next

        If dt.Rows.Count <> 0 Then
            ListBox2.Items.Add(mystring)

        End If




    End Sub

    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click



        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet


        Dim dt As New DataTable
        Dim file_name As String = ""
        Dim file_name1 As String = ""


        ListBox1.Items.Clear()

        Dim my_weight As Double = 0






        Dim a As Integer = 0
        Dim my_count As Integer = 0
        'OpenFileDialog1.Multiselect = True
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            file_name = OpenFileDialog1.FileName
            file_name1 = OpenFileDialog1.SafeFileName
        Else
            Exit Sub

        End If



        xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        xlApp.DisplayAlerts = False



        xlBook = xlApp.Workbooks.Open(file_name)
        xlBook.Activate()

        xlApp.Rows.Item("1:11").delete


        xlBook.Save()
        ' xlBook.Close()

        xlBook.Application.Quit()
        xlApp.Application.Quit()

        KillExcel(xlApp)




        xlBook = Nothing
        xlApp = Nothing




        Dim yy As Integer = 0

















        Dim filepath As String = "k3/在制品"

        Dim sourceFileName As String = file_name


        Dim address2 As String = "ftp://" & my_ip & ":7788/" & filepath & "/" & OpenFileDialog1.SafeFileName

        Dim address3() As String

        address3 = Split(address2, "ftp://" & my_ip & ":7788/")
        Dim add4 As String

        add4 = "d:\k3\在制品\" & OpenFileDialog1.SafeFileName


        Dim userName As String = "matchy3c"
        Dim password As String = "Lafayette11"
        Dim showUI As Boolean = True
        Dim connectionTimeout As Integer = 500


        ' System.Threading.Thread.Sleep(30000)


        Dim client As WebClient = New WebClient
        client.Credentials = New NetworkCredential(userName, password)
        'client.Proxy = GlobalProxySelection.GetEmptyWebProxy()
        client.UploadFile(address2, sourceFileName)



        sql = "delete from rt_inprocess_crust"
        cmd.CommandText = sql
        cmd.ExecuteScalar()





        sql = "Select * FROM OPENDATASOURCE ('Microsoft.ACE.OLEDB.12.0','Excel 12.0;HDR=Yes;IMEX=1;Database=" & add4 & "')... ['1$']"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)
        dgv1.DataSource = dt



        Dim my_sqlbulk As New SqlBulkCopy(conn)

        my_sqlbulk.DestinationTableName = "dbo.rt_inprocess_crust"
        my_sqlbulk.WriteToServer(dt)

        MsgBox("ok")





    End Sub

        Private Sub KillExcel(ByVal objExcel As Object)
        Try
            If objExcel IsNot Nothing Then
                Dim lProcessIdAddr As Integer
                Dim iPID As Integer
                iPID = GetWindowThreadProcessId(objExcel.Hwnd, lProcessIdAddr)
                System.Diagnostics.Process.GetProcessById(lProcessIdAddr).Kill()
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click

        Dim str = ListBox1.Items(0).ToString



        Select Case True
            Case str Like "*076*"

                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_076_1 set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where order_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and i_no=N'" & dgv1.Rows(x).Cells("指令号").Value & "'and color=N'" & dgv1.Rows(x).Cells("颜色").Value & "' and thick='" & dgv1.Rows(x).Cells("厚度").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next


            Case str Like "*澳孚*"

                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_af set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and work_no=N'" & dgv1.Rows(x).Cells("指令号").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next



            Case str Like "*威弘*"

                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_wh set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where order_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and i_no=N'" & dgv1.Rows(x).Cells("指令号").Value & "'and color=N'" & dgv1.Rows(x).Cells("颜色").Value & "' and thick='" & dgv1.Rows(x).Cells("厚度").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next



            Case str Like "*永正发货*"

                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_uz_1 set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and order_item=N'" & dgv1.Rows(x).Cells("项次号").Value & "'and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*极路客*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_jlk set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where color =N'" & dgv1.Rows(x).Cells("颜色").Value & "'
                            and thick=N'" & dgv1.Rows(x).Cells("厚度").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*上杰发货*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_sj set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and order_item=N'" & dgv1.Rows(x).Cells("项次号").Value & "'and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*SAMIL*"


                For x As Integer = 0 To dgv1.Rows.Count - 2
                    sql = "update  rt_ship_daily_samil set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value.ToString.Replace("'", "''") & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next


            Case str Like "*亿博*" And Not (str Like "*亿博样*")


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_yb set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*亿博*" And (str Like "*华盛*")


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_yby_huasheng set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*亿博样*" And Not (str Like "*华盛*")


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_yby set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*PEI HAI*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_xbh set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*EVERGREE*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_evergree set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next


            Case str Like "*PROPERWELL*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_PROPERWELL set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*STELLA*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_Stella set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next


            Case str Like "*THANH*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_thanhhu set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next


            Case str Like "*锐奇*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_ruiqi set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("采购号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "' and work_no=N'" & dgv1.Rows(x).Cells("订单号").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next


            Case str Like "*穎億*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_yy set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and name=N'" & dgv1.Rows(x).Cells("品名").Value & "' and work_no=N'" & dgv1.Rows(x).Cells("指令号").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next



        End Select



        MsgBox("更新完成")





















    End Sub
End Class