HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/02、皮料管理/Frm_SHIP_DAILY.vb

Imports System.Data.SqlClient
Imports OfficeOpenXml
Imports System.Net
Imports Microsoft.Office.Interop
Imports System.Windows.Media

Public Class Frm_SHIP
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim my_year111 As Integer
    Dim my_month111 As Integer
    Dim mysplit() As String
    '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 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







        Dim yy As Integer = 0








        ListBox1.Items.Add(file_name)


        Dim my_customer As String = ""

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

            Dim s1 As Integer = 1

            sql = "select count(*) from rt_ship_daily_sj_vn where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_sj_vn where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If





            my_weight = 0

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


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







            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 (serial,filename,my_weight,no,name,qty_sf1,card,po_no,unit_price,work_no,order_month) values(N'" & s1 & "',N'" & file_name & "','" & my_weight & "','" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",'" & xlSheet.Cells(y, 5).value & "',N'" & xlSheet.Cells(y, 7).value & "'," & xlSheet.Cells(y, 11).value & ",N'" & xlSheet.Cells(y, 12).value & "','" & xlSheet.Cells(y, 13).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

                s1 = s1 + 1

            Next




            sql = "SELECT  * FROM      rt_ship_daily_sj_vn " '--------------------------

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

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

                mysplit = Split(dt.Rows(x).Item("name"), ",")


                If UBound(mysplit) = 0 Then
                    mysplit = Split(dt.Rows(x).Item("name"), "，")
                End If

                If UBound(mysplit) >= 1 Then
                    sql = "update rt_ship_daily_sj_vn set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and work_no='" & dt.Rows(x).Item("work_no") & "' and no='" & dt.Rows(x).Item("no") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()
                Else
                    sql = "update rt_ship_daily_sj_vn set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and no='" & dt.Rows(x).Item("no") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                End If




            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"

            sql = "select po_no as 订单号,name as 品名,work_no as 指令号,color1 as 颜色, CAST(SUM(qty_sf1) AS numeric(10, 1)) AS 尺数,deli_no as 发货单号 from RT_SHIP_DAILY_sj_vn group by po_no,work_no,name,deli_no,color1"

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

            dgv1.DataSource = dt







        ElseIf OpenFileDialog1.SafeFileName Like "*上杰*" And Not (OpenFileDialog1.SafeFileName Like "*越南*") Then     '----------------------------------------------------------------------------------上杰


            sql = "select count(*) from rt_ship_daily_sj where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_sj where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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




            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 = "select count(*) from rt_ship_daily_dongjia where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_dongjia where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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




            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 = 1
            For y = 2 To y - 1

                If y = 2 Then

                    my_no = xlSheet.Cells(y, 1).value

                End If




                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_dongjia (filename,serial,no,po_no,work_no,qty_sf1,name) values
                          (N'" & file_name & "','" & s1 & "','" & my_no & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 3).value & ",N'" & xlSheet.Cells(y, 2).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

                s1 = s1 + 1

            Next


            sql = "select name as 品名 ,po_no as 订单号,work_no as 指令号,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,deli_no as 发货单号 from rt_ship_daily_dongjia 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 = 300

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

            dgv1.Columns("指令号").Width = 80

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





        ElseIf OpenFileDialog1.SafeFileName Like "*宏福出货柜*" Then         '----------------------------------------------------------------------------------


            sql = "select count(*) from rt_ship_daily_hongfu where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_hongfu where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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




            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("A5:q" & 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 = 5 To y - 1


                sql = "insert into rt_ship_daily_hongfu (serial,filename,name,qty_sf,gw1,po_no,order_item,
                                                         qty_sf1,work_no,order_month,price) values
                          (N'" & xlSheet.Cells(y, 1).value & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 4).value & "'," & xlSheet.Cells(y, 6).value & ",N'" & 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 & "'," & xlSheet.Cells(y, 16).value & ")"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next








            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_hongfu 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



        ElseIf OpenFileDialog1.SafeFileName Like "*永丰*" Then         '----------------------------------------------------------------------------------永丰


            sql = "select count(*) from rt_ship_daily_yongfong where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_yongfong where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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


            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 OK5
                    End If

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

                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 y = 3 Then
                        my_no = 3
                        my_no1 = xlSheet.Cells(y, 11).value
                        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
                        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
                    End If



                    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_yongfong (filename,card,serial,no,qty_sf,po_no,work_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_yongfong (filename,card,serial,no,qty_sf,po_no,work_no,color,thick) values(N'" & file_name & "','" & xlSheet.Cells(y, 3).value & "','" & s1 & "','" & my_no & "'," & xlSheet.Cells(y, 2).value & ",N'" & xlSheet.Ce & "',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_yongfong (filename,card,serial,no,qty_sf,po_no,work_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_yongfong (filename,card,serial,no,qty_sf,po_no,work_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  * FROM rt_ship_daily_yongfong"  '--------------------------

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


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

                sql = "update rt_ship_daily_yongfong set size='"



                mysplit = Split(dt.Rows(x).Item("color"), "/")

                If UBound(mysplit) > 1 Then
                    sql = "update rt_ship_daily_yongfong set color1=N'" & mysplit(UBound(mysplit)) & "' where COLOR=N'" & dt.Rows(x).Item("COLOR") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "' AND FILENAME=N'" & dt.Rows(x).Item("serial") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()
                Else
                    sql = "update rt_ship_daily_yongfong set color1=N'" & dt.Rows(x).Item("color") & "' where COLOR=N'" & dt.Rows(x).Item("COLOR") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "' AND FILENAME=N'" & dt.Rows(x).Item("serial") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                End If


            Next







            sql = "SELECT   po_no AS 订单号, work_no AS 指令号, color AS 颜色, thick AS 厚度, cast(SUM(qty_sf) as numeric(10,1)) AS 尺数,deli as 发货单号 FROM      RT_ship_daily_yongfong GROUP BY po_no, work_no, color,thick,deli ORDER BY 订单号, 指令号, 颜色"
            cmd.CommandText = sql
            dt = New DataTable
            da.SelectCommand = cmd
            da.Fill(dt)



            dgv1.DataSource = dt


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








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


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


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

            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 = "select count(*) from rt_ship_daily_uz_1 where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_uz_1 where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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


            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, 11).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, 11).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 = "select count(*) from rt_ship_daily_yby where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_yby where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If









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


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


            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 = "select count(*) from rt_ship_daily_yb where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_yb where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If
















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


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




            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 = "select count(*) from rt_ship_daily_hongmei where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_hongmei where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If











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


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


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

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

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

            Next y

            yy = y - 1
            xlApp.Range("A4:w" & 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
            Dim my_color As String


            For y = 4 To y - 1


                If y = 4 Then

                    my_no = xlSheet.Cells(y, 1).value
                    'my_order_item = xlSheet.Cells(y, 1).value
                    my_name = xlSheet.Cells(y, 2).value
                    my_color = xlSheet.Cells(y, 4).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 Then
                Else

                    my_no = xlSheet.Cells(y, 1).value

                End If






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

            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 po_no as 订单号,name as 品名,color as 颜色,cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号 from rt_ship_daily_hongmei group by name,po_no,name,color,deli_no"



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




            dgv1.DataSource = dt


            dgv1.Columns("品名").Width = 350
            dgv1.Columns("订单号").Width = 120
            dgv1.Columns("颜色").Width = 100
            dgv1.Columns("尺数").Width = 120

        ElseIf OpenFileDialog1.SafeFileName Like "志捷*" Then  '------------------------------------------------------------------






            sql = "select count(*) from rt_ship_daily_jj where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_jj where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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






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

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

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

            Next y

            yy = y - 1
            'xlApp.Range("A3:h" & 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
            Dim my_color As String


            For y = 3 To y - 1


                If y = 3 Then

                    my_no = xlSheet.Cells(y, 1).value

                    my_name = xlSheet.Cells(y, 6).value
                    my_color = xlSheet.Cells(y, 4).value

                    my_po = xlSheet.Cells(y, 3).value
                    my_skuno = xlSheet.Cells(y, 4).value


                End If


                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_jj (color,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).Value.ToString.Replace("'", "''") & "',N'" & xlSheet.Cells(y, 5).value & "',N'" & xlSheet.Cells(y, 3).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 2).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1

            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 po_no as 订单号,name as 品名,work_no as 指令号,cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号 from rt_ship_daily_jj group by name,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 = 350
            dgv1.Columns("订单号").Width = 120
            dgv1.Columns("指令号").Width = 150
            dgv1.Columns("尺数").Width = 120



        ElseIf OpenFileDialog1.SafeFileName Like "076样品*" Then  '------------------------------------------------------------------


            sql = "select count(*) from rt_ship_daily_076_sample where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_076_sample where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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






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

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

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

            Next y

            yy = y - 1
            xlApp.Range("A3:h" & 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
            Dim my_color As String


            For y = 3 To y - 1


                If y = 3 Then

                    my_no = xlSheet.Cells(y, 1).value
                    'my_order_item = xlSheet.Cells(y, 1).value
                    my_name = xlSheet.Cells(y, 2).value
                    my_color = xlSheet.Cells(y, 5).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, 3).value
                    my_skuno = xlSheet.Cells(y, 4).value


                End If


                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_076_sample (work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "',N'" & xlSheet.Cells(y, 3).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 2).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1

            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 po_no as 订单号,name as 品名,work_no as 指令号,cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号 from rt_ship_daily_076_sample group by name,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 = 350
            dgv1.Columns("订单号").Width = 120
            dgv1.Columns("指令号").Width = 150
            dgv1.Columns("尺数").Width = 120



        ElseIf OpenFileDialog1.SafeFileName Like "加和*" Then


            sql = "select count(*) from rt_ship_daily_jh where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_jh where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If


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


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















            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




            Dim my_no As String


            For y = 4 To y - 1

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



                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_jh (filename,no1,po_no,sub_no,m_no,name,thick,
color,qty_sf) values(N'" & file_name & "','" &
                    my_no & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 3).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 & ")"
                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 as 项次, po_no as 订单号, sub_no as 汇总号, m_no as 料号, name as 品名, ltrim(thick) as 厚度, color as 颜色, qty_sf as 尺数,deli_no 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 = "select count(*) from rt_ship_daily_xbh where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_xbh where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If






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


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




            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 = "select count(*) from rt_ship_daily_ruiqi where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_ruiqi where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If




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


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

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


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



            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 "*HATAY*" Then '--------------------------------

        ElseIf OpenFileDialog1.SafeFileName Like "*亿博*" And OpenFileDialog1.SafeFileName Like "*华盛*" Then '-----------------------------------



            sql = "select count(*) from rt_ship_daily_yby_huasheng where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_yby_huasheng where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If











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


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


            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 = "select count(*) from rt_ship_daily_evergree where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_evergree where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If

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


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




            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 = "select count(*) from rt_ship_daily_thanhhu where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_thanhhu where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If






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


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


            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 "PROPERWELL*" Then '------------------------------------------------------

            sql = "select count(*) from rt_ship_daily_PROPERWELL where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_PROPERWELL where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If









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


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



            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 = "select count(*) from rt_ship_daily_STELLA where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_STELLA where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If








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


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





            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 = "select count(*) from rt_ship_daily_HATAY where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_HATAY where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If







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


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





            '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 "11111" Then '-----------------------------------------
        ElseIf OpenFileDialog1.SafeFileName Like "11111" Then '---------------------------------------------------
            xlApp = CreateObject("Excel.Application")
            xlApp.Visible = True
            xlApp.DisplayAlerts = False


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

            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







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


            sql = "select count(*) from rt_ship_daily_wh where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_wh where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If

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


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

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


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




            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



            dgv1.Columns("颜色").Width = 350
            dgv1.Columns("订单号").Width = 120

            '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 = "select count(*) from rt_ship_daily_samil where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_samil where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If

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


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







            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                 '-----------------宏福


            sql = "select count(*) from rt_ship_daily_hongfu where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_hongfu where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If

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


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





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




            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 "asdfa" Then '-------------------------------
        ElseIf OpenFileDialog1.SafeFileName Like "穎億*" Then '-------------------------

            sql = "select count(*) from rt_ship_daily_yy where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_yy where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If




            xlBook = xlApp.Workbooks.Open(file_name,, True)
            xlBook.Activate()
            xlApp = CreateObject("Excel.Application")
            xlApp.Visible = True
            xlApp.DisplayAlerts = False


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





            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 = "select count(*) from rt_ship_daily_af where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_af where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If




            xlBook = xlApp.Workbooks.Open(file_name,, True)
            xlBook.Activate()
            xlApp = CreateObject("Excel.Application")
            xlApp.Visible = True
            xlApp.DisplayAlerts = False


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




            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 = "select count(*) from rt_ship_daily_jlk where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_jlk where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If

















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


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



            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, 5).value
                                my_thick = xlSheet.Cells(y, 6).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, 12).value
                                my_thick1 = xlSheet.Cells(y, 13).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 尺数,deli_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 "adsfaf" Then  '----------------------------
        ElseIf OpenFileDialog1.SafeFileName Like "asdfasdfasd" Then '--------------------
        ElseIf OpenFileDialog1.SafeFileName Like "*永驰*" Then '------------------------------------------------


            sql = "select count(*) from rt_ship_daily_yongchi where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_daily_yongchi where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If










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


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



            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, 13).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:s" & yyy - 1).MergeCells.ToString <> "False" Then

                    xlSheet.Range("K3:s" & 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


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




                    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_yongchi (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_yongchi (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_yongchi (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_yongchi (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 尺数 FROM      rt_ship_daily_yongchi GROUP BY order_no, i_no, color, thick ORDER BY 订单号, 指令号, 颜色"
            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_daily_yongchi
                 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_yongchi
                 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 "076发货*" Then '------------------------076




            sql = "select count(*) from rt_ship_076_1 where filename=N'" & file_name & "'"
            cmd.CommandText = sql
            Dim msg As String
            If cmd.ExecuteScalar > 0 Then

                msg = MsgBox("资料已经存在，是否要覆盖?", MsgBoxStyle.YesNo, "警告")


                If msg = vbNo Then

                    Exit Sub


                End If

            End If


            If msg = vbYes Then

                sql = "delete from rt_ship_076_1 where filename=N'" & file_name & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()


            End If



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


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


            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 OK6
                    End If

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

                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 = "SELECT   order_no AS 订单号, i_no AS 指令号, color AS 颜色, thick AS 厚度, cast(SUM(sf) as numeric(10,1)) AS 尺数 FROM      RT_ship_076_1 GROUP BY order_no, i_no, color, thick ORDER BY 订单号, 指令号, 颜色"
            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("找不到相对应的模组")
            Exit Sub

        End If


















        xlApp.Visible = True


        xlApp.Quit()

        xlSheet = Nothing '釋放sheet物件


        '  xlApp.Quit() '關閉Excel





        KillExcel(xlApp)









        MsgBox("作业完成")
    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 Frm_SHIP_Load(sender As Object, e As EventArgs) Handles MyBase.Load



        dgv1.AllowUserToAddRows = False



        Button2.Enabled = False



        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)
            chklist1.Items.Add(cmd.ExecuteScalar)
        End If



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

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


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

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

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

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

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

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

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

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.Items.Add(cmd.ExecuteScalar)
        End If


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

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

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

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.Items.Add(cmd.ExecuteScalar)
        End If
        sql = "select filename from rt_ship_daily_sj_vn group by filename"
        cmd.CommandText = sql

        If Not (cmd.ExecuteScalar Is Nothing) Then
            ListBox3.Items.Add(cmd.ExecuteScalar)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.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)
            chklist1.Items.Add(cmd.ExecuteScalar)
        End If





        sql = "select date as 日期,custname as 客户,color as 颜色,cast(sum(sf) as numeric(10,1)) as 尺数, deli_no as 发货单号,deli as 送货人 from rt_ship_temp group by date,custname,color,deli_no,deli order by date "
        cmd.CommandText = sql


        Dim DT As New DataTable
        da.SelectCommand = cmd
        da.Fill(DT)


        DataGridView1.DataSource = DT

        DataGridView1.Columns(0).Width = 120
        DataGridView1.Columns(1).Width = 200
        DataGridView1.RowHeadersWidth = 5


        sql = "select 日期,客户,sum(尺数) as 尺数,类型,送货人 from (select date as 日期,custname as 客户,cast(sum(sf) as numeric(10,1)) as 尺数,case when pattern is null then N'反毛' else N'贴膜' end as 类型,
deli as 送货人 from rt_ship_temp group by date,custname,deli,pattern) as p group by 日期,客户,类型,送货人  order by 日期"
        cmd.CommandText = sql


        DT = New DataTable
        da.SelectCommand = cmd
        da.Fill(DT)


        DataGridView2.DataSource = DT

        DataGridView2.Columns(0).Width = 120
        DataGridView2.Columns(1).Width = 200
        DataGridView2.RowHeadersWidth = 5




    End Sub

    Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged


        Button2.Enabled = True


        Dim str = ListBox3.Items(ListBox3.SelectedIndex).ToString
        Dim DT As DataTable


        Select Case True
            Case str Like "*076*" And Not (str Like "*076样品*")
                sql = "SELECT   order_no AS 订单号, i_no AS 指令号, color AS 颜色, thick AS 厚度, cast(SUM(sf) as numeric(10,1)) AS 尺数,DELI_NO AS 发货单号,filename as 档案名 FROM      RT_ship_076_1 GROUP BY order_no, i_no, color, thick,DELI_NO,filename "
                cmd.CommandText = sql
                DT = New DataTable
                da.SelectCommand = cmd
                da.Fill(DT)





                dgv1.DataSource = DT
                dgv1.Columns("订单号").Width = 150
                dgv1.Columns("指令号").Width = 150
                dgv1.Columns("厚度").Width = 80

                dgv1.Columns("颜色").Width = 200
                dgv1.Columns("档案名").Width = 350
            Case str Like "*076样品*"

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


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


                dgv1.DataSource = DT

                dgv1.Columns("品名").Width = 200
                dgv1.Columns("指令号").Width = 150
                dgv1.Columns("档案名").Width = 350

            Case str Like "*永驰*"
                sql = "SELECT   serial as 序号,order_no AS 订单号, color AS 颜色, thick AS 厚度, cast(SUM(sf) as numeric(10,1)) AS 尺数,DELI_NO AS 发货单号,filename as 档案名 FROM      RT_ship_daily_yongchi GROUP BY order_no, serial, color, thick,DELI_NO,filename "
                cmd.CommandText = sql
                DT = New DataTable
                da.SelectCommand = cmd
                da.Fill(DT)
                dgv1.DataSource = DT
                dgv1.Columns("颜色").Width = 300
                dgv1.Columns("档案名").Width = 350


            Case str Like "*永丰*"
                sql = "SELECT   po_no AS 订单号, work_no as 指令号,color AS 颜色, thick AS 厚度, cast(SUM(qty_sf) as numeric(10,1)) AS 尺数,DELI_NO AS 发货单号,filename as 档案名 FROM      RT_ship_daily_yongfong GROUP BY po_no, work_no, color, thick,DELI_NO,filename "
                cmd.CommandText = sql
                DT = New DataTable
                da.SelectCommand = cmd
                da.Fill(DT)
                dgv1.DataSource = DT
                dgv1.Columns("颜色").Width = 300
                dgv1.Columns("档案名").Width = 350




            Case str Like "*宏美*"
                sql = "SELECT   po_no AS 订单号, color AS 颜色, name as 品名, cast(SUM(qty) as numeric(10,1)) AS 尺数,DELI_NO AS 发货单号,filename as 档案名 FROM      RT_ship_daily_hongmei GROUP BY po_no, color, name,DELI_NO,filename "
                cmd.CommandText = sql
                DT = New DataTable
                da.SelectCommand = cmd
                da.Fill(DT)




                dgv1.DataSource = DT
                dgv1.Columns("订单号").Width = 120
                dgv1.Columns("颜色").Width = 120
                dgv1.Columns("品名").Width = 300
                dgv1.Columns("档案名").Width = 350
            Case str Like "*澳孚*"

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


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


                dgv1.DataSource = DT

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

            Case str Like "*东家*"

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


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


                dgv1.DataSource = DT

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




            Case str Like "*宏福*"

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


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


                dgv1.DataSource = DT

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

            Case str Like "*志捷*"

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


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


                dgv1.DataSource = DT

                dgv1.Columns("品名").Width = 200
                dgv1.Columns("指令号").Width = 150
                dgv1.Columns("档案名").Width = 350


            Case str Like "*威弘*"

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

            Case str Like "*永正发货*"

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



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


                dgv1.DataSource = DT


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

            Case str Like "*极路客*"

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



                dgv1.DataSource = DT
                dgv1.Columns("档案名").Width = 350

            Case str Like "*上杰*" And Not (str Like "*货柜*")
                sql = "select name as 品名 ,po_no as 订单号,order_item as 项次号,cast(sum(qty_sf1) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名 from rt_ship_daily_sj group by name,po_no,order_item,deli_no,filename "


                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
                dgv1.Columns("档案名").Width = 350

            Case str Like "*上杰*" And str Like "*越南*"
                sql = "SELECT  name as 品名, po_no AS 订单号, work_no as 指令号,color1 AS 颜色,  cast(SUM(qty_sf1) as numeric(10,1)) AS 尺数,DELI_NO AS 发货单号,filename as 档案名 FROM   RT_ship_daily_sj_vn GROUP BY name,po_no, work_no, color1, DELI_NO,filename "
                cmd.CommandText = sql
                DT = New DataTable
                da.SelectCommand = cmd
                da.Fill(DT)
                dgv1.DataSource = DT

                dgv1.Columns("颜色").Width = 100
                dgv1.Columns("品名").Width = 200
                dgv1.Columns("订单号").Width = 200
                dgv1.Columns("指令号").Width = 200

                dgv1.Columns("档案名").Width = 350

            Case str Like "*SAMIL*"
                sql = "select name as 品名,po_no as 订单号,cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名 from rt_ship_daily_samil group by name,po_no,deli_no,filename"

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

                dgv1.DataSource = DT

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

            Case str Like "*亿博*" And Not (str Like "*亿博样*")
                sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from RT_SHIP_DAILY_YB group by po_no,name,deli_no,filename"

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

                dgv1.DataSource = DT

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


            Case str Like "*亿博*" And (str Like "*华盛*")
                sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from rt_ship_daily_yby_huasheng group by po_no,name,deli_no,filename"

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

                dgv1.DataSource = DT

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

            Case str Like "*亿博样*" And Not (str Like "*华盛*")
                sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from RT_SHIP_DAILY_YBy group by po_no,name,deli_no,filename"

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

                dgv1.DataSource = DT

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

            Case str Like "*PEI HAI*"

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

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

                dgv1.DataSource = DT

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

            Case str Like "*EVERGREE*"
                sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from RT_SHIP_DAILY_evergree group by po_no,name,deli_no,filename"

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

                dgv1.DataSource = DT

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

            Case str Like "*PROPERWELL*"
                sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from RT_SHIP_DAILY_PROPERWELL group by po_no,name,deli_no,filename"

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

                dgv1.DataSource = DT

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

            Case str Like "*STELLA*"
                sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from RT_SHIP_DAILY_stella group by po_no,name,deli_no,filename"

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

                dgv1.DataSource = DT

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

            Case str Like "*THANH*"
                sql = "SELECT name as 品名,po_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from RT_SHIP_DAILY_thanhhu group by po_no,name,deli_no,filename"

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

                dgv1.DataSource = DT

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

            Case str Like "*锐奇*"
                sql = "SELECT name as 品名,po_no as 采购号,work_no as 订单号, cast(sum(qty) as numeric(10,1)) as 尺数,deli_no as 发货单号,filename as 档案名  from RT_SHIP_DAILY_ruiqi group by po_no,name,work_no,deli_no,filename"

                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
                dgv1.Columns("档案名").Width = 350

            Case str Like "*穎億*"

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

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

                dgv1.DataSource = DT

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

            Case str Like "*加和*"

                sql = "SELECT   no1 as 项次, po_no as 订单号, sub_no as 汇总号, m_no as 料号, name as 品名, ltrim(thick) as 厚度, color as 颜色, qty_sf as 尺数,deli_no as 发货单号,filename as 档案名 FROM      RT_SHIP_DAILY_JH"

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

                dgv1.DataSource = DT

                dgv1.Columns("订单号").Width = 150
                dgv1.Columns("品名").Width = 250
                dgv1.Columns("档案名").Width = 350
        End Select







    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  '---更新发货单号

        Dim str = ListBox3.Items(ListBox3.SelectedIndex).ToString



        Select Case True
            Case str Like "*076*" And Not (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_hongfu 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 & "'and name=N'" & dgv1.Rows(x).Cells("品名").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Case str Like "*076样*"

                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_076_sample 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 & "'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_jj 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.ToString.Replace("'", "''") & "'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_yongchi set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where order_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and color=N'" & dgv1.Rows(x).Cells("颜色").Value & "' and serial='" & 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_dongjia 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 & "' 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

                    If dgv1.Rows(x).Cells("品名").Value Is Nothing Then

                    Else

                        sql = "update  rt_ship_daily_jh 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 qty_sf=N'" & dgv1.Rows(x).Cells("尺数").Value & "' and color=N'" & dgv1.Rows(x).Cells("颜色").Value & "'"
                        cmd.CommandText = sql
                        cmd.ExecuteScalar()
                    End If



                Next

            Case str Like "*宏美*"

                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_hongmei set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and color=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_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='" & 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 "*上杰*" And str Like "*越南*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_sj_vn 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 & "'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


            Case str Like "*永丰*"


                For x As Integer = 0 To dgv1.Rows.Count - 1
                    sql = "update  rt_ship_daily_YONGFONG set deli_no='" & dgv1.Rows(x).Cells("发货单号").Value & "' where po_no =N'" & dgv1.Rows(x).Cells("订单号").Value & "'
                            and COLOR=N'" & dgv1.Rows(x).Cells("颜色").Value & "' and THICK=N'" & dgv1.Rows(x).Cells("厚度").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next


        End Select

        Button2.Enabled = False

        MsgBox("更新完成")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        change_color() '4970   更新颜色


        ' getdate()  '4902   更新日期









    End Sub
    Private Sub export_to_excel()    '输出至excel


        Dim dt As New DataTable

        If IsNumeric(TextBox4.Text) Then
        Else

            MsgBox("未输入单号/单号格式有误")
            Exit Sub
        End If

        sql = "select count(*) from rt_ship_temp where cust is null or custname is null"
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then


            sql = "select filename 档案名,color as 颜色,sf as 尺数,no as 序号 from rt_ship_temp where cust is null or custname is null order by filename"
            dt = New DataTable

            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt)
            dgv1.DataSource = dt
            MsgBox("请检查客户名/客户编号")
            Exit Sub

        End If

        sql = "select count(*) from rt_ship_temp where date is null"
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then

            sql = "select filename 档案名,color as 颜色,sf as 尺数,no as 序号 from rt_ship_temp where date is null order by filename"
            dt = New DataTable

            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt)
            dgv1.DataSource = dt
            MsgBox("请检查出货日期")
            Exit Sub

        End If


        sql = "select count(*) from rt_ship_temp where color is null "
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then


            sql = "select filename 档案名,color as 颜色,sf as 尺数,no as 序号 from rt_ship_temp where cust is null order by filename"
            dt = New DataTable

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

            dgv1.DataSource = dt

            MsgBox("请检查颜色栏位")
            Exit Sub

        End If


        sql = "select count(*) from rt_ship_temp where deli is null "
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then

            MsgBox("请检查送货人")
            Exit Sub

        End If



        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 xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet




        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()



        Dim dt2 As New DataTable


        For i = 1 To xlApp.Worksheets.Count

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


        Next


        dt = New DataTable
        sql = "SELECT  order_no,deli_no,work_no, cust,custname,date,filename,deli FROM rt_ship_temp group by deli_no,order_no,cust,date,filename,custname,work_no,deli"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)







        Dim aa As Integer




        aa = TextBox4.Text
        Dim my_no As String = "XSCK0"
        Dim yy As Integer = 1
        Dim x As Integer = 0


        For x = 0 To dt.Rows.Count - 1

            xlSheet.Cells(x + 2, 1) = dt.Rows(x).Item("date")
            xlSheet.Cells(x + 2, 2) = dt.Rows(x).Item("date")
            xlSheet.Cells(x + 2, 3) = "'Richzhang"
            xlSheet.Cells(x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(x + 2, 5) = "'Richzhang"

            xlSheet.Cells(x + 2, 9) = "'" & dt.Rows(x).Item("cust")
            xlSheet.Cells(x + 2, 10) = "'" & dt.Rows(x).Item("custname")


            xlSheet.Cells(x + 2, 34) = dt.Rows(x).Item("date")
            xlSheet.Cells(x + 2, 46) = "'" & dt.Rows(x).Item("order_no")
            xlSheet.Cells(x + 2, 47) = "'" & dt.Rows(x).Item("work_no")



            If dt.Rows(x).Item("custname") Like "%样%" Then
                xlSheet.Cells(x + 2, 47) = "'样品"

            End If

            ' xlSheet.Cells(x + 5, 48) = "型体号"

            'If dt.Rows(x).Item("custname") Like "*澳孚*" Or dt.Rows(x).Item("custname") Like "*贝孚第*" Or dt.Rows(x).Item("custname") Like "*大田*" Or dt.Rows(x).Item("custname") Like "*德艺科技*" Or dt.Rows(x).Item("custname") Like "*澳孚*" Or
            '    dt.Rows(x).Item("custname") Like "*东家*" Or dt.Rows(x).Item("custname") Like "*东霖*" Or dt.Rows(x).Item("custname") Like "*东治*" Or dt.Rows(x).Item("custname") Like "*贵州唐先生*" Or dt.Rows(x).Item("custname") Like "*宏美二厂*" Or
            '    dt.Rows(x).Item("custname") Like "*龙优*" Or dt.Rows(x).Item("custname") Like "*美迪洋*" Or dt.Rows(x).Item("custname") Like "*美浩实业*" Or dt.Rows(x).Item("custname") Like "*名志鞋业*" Or dt.Rows(x).Item("custname") Like "*秋夏皮业*" Or
            '    dt.Rows(x).Item("custname") Like "*三益鞋厂*" Or dt.Rows(x).Item("custname") Like "*三元鞋厂*" Or dt.Rows(x).Item("custname") Like "*卫士*" Or dt.Rows(x).Item("custname") Like "*许宝贝*" Or dt.Rows(x).Item("custname") Like "*永盛*" Or
            '    dt.Rows(x).Item("custname") Like "*振兴皮行*" Or dt.Rows(x).Item("custname") Like "*中山华新*" Or dt.Rows(x).Item("custname") Like "*汇力*" Or dt.Rows(x).Item("custname") Like "*惠雄*" Or dt.Rows(x).Item("custname") Like "*金帝*" Or dt.Rows(x).Item("custname") Like "*凯运皮革*" Or dt.Rows(x).Item("custname") Like "*励泰*" Or dt.Rows(x).Item("custname") Like "*锐奇*" Then



            'Else




            'End If



            '    If dt.Rows(x).Item("custname") Like "*样*" Or dt.Rows(x).Item("custname") Like "*志捷*" Then


            'End If


            If dt.Rows(x).Item("deli") = "陈立雄" Then

                xlSheet.Cells(x + 2, 49) = "'021"
                xlSheet.Cells(x + 2, 50) = "'陈立雄"
            End If

            If dt.Rows(x).Item("deli") = "尤珊荣" Then

                xlSheet.Cells(x + 2, 49) = "'020"
                xlSheet.Cells(x + 2, 50) = "'尤珊荣"

            End If

            If dt.Rows(x).Item("deli") = "许燕江" Then
                xlSheet.Cells(x + 2, 49) = "'206"
                xlSheet.Cells(x + 2, 50) = "'许燕江"

            End If

            If dt.Rows(x).Item("deli") = "蔡青山" Then
                xlSheet.Cells(x + 2, 49) = "'016"
                xlSheet.Cells(x + 2, 50) = "'蔡青山"

            End If




            For i = 1 To xlApp.Worksheets.Count

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

            Next


            dt2 = New DataTable
            sql = "select date,cust,color,deli_no,card,thick,sum(sf) as qty,pattern from rt_ship_temp where deli_no='" & dt.Rows(x).Item("deli_no") & "' and filename=N'" & dt.Rows(x).Item("filename") & "' group by date,cust,color,deli_no,card,thick,pattern"



            sql = "SELECT  sum(rt_ship_temp.sf) as qty, rt_ship_temp.work_no, rt_ship_temp.color, rt_ship_temp.pattern,rt_ship_temp.SIZE,
                   rt_ship_temp.thick, rt_ship_temp.deli_no, rt_ship_temp.card,  rt_ship_temp.card,  
                   CASE WHEN RT_RETAN_RECORD.source LIKE N'%美国广东%' THEN N'516.F.A2' WHEN RT_RETAN_RECORD.source LIKE N'%美国APP%'
                    THEN N'516.F.A3' WHEN RT_RETAN_RECORD.source LIKE N'%阿根廷%' THEN N'516.F.B1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%澳州%' THEN N'516.F.C1' WHEN RT_RETAN_RECORD.source LIKE N'%南非%' THEN N'516.F.E1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%乌拉圭%' THEN N'516.F.F1' WHEN RT_RETAN_RECORD.source LIKE N'%墨西哥%' THEN N'516.F.G1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%泰国%' THEN N'516.F.H1' WHEN RT_RETAN_RECORD.source LIKE N'%新西兰%' THEN N'516.F.I1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%欧州%' THEN N'516.F.J1' WHEN RT_RETAN_RECORD.source LIKE N'%孟加拉%' THEN N'516.F.K1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%西班牙%' THEN N'516.F.L1' WHEN RT_RETAN_RECORD.source LIKE N'%巴西%' THEN N'516.F.N1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%英国%' THEN N'516.F.O1' WHEN RT_RETAN_RECORD.source LIKE N'%肯尼亚%' THEN N'516.F.P1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%智利%' THEN N'516.F.Q1' WHEN RT_RETAN_RECORD.source LIKE N'%德国%' THEN N'516.F.R1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%日本%' THEN N'516.F.S1' WHEN RT_RETAN_RECORD.source LIKE N'%俄罗斯%' THEN N'516.F.T1' WHEN RT_RETAN_RECORD.source
                    LIKE N'%台湾泰庆%' THEN N'516.F.Z1' WHEN RT_RETAN_RECORD.source LIKE N'%杂皮%' THEN N'516.F.Z9' WHEN RT_RETAN_RECORD.source
                    LIKE N'%二层%' THEN N'516.P.01' ELSE '516.F.Z9' END AS source,
					CASE WHEN RT_RETAN_RECORD.source LIKE N'%美国广东%' THEN N'美国广东 二层' 
					WHEN RT_RETAN_RECORD.source LIKE N'%美国APP%' THEN N'美国APP 二层' WHEN RT_RETAN_RECORD.source LIKE N'%阿根廷%' THEN N'阿根廷 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%澳州%' THEN N'澳洲 二层' WHEN RT_RETAN_RECORD.source LIKE N'%南非%' THEN N'南非 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN RT_RETAN_RECORD.source LIKE N'%墨西哥%' THEN N'墨西哥 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%泰国%' THEN N'泰国 二层' WHEN RT_RETAN_RECORD.source LIKE N'%新西兰%' THEN N'新西兰 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%欧州%' THEN N'欧洲 二层' WHEN RT_RETAN_RECORD.source LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%西班牙%' THEN N'西班牙 二层' WHEN RT_RETAN_RECORD.source LIKE N'%巴西%' THEN N'巴西 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%英国%' THEN N'英国 二层' WHEN RT_RETAN_RECORD.source LIKE N'%肯尼亚%' THEN N'肯尼亚 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%智利%' THEN N'智利 二层' WHEN RT_RETAN_RECORD.source LIKE N'%德国%' THEN N'德国 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%日本%' THEN N'日本 二层' WHEN RT_RETAN_RECORD.source LIKE N'%俄罗斯%' THEN N'俄罗斯 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%台湾泰庆%' THEN N'台湾泰庆 二层' WHEN RT_RETAN_RECORD.source LIKE N'%杂皮%' THEN N'杂皮 二层' WHEN RT_RETAN_RECORD.source
                    LIKE N'%二层%' THEN N'二层' ELSE N'杂皮 二层' END AS source1
FROM      rt_ship_temp LEFT OUTER JOIN
                   RT_RETAN_RECORD ON rt_ship_temp.card = RIGHT(RT_RETAN_RECORD.card, 8) where deli_no='" & dt.Rows(x).Item("deli_no") & "' and filename=N'" & dt.Rows(x).Item("filename") & "' group by rt_ship_temp.date,rt_ship_temp.cust,rt_ship_temp.SIZE,rt_ship_temp.color,rt_ship_temp.deli_no,rt_ship_temp.card,rt_ship_temp.thick,rt_ship_temp.pattern,rt_ship_temp.work_no,RT_RETAN_RECORD.source,rt_ship_temp.pattern"

            cmd.CommandText = sql
            da.SelectCommand = cmd
            da.Fill(dt2)










            Dim serial As Integer = 1

            For y = 0 To dt2.Rows.Count - 1

                xlSheet2.Cells(yy + 1 + y, 5) = "'" & serial  '行号
                xlSheet2.Cells(yy + 1 + y, 6) = "'" & my_no & aa
                ' xlSheet2.Cells(yy 1 5 + y, 7) = "'21"

                xlSheet2.Cells(yy + 1 + y, 9) = dt2.Rows(y).Item("source")
                xlSheet2.Cells(yy + 1 + y, 10) = dt2.Rows(y).Item("source1")

                ' xlSheet2.Cells(yy + 5 + y, 15) = "'3 尺/kg"
                ' xlSheet2.Cells(yy + 5 + y, 16) = "'平方英尺"

                xlSheet2.Cells(yy + 1 + y, 18) = dt2.Rows(y).Item("qty")

                xlSheet2.Cells(yy + 1 + y, 21) = dt2.Rows(y).Item("SIZE")
                xlSheet2.Cells(yy + 1 + y, 22) = dt2.Rows(y).Item("qty")




                '  xlSheet2.Cells(yy + 5 + y, 28) = "'516-R"
                '  xlSheet2.Cells(yy + 5 + y, 29) = "'待售成品仓/赤湖"


                xlSheet2.Cells(yy + 1 + y, 55) = "'" & dt2.Rows(y).Item("color")
                'xlSheet2.Cells(yy + 5 + y, 5) 品名

                xlSheet2.Cells(yy + 1 + y, 57) = "'" & dt2.Rows(y).Item("thick")
                xlSheet2.Cells(yy + 1 + y, 58) = "'" & dt2.Rows(y).Item("card")  '流程卡号
                '    xlSheet2.Cells(yy + 1 + y, 63) = "'" & dt2.Rows(y).Item("work_no")  '工作指令号

                If Len(dt2.Rows(y).Item("pattern").ToString) < 2 Then
                    xlSheet2.Cells(yy + 1 + y, 64) = "'反毛皮"
                Else
                    xlSheet2.Cells(yy + 1 + y, 64) = "'贴膜"

                    xlSheet2.Cells(yy + 1 + y, 9) = "516.P.01"
                    xlSheet2.Cells(yy + 1 + y, 10) = "二层"


                End If


                xlSheet2.Cells(yy + 1 + y, 65) = "'" & dt2.Rows(y).Item("pattern")   '贴膜纹路

                xlSheet2.Cells(yy + 1 + y, 66) = "'" & dt2.Rows(y).Item("deli_no")    '送货单号

                serial = serial + 1

            Next

            yy = yy + dt2.Rows.Count


            aa = aa + 1


        Next




        ''  xlSheet.Range("C2:C" & x + 1).FillDown()
        ''xlSheet.Range("E2:E" & x + 1).FillDown()
        xlSheet.Range("F2:F" & x + 1).FillDown()
        xlSheet.Range("G2:G" & x + 1).FillDown()
        xlSheet.Range("H2:H" & x + 1).FillDown()
        xlSheet.Range("K2:K" & x + 1).FillDown()
        xlSheet.Range("L2:L" & x + 1).FillDown()
        xlSheet.Range("M2:M" & x + 1).FillDown()
        xlSheet.Range("N2:N" & x + 1).FillDown()
        xlSheet.Range("O2:O" & x + 1).FillDown()
        xlSheet.Range("P2:P" & x + 1).FillDown()
        xlSheet.Range("Q2:Q" & x + 1).FillDown()
        xlSheet.Range("U2:U" & x + 1).FillDown()
        xlSheet.Range("V2:V" & x + 1).FillDown()
        xlSheet.Range("W2:W" & x + 1).FillDown()
        xlSheet.Range("X2:X" & x + 1).FillDown()
        xlSheet.Range("Y2:Y" & x + 1).FillDown()
        xlSheet.Range("AD2:AD" & x + 1).FillDown()
        xlSheet.Range("AE2:AE" & x + 1).FillDown()



        xlSheet2.Range("C2:C" & yy).FillDown()
        xlSheet2.Range("A2:A" & yy).FillDown()

        xlSheet2.Range("G2:G" & yy).FillDown()

        xlSheet2.Range("N2:N" & yy).FillDown()
        xlSheet2.Range("O2:O" & yy).FillDown()
        xlSheet2.Range("P2:P" & yy).FillDown()
        xlSheet2.Range("S2:S" & yy).FillDown()
        xlSheet2.Range("T2:T" & yy).FillDown()

        xlSheet2.Range("W2:W" & yy).FillDown()
        xlSheet2.Range("X2:X" & yy).FillDown()
        xlSheet2.Range("Y2:Y" & yy).FillDown()
        xlSheet2.Range("AB2:AB" & yy).FillDown()
        xlSheet2.Range("AC2:AC" & yy).FillDown()














        'dt = New DataTable
        'sql = "SELECT  no, sf, order_no, i_no, color, thick, deli_no, serial, card, filename, work_no, orderitem, pattern, cust, date FROM      rt_ship_temp"
        'cmd.CommandText = sql
        'da.SelectCommand = cmd
        'da.Fill(dt)


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


        '    xlSheet2.Cells(x + 2, 2) = dt.Rows(x).Item("date")
        '    xlSheet2.Cells(x + 2, 4) = My
        '    xlSheet2.Cells(x + 2, 6) = "1"
        '    xlSheet2.Cells(x + 2, 9) = dt.Rows(x).Item("cust")
        '    xlSheet2.Cells(x + 2, 12) = "FXF02"
        '    xlSheet2.Cells(x + 2, 14) = "233"
        '    xlSheet2.Cells(x + 2, 16) = "112"


        '    xlSheet2.Cells(x + 2, 17) = "成品仓阿娇"
        '    xlSheet2.Cells(x + 2, 21) = "XSLX01"

        '    xlSheet2.Cells(x + 2, 24) = "0"

        '    xlSheet2.Cells(x + 2, 30) = "017"
        '    xlSheet2.Cells(x + 2, 34) = "0"
        '    xlSheet2.Cells(x + 2, 46) = dt.Rows(x).Item("order_no")





        'Next




        MsgBox("")




    End Sub
    Private Sub getdate()        '----------------新增temp之后改日期
        Dim dt As New DataTable
        Dim mysplit() As String
        Dim str() As String

        sql = "select * from rt_ship_temp"
        cmd.CommandText = sql
        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)


        Dim mymonth As Integer
        Dim myday As Integer

        Dim mydate As String

        Dim d As Date


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

            'If dt.Rows(x).Item("custname") Like "*志捷*" Then

            '    Dim aaaa As Integer
            '    aaaa = 1



            'End If




            mysplit = Split(dt.Rows(x).Item("filename"), ".xls")

            If UBound(mysplit) = 0 Then
                mysplit = Split(dt.Rows(x).Item("filename"), ".xlsx")
            End If


            str = Split(mysplit(0), ".")

            If IsNumeric(Mid(str(0), Len(str(0)) - 1, 2)) Then

                mymonth = Mid(str(0), Len(str(0)) - 1, 2)
            Else
                mymonth = Mid(str(0), Len(str(0)) - 1, 1)

            End If








            If IsNumeric(Mid(str(1), 1, 2)) Then


                If IsNumeric(Mid(str(1), 2, 1)) Then

                    myday = Mid(str(1), 1, 2)
                Else
                    myday = Mid(str(1), 1, 1)


                End If






            Else


                If IsNumeric(Mid(str(1), 2, 1)) Then

                    myday = Mid(str(1), 1, 2)
                Else
                    myday = Mid(str(1), 1, 1)
                End If


                'myday = Mid(str(1), 2, 1)

            End If


            mydate = "2022" & "/" & mymonth & "/" & myday


            d = mydate


            sql = "update rt_ship_temp set date='" & d & "' where  deli_no='" & dt.Rows(x).Item("deli_no") & "' and sf='" & dt.Rows(x).Item("sf") & "' and filename=N'" & dt.Rows(x).Item("filename") & "' and serial='" & dt.Rows(x).Item("serial") & "'"

            sql = "update rt_ship_temp set date='" & d & "' where  deli_no='" & dt.Rows(x).Item("deli_no") & "' and order_no=N'" & dt.Rows(x).Item("order_no") & "' and sf='" & dt.Rows(x).Item("sf") & "' and filename=N'" & dt.Rows(x).Item("filename") & "' and serial='" & dt.Rows(x).Item("serial") & "'"

            cmd.CommandText = sql
            cmd.ExecuteScalar()











        Next


        sql = "update rt_ship_temp set size=N'8以上身' where name like N'榔皮%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8以上软' where name like N'软榔%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8尺以上' where pattern is not null and  (custname like N'%澳孚%'  or custname like N'%东家%' or custname like N'%东治%' or custname like N'%华新%' or custname like N'%蜘蛛王%') "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8以上身' where pattern is not null and (custname like N'%金威利%' or custname like N'%威弘%') and color not like '%SM%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'4-8小皮' where pattern is not null and (custname like N'%金威利%' or custname like N'%威弘%') and color like '%SM%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8以上身' where pattern is not null and  (custname like N'%永山%' or custname like N'%宏福%'  or custname like N'%亿博%' or custname like N'%宏美%' or custname like N'%大田%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8-12尺' where pattern is not null and  (custname like N'%锐奇%'  or custname like N'%凯运%' or custname like N'%东霖%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp set size=N'8-12尺和12以上' where pattern is not null and  custname like N'%源泰%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()




        MsgBox("更新完成")


    End Sub

    Private Sub change_color()    '----更新颜色

        Dim dt As New DataTable
        Dim mysplit() As String

        sql = "SELECT  no, sf, order_no, i_no, color, thick, deli_no, card_no, serial, card, filename FROM rt_ship_076_1"  '--------------------------

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

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

            sql = "update rt_ship_076_1 set size='"



            mysplit = Split(dt.Rows(x).Item("color"), "/")

            If UBound(mysplit) > 1 Then
                sql = "update rt_ship_076_1 set color1=N'" & mysplit(2) & "' where order_no=N'" & dt.Rows(x).Item("order_no") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_076_1 set color1=N'" & dt.Rows(x).Item("color") & "' where order_no=N'" & dt.Rows(x).Item("order_no") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If


        Next

        sql = "SELECT  no, sf, order_no, i_no, color, thick, deli_no, card_no, serial, card, filename FROM rt_ship_daily_yongchi"  '--------------------------

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

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





            mysplit = Split(dt.Rows(x).Item("color"), "/")

            If UBound(mysplit) > 1 Then
                sql = "update rt_ship_daily_yongchi set color1=N'" & mysplit(UBound(mysplit)) & "' where order_no=N'" & dt.Rows(x).Item("order_no") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_yongchi set color1=N'" & dt.Rows(x).Item("color") & "' where order_no=N'" & dt.Rows(x).Item("order_no") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If


        Next

        sql = "SELECT  * FROM rt_ship_daily_yongFONG"  '--------------------------

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

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





            mysplit = Split(dt.Rows(x).Item("color"), "/")

            If UBound(mysplit) > 1 Then
                sql = "update rt_ship_daily_yongFONG set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and color='" & dt.Rows(x).Item("color") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_yongFONG set color1=N'" & dt.Rows(x).Item("color") & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and color='" & dt.Rows(x).Item("color") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If


        Next


        sql = "SELECT  no, qty, po_no, name,deli_no,serial FROM rt_ship_daily_076_sample"  '--------------------------

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

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




            sql = "update rt_ship_daily_076_sample set color1=N'" & dt.Rows(x).Item("name") & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
            cmd.CommandText = sql
                cmd.ExecuteScalar()




        Next




        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,color1 FROM      rt_ship_daily_evergree " '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_evergree set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_evergree set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next




        sql = "update rt_ship_daily_jh set color1=color" '--------------------------

        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_jj set color1=color" '--------------------------

        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_ship_daily_jlk set color1=color" '--------------------------

        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_daily_hongmei set color1=color" '--------------------------

        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,color1
FROM      rt_ship_daily_properwell" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_properwell set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_properwell set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next


        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card, work_no, [22],color1
FROM      rt_ship_daily_ruiqi" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_ruiqi set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_ruiqi set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next


        sql = "SELECT  no, name, qty, nw, gw, po_no, serial, filename, card, deli_no, unit_price,color1 FROM      rt_ship_daily_samil" '--------------------------

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




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

            mysplit = Split(dt.Rows(x).Item("name"), ",")


            If UBound(mysplit) = 0 Then
                mysplit = Split(dt.Rows(x).Item("name"), "，")
            End If


            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_samil set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_samil set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no").value.ToString.Replace("'", "''") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next

        sql = "SELECT  * FROM      rt_ship_daily_HONGFU" '--------------------------

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




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


            If dt.Rows(x).Item("PO_NO") Like "*先补*" Then


                Dim AA As Integer
                AA = 0



            End If

            mysplit = Split(dt.Rows(x).Item("name"), ",")


            If UBound(mysplit) = 0 Then
                mysplit = Split(dt.Rows(x).Item("name"), "，")
            End If


            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_HONGFU set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no=N'" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "' and FILENAME=N'" & dt.Rows(x).Item("FILENAME") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_HONGFU set color1=N'" & dt.Rows(x).Item("name") & "' where po_no=N'" & dt.Rows(x).Item("po_no").value.ToString.Replace("'", "''") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "' and FILENAME=N'" & dt.Rows(x).Item("FILENAME") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next



        sql = "SELECT  * FROM      rt_ship_daily_sj_vn" '--------------------------

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




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

            mysplit = Split(dt.Rows(x).Item("name"), ",")


            If UBound(mysplit) = 0 Then
                mysplit = Split(dt.Rows(x).Item("name"), "，")
            End If


            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_sj_vn set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no='" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and work_no=N'" & dt.Rows(x).Item("work_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_sj_vn set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and work_no=N'" & dt.Rows(x).Item("work_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next



        sql = "SELECT  no, name, qty_sf, work_no, po_no, serial, filename, card, deli_no, price,color1
FROM      rt_ship_daily_hongfu" '--------------------------

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




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

            mysplit = Split(dt.Rows(x).Item("name"), ",")


            If UBound(mysplit) = 0 Then
                mysplit = Split(dt.Rows(x).Item("name"), "，")
            End If


            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_hongfu set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'and work_no='" & dt.Rows(x).Item("work_no") & "' and qty_sf='" & dt.Rows(x).Item("qty_sf") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_hongfu set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'and work_no='" & dt.Rows(x).Item("work_no") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next



        sql = "SELECT  no, name, qty_sf, nw, gw, po_no, qty_sf1, unit_price, filename, order_item, deli_no, serial,color1
FROM      rt_ship_daily_sj" '--------------------------

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

        Dim mysplit1 As String


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

            mysplit = Split(dt.Rows(x).Item("name"), ",")


            If UBound(mysplit) = 0 Then
                mysplit = Split(dt.Rows(x).Item("name"), "，")

              


            End If

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_sj set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_sj set color1=N'" & dt.Rows(x).Item("name") & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next


        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card
FROM      rt_ship_daily_stella" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_stella set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_stella set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next

        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card
FROM      rt_ship_daily_thanhhu" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_thanhhu set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_thanhhu set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next

        sql = "SELECT  no, name, nw, gw, po_no, qty_sf1, unit_price, serial, card, sku_no, filename, order_item, deli_no
FROM      rt_ship_daily_uz_1" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_uz_1 set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_uz_1 set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next

        sql = "SELECT  NO, SF, ORDER_NO, I_NO, COLOR, THICK, card, filename, serial, deli_no
FROM      rt_ship_daily_wh"  '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("color"), "/")

            If UBound(mysplit) > 1 Then
                sql = "update rt_ship_daily_wh set color1=N'" & mysplit(2) & "' where order_no='" & dt.Rows(x).Item("order_no") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_wh set color1=N'" & dt.Rows(x).Item("color") & "' where order_no='" & dt.Rows(x).Item("order_no") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If


        Next


        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card
FROM      rt_ship_daily_xbh" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_xbh set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_xbh set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next


        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card
FROM      rt_ship_daily_yb" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_yb set color1=N'" & mysplit(1) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_yb set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next

        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card
        FROM      rt_ship_daily_yby" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), "，")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_yb set color1=N'" & mysplit(1) & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_yb set color1=N'" & dt.Rows(x).Item("name") & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next


        sql = "SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card, thick
FROM      rt_ship_daily_yby_huasheng" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), " AR")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_yby_huasheng set color1=N'" & mysplit(0) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_yby_huasheng set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next


        sql = "SELECT  no, name, pcs, qty, unit, nw, gw, po_no, work_no, supplier, coin, deli_no, filename,serial FROM      rt_ship_daily_yy" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), " ")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_yy set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_yy set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next

        sql = "SELECT  * FROM      rt_ship_daily_dongjia" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), " ")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_dongjia set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and work_no=N'" & dt.Rows(x).Item("work_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_dongjia set color1=N'" & dt.Rows(x).Item("name") & "' where po_no=N'" & dt.Rows(x).Item("po_no") & "' and work_no=N'" & dt.Rows(x).Item("work_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next



        sql = "SELECT  * FROM      rt_ship_daily_af" '--------------------------

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

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

            mysplit = Split(dt.Rows(x).Item("name"), " ")

            If UBound(mysplit) >= 1 Then
                sql = "update rt_ship_daily_af set color1=N'" & mysplit(UBound(mysplit)) & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and work_no='" & dt.Rows(x).Item("work_no") & "'and  name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "' and qty_sf='" & dt.Rows(x).Item("qty_sf") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
            Else
                sql = "update rt_ship_daily_af set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "' and qty_sf='" & dt.Rows(x).Item("qty_sf") & "'"

                sql = "update rt_ship_daily_af set color1=N'" & dt.Rows(x).Item("name") & "' where po_no='" & dt.Rows(x).Item("po_no") & "' and work_no='" & dt.Rows(x).Item("work_no") & "'and  name=N'" & dt.Rows(x).Item("name") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and serial='" & dt.Rows(x).Item("serial") & "' and qty_sf='" & dt.Rows(x).Item("qty_sf") & "' and qty_sf='" & dt.Rows(x).Item("qty_sf") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If




        Next


        MsgBox("")







    End Sub

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

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

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click



        export_to_excel()  '4701

    End Sub

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

        sql = "update rt_ship_076_1	 set cust=N'A01.050'   	,custname=N'金威利'				  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_076_sample set cust=N'A01.050-2' 	,custname=N'金威利样品'			"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_jj set cust=N'A01.054-1' 	,custname=N'中山志捷（美元）'			  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_ruiqi set cust=N'A02.10' 	,custname=N'锐奇鞋业'				 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_samil set cust=N'A01.016-1' 	,custname=N'何先生/SAMIL（美元）'	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_sj	 set cust=N'A01.002-1' 	,custname=N'上杰（越南）（美元）'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_sj_VN	 set cust=N'A01.002-1' 	,custname=N'上杰（越南）（美元）'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_DONGJIA	 set cust=N'A01.040-1' 	,custname=N'东家（美元）'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_yongchi	 set cust=N'A01.100' 	,custname=N'永驰'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_uz_1 set cust=N'A01.052-1' 	,custname=N'永正（美元）'				"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_wh	 set cust=N'A01.000' 	,custname=N'威弘'				   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yb	 set cust=N'A01.019-1' 	,custname=N'亿博（美元）'			"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yby set cust=N'A01.019-1' 	,custname=N'亿博（美元）'				"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yby_huasheng set cust=N'A01.019-1' 	,custname=N'亿博（美元）'				"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yy set cust=N'A01.033-1' 	,custname=N'颖亿(美元)'			 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_hongmei set cust=N'A01.005-1' 	,custname=N'宏美二厂（美元）'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_jlk		 set cust=N'A01.048' 	,custname=N'极路客'				  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_jh set cust=N'A01.008-1' 	,custname=N'加和（美元）'			"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_evergree set cust=N'A01.067-1' 	,custname=N'创德（美元）'				"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_properwell set cust=N'A01.062-1' 	,custname=N'PROPERWELL（美元）'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_stella set cust=N'A01.063-1' 	,custname=N'coach（美元）'		 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_thanhhu	set cust=N'A01.063-1' 	,custname=N'coach（美元）'			 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_xbh	set cust=N'A01.024-1' 	,custname=N'PEI HAI-BRM（美元）'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_af	set cust=N'A01.073-1' 	,custname=N'澳孚（美元）'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_hongfu	set cust=N'A01.001-1' 	,custname=N'宏福（美元）'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_YONGFONG	set cust=N'A01.102' 	,custname=N'永丰'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        MsgBox("更新完成")



    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click



        sql = "delete from rt_ship_temp"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "SELECT  no, sf, order_no, i_no, color, thick, deli_no, card_no, serial, card, filename,color1,thick1,pattern FROM      rt_ship_076_1--------------------------											   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
               select color,custname,cust,sf,no,order_no,   i_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_076_1																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%076%' and filename not like '%076样%'																													  "
        sql = "update rt_ship_076_1 set thick1=thick																																									   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE  rt_ship_076_1 SET rt_ship_076_1.pattern = rt_pu_pattern1.pattern 																																   
        FROM      rt_ship_076_1 left OUTER JOIN rt_pu_pattern1 ON rt_ship_076_1.color LIKE '%' + rt_pu_pattern1.pattern + '%'																					   "


        sql ="SELECT  no, qty, po_no, name,work_no, color, thick, work_no,deli_no, serial, card, filename,color1,thick1,pattern FROM      rt_ship_daily_076_sample--------------------------							   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
        select name,custname,cust,qty,no,po_no,   work_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_076_sample														   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%076样%'																																				  "
        sql = "update rt_ship_daily_076_sample set thick1=thick																																						   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE  rt_ship_daily_076_sample SET rt_ship_daily_076_sample.pattern = rt_pu_pattern1.pattern 																										   
      FROM      rt_ship_daily_076_sample left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_076_sample.name LIKE '%' + rt_pu_pattern1.pattern + '%'																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, qty, po_no, name,work_no, color, thick, work_no,deli_no, serial, card, filename,color1,thick1,pattern FROM      rt_ship_daily_jj--------------------------									   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
select name,custname,cust,qty,no,po_no,   work_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_jj																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%志捷%'																																					 "
        sql = "update rt_ship_daily_jj set thick1=thick																																								   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE  rt_ship_daily_jj SET rt_ship_daily_jj.pattern = rt_pu_pattern1.pattern 								
        FROM      rt_ship_daily_jj left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_jj.name LIKE '%' + rt_pu_pattern1.pattern + '%'																				   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql =" select * from rt_ship_temp where custname is null																																						   "
sql="SELECT  no1, qty_sf, po_no, name,m_no, color, thick, no2,deli_no, serial, card, filename,color1,thick1,pattern FROM      rt_ship_daily_jh--------------------------									   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
select name,custname,cust,qty_sf,no1,po_no,   sub_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_jh																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "SELECT  * FROM      rt_ship_daily_yongchi--------------------------									   "
        sql = "insert into rt_ship_temp(custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
                                 select custname,cust,sf,no,order_no,color1,pattern,thick,deli_no,card,filename,serial from rt_ship_daily_yongchi																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_ship_daily_yongchi set thick1=thick"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql ="select * from rt_ship_temp where filename like N'%076样%'																																				  "
        sql = "update rt_ship_daily_jh set thick1='1.24' where thick like '%1.2%'																																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_jh set thick1='1.46' where thick like '%1.4%' and name not like '%1.2-%'																											   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE  rt_ship_daily_jh SET rt_ship_daily_jh.pattern = rt_pu_pattern1.pattern 																														   
        FROM      rt_ship_daily_jh left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_jh.name LIKE '%' + rt_pu_pattern1.pattern + '%'																				   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,color1,thick1,pattern FROM  rt_ship_daily_evergree----------------------												   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,   color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_evergree																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%evergree%'																																			   "
        sql = "UPDATE  rt_ship_daily_evergree SET rt_ship_daily_evergree.pattern = rt_pu_pattern1.pattern 																											   
               FROM      rt_ship_daily_evergree left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_evergree.name LIKE '%' + rt_pu_pattern1.pattern + '%'																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_evergree set thick1='1.24' where name like '%1.2%'																																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_evergree set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "SELECT  no1, po_no, m_no, name, thick, color, qty_sf, nw, gw, no2, deli_no, card, serial,color1,thick1,pattern FROM      rt_ship_daily_jh---------------------------------								   "

        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
select name,custname,cust,qty_sf,no1,po_no,   m_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_jh																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%加和%'																																					 "
        sql = "UPDATE  rt_ship_daily_jh SET rt_ship_daily_jh.pattern = rt_pu_pattern1.pattern 																														  
FROM      rt_ship_daily_jh left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_jh.name LIKE '%' + rt_pu_pattern1.pattern + '%'																				   "

        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_jh set thick1=thick																																								   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  filename, serial, no, qty, color, thick, card, deli_no,color1,thick1,pattern FROM      rt_ship_daily_jlk-------------------------------------													   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,color, pattern,thick, deli_no,card,filename,serial) 																										   
select color,custname,cust,qty,no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_jlk																				   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%极%'																																					  "
sql="update rt_ship_daily_jlk set thick1=thick																																								   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE  rt_ship_daily_jlk SET rt_ship_daily_jlk.pattern = rt_pu_pattern1.pattern 																														   
              FROM      rt_ship_daily_jlk left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_jlk.color LIKE '%' + rt_pu_pattern1.pattern + '%'																			   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,color1,thick1,pattern FROM      rt_ship_daily_properwell ------														   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,   color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_properwell																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%proper%'																																				   "
        sql = "UPDATE  rt_ship_daily_properwell SET rt_ship_daily_properwell.pattern = rt_pu_pattern1.pattern 																										   
               FROM      rt_ship_daily_properwell left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_properwell.name LIKE '%' + rt_pu_pattern1.pattern + '%'																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="update rt_ship_daily_properwell set thick1='1.24' where name like '%1.2%'																																   "
        sql = "update rt_ship_daily_properwell set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																									   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card, work_no, color1,thick1,pattern FROM      rt_ship_daily_ruiqi --------												   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
select name,custname,cust,qty,no,po_no,   work_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_ruiqi																   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%锐奇%'																																					 "
        sql = "UPDATE  rt_ship_daily_ruiqi SET rt_ship_daily_ruiqi.pattern = rt_pu_pattern1.pattern 																													   
               FROM      rt_ship_daily_ruiqi left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_ruiqi.name LIKE '%' + rt_pu_pattern1.pattern + '%'																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_ruiqi set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_ruiqi set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, serial, filename, card, deli_no, unit_price,color1,thick1,pattern FROM      rt_ship_daily_samil  ------															   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_samil																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%samil%'																																				   "
        sql = "UPDATE  rt_ship_daily_samil SET rt_ship_daily_samil.pattern = rt_pu_pattern1.pattern 																													   
               FROM      rt_ship_daily_samil left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_samil.name LIKE '%' + rt_pu_pattern1.pattern + '%'																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_samil set thick1='1.24' where name like '%1.2%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_samil set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty_sf, nw, gw, po_no, qty_sf1, unit_price, filename, order_item, deli_no, serial,color1,thick1,pattern FROM      rt_ship_daily_sj-------											   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,     no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																				   
select name,custname,cust,qty_sf1,no,po_no,order_item,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_sj															   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%上杰%'																																					 "
        sql = "UPDATE  rt_ship_daily_sj SET rt_ship_daily_sj.pattern = rt_pu_pattern1.pattern 																														   
                FROM      rt_ship_daily_sj left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_sj.name LIKE '%' + rt_pu_pattern1.pattern + '%'																				   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="update rt_ship_daily_sj set thick1='1.24' where name like '%1.2%'																																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_sj set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,color1,thick1,pattern FROM      rt_ship_daily_stella ---------														   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_stella																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%stella%'																																				   "
        sql = "UPDATE  rt_ship_daily_stella SET rt_ship_daily_stella.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_daily_stella left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_stella.name LIKE '%' + rt_pu_pattern1.pattern + '%'																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_stella set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_stella set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_daily_yongfong set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yongfong set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "SELECT  * FROM      rt_ship_daily_yongfong ---------														   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty_sf,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_yongfong																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "select * from rt_ship_temp where filename like '%stella%'																																				   "
        sql = "UPDATE  rt_ship_daily_yongfong SET rt_ship_daily_yongfong.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_daily_yongfong left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_yongfong.name LIKE '%' + rt_pu_pattern1.pattern + '%'																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_ship_daily_sj_vn set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_sj_vn set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "SELECT  * FROM      rt_ship_daily_sj_vn ---------														   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty_sf1,no,po_no,work_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_sj_vn																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE  rt_ship_daily_sj_vn SET rt_ship_daily_sj_vn.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_daily_sj_vn left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_sj_vn.name LIKE '%' + rt_pu_pattern1.pattern + '%'																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_ship_daily_dongjia set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_dongjia set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "SELECT  * FROM      rt_ship_daily_dongjia ---------														   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty_sf1,no,po_no,work_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_dongjia																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE  rt_ship_daily_dongjia SET rt_ship_daily_dongjia.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_daily_dongjia left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_dongjia.name LIKE '%' + rt_pu_pattern1.pattern + '%'																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()






        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,thick1,color1,pattern FROM      rt_ship_daily_thanhhu  -------														   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_thanhhu																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%thanh%'																																				   "
        sql = "UPDATE  rt_ship_daily_thanhhu SET rt_ship_daily_thanhhu.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_daily_thanhhu left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_thanhhu.name LIKE '%' + rt_pu_pattern1.pattern + '%'																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_thanhhu set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_thanhhu set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																										   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, nw, gw, po_no, qty_sf1, unit_price, serial, card, sku_no, filename, order_item, deli_no,thick1,color1,pattern FROM      rt_ship_daily_uz_1  --------									   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
select name,custname,cust,qty_sf1,no,po_no,   sku_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_uz_1															   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%永正%'																																					 "
        sql = "UPDATE  rt_ship_daily_uz_1 SET rt_ship_daily_uz_1.pattern = rt_pu_pattern1.pattern 																													   
               FROM      rt_ship_daily_uz_1 left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_uz_1.name LIKE '%' + rt_pu_pattern1.pattern + '%'																			   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_uz_1 set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_uz_1 set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																											   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  NO, SF, ORDER_NO, I_NO, COLOR, THICK, card, filename, serial, deli_no,thick1,color1,pattern FROM      rt_ship_daily_wh ---------																   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 																						   
select color,custname,cust,sf,no,order_no,   i_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_wh																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%威弘%'																																					 "
        sql = "UPDATE  rt_ship_daily_wh SET rt_ship_daily_wh.pattern = rt_pu_pattern1.pattern 																														   
               FROM      rt_ship_daily_wh left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_wh.color LIKE '%' + rt_pu_pattern1.pattern + '%'																			   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_wh set thick1=thick																																								   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,thick1,color1,pattern FROM      rt_ship_daily_xbh-------																   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_xbh																			   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like '%PEI%'																																					   "
        sql = "UPDATE  rt_ship_daily_xbh SET rt_ship_daily_xbh.pattern = rt_pu_pattern1.pattern 																														   
               FROM      rt_ship_daily_xbh left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_xbh.name LIKE '%' + rt_pu_pattern1.pattern + '%'																			   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_xbh set thick1='1.24' where name like '%1.2%'																																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_xbh set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																											   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,thick1,color1,pattern FROM      rt_ship_daily_yb------																   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_yb																			   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%亿博发%' 																																				 "
        sql = "UPDATE  rt_ship_daily_yb SET rt_ship_daily_yb.pattern = rt_pu_pattern1.pattern 																														   
                FROM      rt_ship_daily_yb left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_yb.name LIKE '%' + rt_pu_pattern1.pattern + '%'																				   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yb set thick1='1.24' where name like '%1.2-%'																																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yb set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																											   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card,thick1,color1,pattern FROM      rt_ship_daily_yby------																   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_yby																			   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%亿博样%'																																				 "

        sql = "update rt_ship_daily_yby set thick1='1.24' where name like '%1.2%'																																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yby set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																											   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, qty, nw, gw, po_no, unit_price, serial, filename, deli_no, card, thick,color1,pattern FROM      rt_ship_daily_yby_huasheng------														   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_yby_huasheng																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%华盛%'																																					 "
        sql = "UPDATE  rt_ship_daily_yby_huasheng SET rt_ship_daily_yby_huasheng.pattern = rt_pu_pattern1.pattern 																									   
               FROM      rt_ship_daily_yby_huasheng left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_yby_huasheng.name LIKE '%' + rt_pu_pattern1.pattern + '%'															   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="SELECT  no, name, pcs, qty, unit, nw, gw, po_no, work_no, supplier, coin, deli_no, filename,thick1,color1,pattern,serial FROM      rt_ship_daily_yy----												   "
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 																								   
select name,custname,cust,qty,no,po_no,   color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_yy																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="select * from rt_ship_temp where filename like N'%穎億%'																																					 "
        sql = "UPDATE  rt_ship_daily_yy SET rt_ship_daily_yy.pattern = rt_pu_pattern1.pattern 																														   
               FROM      rt_ship_daily_yy left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_yy.name LIKE '%' + rt_pu_pattern1.pattern + '%'																				   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yy set thick1='1.24' where name like '%1.2%'																																		   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yy set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'																											   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_yy set serial=no																																									   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "SELECT  * FROM      rt_ship_daily_af"  '------

        sql = "UPDATE  rt_ship_daily_af SET rt_ship_daily_af.pattern = rt_pu_pattern1.pattern 
FROM      rt_ship_daily_af left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_af.name LIKE '%' + rt_pu_pattern1.pattern + '%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql ="update rt_ship_daily_af set thick1='1.24' where name like '%1.2%'"
        sql = "update rt_ship_daily_af set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 
                  select name,custname,cust,qty_sf,no,po_no,work_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_af"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_daily_hongmei set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_hongmei set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,color, pattern,thick, deli_no,card,filename,serial) 
                  select name,custname,cust,qty,no,po_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_hongmei"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql ="select * from rt_ship_temp where filename like N'%宏美%'																																					 "
        sql = "UPDATE  rt_ship_daily_hongmei SET rt_ship_daily_hongmei.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_daily_hongmei left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_hongmei.name LIKE '%' + rt_pu_pattern1.pattern + '%'																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()




        sql = "select * from rt_ship_temp where filename like N'%宏美%'																																					 "
        sql = "UPDATE  rt_ship_daily_hongfu SET rt_ship_daily_hongfu.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_daily_hongfu left OUTER JOIN rt_pu_pattern1 ON rt_ship_daily_hongfu.name LIKE '%' + rt_pu_pattern1.pattern + '%'																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_hongfu set thick1='1.24' where name like '%1.2%'																																	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_daily_hongfu set thick1='1.46' where name like '%1.4%' and name not like '%1.2-%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "insert into rt_ship_temp(name,custname,cust,sf,no,order_no,work_no,color, pattern,thick, deli_no,card,filename,serial) 
                  select name,custname,cust,qty_sf,no,po_no,work_no,color1,pattern,thick1,deli_no,card,filename,serial from rt_ship_daily_hongfu"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp set order_no='' where order_no is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp set work_no='' where work_no is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        '-------------size

        sql = "update rt_ship_temp set size=N'8以上身' where name like N'榔皮%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8以上软' where name like N'软榔%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8尺以上' where pattern is not null and  (custname like N'%澳孚%'  or custname like N'%东家%' or custname like N'%东治%' or custname like N'%华新%' or custname like N'%蜘蛛王%') "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8以上身' where pattern is not null and (custname like N'%金威利%' or custname like N'%威弘%') and color not like '%SM%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'4-8小皮' where pattern is not null and (custname like N'%金威利%' or custname like N'%威弘%') and color like '%SM%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8以上身' where pattern is not null and  (custname like N'%永山%'  or custname like N'%亿博%' or custname like N'%宏美%' or custname like N'%大田%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp set size=N'8-12尺' where pattern is not null and  (custname like N'%锐奇%'  or custname like N'%凯运%' or custname like N'%东霖%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp set size=N'8-12尺和12以上' where pattern is not null and  custname like N'%源泰%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        MsgBox("完成")






    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click '---写入备份档



        Dim my_date As String = String.Format("{0:yyyy_MM_dd_HH_mm}", Date.Now)


        sql = "select *  into ri_ship_temp_" & my_date & " from rt_ship_temp"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        MsgBox("备份完成")

    End Sub

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


        For x As Integer = 0 To DataGridView2.RowCount - 1


            If DataGridView2.Rows(x).Cells("类型").Value = "反毛" Then


                sql = "update rt_ship_temp set deli=N'" & DataGridView2.Rows(x).Cells("送货人").Value & "' where date='" & DataGridView2.Rows(x).Cells("日期").Value & "' and custname=N'" & DataGridView2.Rows(x).Cells("客户").Value & "' and  pattern is  null"


                cmd.CommandText = sql
                cmd.ExecuteScalar()

            Else

                sql = "update rt_ship_temp set deli=N'" & DataGridView2.Rows(x).Cells("送货人").Value & "' where date='" & DataGridView2.Rows(x).Cells("日期").Value & "' and custname=N'" & DataGridView2.Rows(x).Cells("客户").Value & "' and  pattern is  not null"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

            End If





        Next








    End Sub

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

    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        sql = "delete from rt_ship_076_1"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_076_sample"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_af"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_dongjia"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_evergree"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_hongfu"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_hongmei"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_jh"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_jj"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_jlk"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_properwell"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_ruiqi"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_samil"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_sj"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_sj_vn"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_stella"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_thanhhu"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_uz_1"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "delete from rt_ship_daily_wh"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_xbh"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_yb"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_yby"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_yby_huasheng"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_yongchi"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_yongfong"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "delete from rt_ship_daily_yy"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        MsgBox("")




    End Sub
End Class