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

Imports System.Data.SqlClient

Imports OfficeOpenXml
Imports System.Net
Imports Microsoft.Office.Interop
Imports System.Windows.Media
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlPrintLocation
Imports Microsoft.Office.Interop.Excel.XlPageOrientation
Imports Microsoft.Office.Interop.Excel.XlPaperSize
Imports Microsoft.Office.Interop.Excel.XlOrder
Imports Microsoft.Office.Interop.Excel.XlPrintErrors
'Imports Excel = Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlThemeFont


Public Class Frm_Ship_daily_1
    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 sql As String
    'Dim my_year As Integer
    Dim dt1 As New DataTable

    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_temp_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_temp_1 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
                If IsNumeric(xlSheet.Cells(y, 10).value) Then
                    If xlSheet.Cells(13, 4).value = "张数" Then
                        sql = "insert into rt_ship_temp_1 (order_item,serial,filename,name,qty,card,po_no,work_no) values(N'" & xlSheet.Cells(y, 9).value & "',N'" & s1 & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",'" & xlSheet.Cells(y, 6).value & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 12).value & "')"
                    ElseIf xlSheet.Cells(13, 9).value = "张数" Or xlSheet.Cells(13, 10).value = "张数" Then
                        sql = "insert into rt_ship_temp_1 (order_item,serial,filename,name,qty,card,po_no,work_no) values(N'" & xlSheet.Cells(y, 8).value & "',N'" & s1 & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",'" & xlSheet.Cells(y, 5).value & "',N'" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 12).value & "')"
                    ElseIf xlSheet.Cells(13, 7).value = "张数" Then
                        sql = "insert into rt_ship_temp_1 (order_item,serial,filename,name,qty,card,po_no,work_no) values(N'" & xlSheet.Cells(y, 9).value & "',N'" & s1 & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 12).value & "')"
                    ElseIf xlSheet.Cells(13, 5).value = "张数" Then
                        sql = "insert into rt_ship_temp_1 (order_item,serial,filename,name,qty,card,po_no,work_no) values(N'" & xlSheet.Cells(y, 8).value & "',N'" & s1 & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 10).value & ",'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 12).value & "')"
                    ElseIf xlSheet.Cells(13, 6).value = "张数" Then
                        sql = "insert into rt_ship_temp_1 (order_item,serial,filename,name,qty,card,po_no,work_no) values(N'" & xlSheet.Cells(y, 8).value & "',N'" & s1 & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 10).value & ",'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 12).value & "')"

                    End If
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                    s1 = s1 + 1

                Else


                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_temp_1 set color=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_temp_1 set color=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()

                End If




            Next








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






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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_comment = xlSheet.Cells(y, 7).value
                    my_color = xlSheet.Cells(y, 5).value
                    thick = xlSheet.Cells(y, 6).value

                    my_po = 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


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


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


                    Else
                        my_comment = xlSheet.Cells(y, 7).value
                        my_color = xlSheet.Cells(y, 5).value
                        thick = xlSheet.Cells(y, 6).value
                        my_po = xlSheet.Cells(y, 4).value


                    End If





                End If


                If my_comment Is Nothing Then
                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"
                Else
                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment.ToString.Replace("'", "''") & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"

                End If


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

            Next


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






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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_comment = xlSheet.Cells(y, 7).value
                    my_color = xlSheet.Cells(y, 5).value
                    thick = xlSheet.Cells(y, 6).value

                    my_po = 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


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


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


                    Else
                        my_comment = xlSheet.Cells(y, 7).value
                        my_color = xlSheet.Cells(y, 5).value
                        thick = xlSheet.Cells(y, 6).value
                        my_po = xlSheet.Cells(y, 4).value


                    End If





                End If


                If my_comment Is Nothing Then
                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"
                Else
                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment.ToString.Replace("'", "''") & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"

                End If


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

            Next



        ElseIf OpenFileDialog1.SafeFileName Like "瑞泰出货明细*" And (OpenFileDialog1.SafeFileName Like "*温州*" Or OpenFileDialog1.SafeFileName Like "*湖北*" Or OpenFileDialog1.SafeFileName Like "*泉州*") Then  '------------------------------------------------------------------






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 3 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

                If Not (IsNumeric(xlSheet.Cells(y, 6).value)) Then
                    Exit For
                End If

            Next y

            yy = y - 1
            'xlApp.Range("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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 xlSheet.Cells(y, 1).value Is Nothing Then



                Else


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

                    'my_comment = xlSheet.Cells(y, 7).value
                    my_color = xlSheet.Cells(y, 4).value
                    'thick = xlSheet.Cells(y, 6).value

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




                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & "',N'" & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 6).value & "')"



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


                End If





            Next




        ElseIf OpenFileDialog1.SafeFileName Like "名扬发货明细*" Then  '------------------------------------------------------------------






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 2 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

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

            Next y

            yy = y - 1
            'xlApp.Range("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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 = 2 To y - 1


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



                Else


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

                    'my_comment = xlSheet.Cells(y, 7).value
                    my_color = xlSheet.Cells(y, 2).value
                    'thick = xlSheet.Cells(y, 6).value

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




                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "',N'" & my_color & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 3).value & "')"



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


                End If





            Next








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


            sql = "select count(*) from rt_ship_temp_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_temp_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


            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 y = 14 Then
                '    my_nw = xlSheet.Cells(y, 6).value
                '    my_gw = xlSheet.Cells(y, 7).value
                '    my_no = xlSheet.Cells(y, 1).value
                'End If

                If xlSheet.Cells(13, 11).value = "订单出货数量" Then

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

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

                            sql = "insert into rt_ship_temp_1 (work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                          (N'" & xlSheet.Cells(y, 13).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 11).value & ")"

                        Else
                            sql = "insert into rt_ship_temp_1 (comment,work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                          (N'" & xlSheet.Cells(y, 18).value & "','" & xlSheet.Cells(y, 13).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 11).value & ")"

                        End If

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

                    End If

                ElseIf xlSheet.Cells(13, 10).value = "订单出货数量" Then

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


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

                            sql = "insert into rt_ship_temp_1 (work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                          (N'" & xlSheet.Cells(y, 13).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 10).value & ")"

                        Else
                            sql = "insert into rt_ship_temp_1 (comment,work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                          (N'" & xlSheet.Cells(y, 18).value.ToString.Replace("'", " ") & "','" & xlSheet.Cells(y, 13).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 10).value & ")"

                        End If

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

                ElseIf xlSheet.Cells(13, 9).value = "订单出货数量" Then

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


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

                            sql = "insert into rt_ship_temp_1 (work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                          (N'" & xlSheet.Cells(y, 12).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 8).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 7).value & "'," & xlSheet.Cells(y, 9).value & ")"

                        Else
                            sql = "insert into rt_ship_temp_1 (comment,work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                          (N'" & xlSheet.Cells(y, 19).value.ToString.Replace("'", " ") & "','" & xlSheet.Cells(y, 12).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 8).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 7).value & "'," & xlSheet.Cells(y, 9).value & ")"

                        End If

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


                End If





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


                '    my_sf = xlSheet.Cells(y, 11).value
                '    my_price = xlSheet.Cells(y, 12).value

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

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

                '            If xlSheet.Cells(13, 10).value = "张数" Then
                '                sql = "insert into rt_ship_temp_1 (work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                '          (N'" & xlSheet.Cells(y, 13).value & "','" & xlSheet.Cells(y, 5).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 11).value & ")"
                '            ElseIf xlSheet.Cells(13, 11).value = "张数" Then

                '                sql = "insert into rt_ship_temp_1 (work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                '          (N'" & xlSheet.Cells(y, 13).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 10).value & ")"

                '            End If


                '        Else

                '            If xlSheet.Cells(13, 10).value = "张数" Then

                '                sql = "insert into rt_ship_temp_1 (comment,work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                '          (N'" & xlSheet.Cells(y, 18).value & "','" & xlSheet.Cells(y, 13).value & "','" & xlSheet.Cells(y, 5).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 11).value & ")"
                '            ElseIf xlSheet.Cells(13, 11).value = "张数" Then

                '                sql = "insert into rt_ship_temp_1 (comment,work_no,card,filename,serial,order_item,no,name,po_no,qty) values
                '          (N'" & xlSheet.Cells(y, 18).value & "','" & xlSheet.Cells(y, 14).value & "','" & xlSheet.Cells(y, 4).value & "',N'" & file_name & "','" & s1 & "','" & xlSheet.Cells(y, 9).value & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 8).value & "'," & xlSheet.Cells(y, 10).value & ")"

                '            End If


                '        End If



                '        cmd.CommandText = sql
                '        cmd.ExecuteScalar()
                '        s1 = s1 + 1
                '    End If


                '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 "*东家*" Or OpenFileDialog1.SafeFileName Like "*东治*" Then     '----------------------------------------------------------------------------------东家



            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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_temp_1 (filename,serial,no,po_no,work_no,qty,name) values
                          (N'" & file_name & "','" & s1 & "','" & my_no & "','" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 9).value & "'," & xlSheet.Cells(y, 3).value & ",N'" & xlSheet.Cells(y, 2).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

                s1 = s1 + 1

            Next



        ElseIf OpenFileDialog1.SafeFileName Like "好兄弟*" And Not (OpenFileDialog1.SafeFileName Like "*样品*") And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then     '----------------------------------------------------------------------------------好兄弟



            sql = "select count(*) from rt_ship_temp_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_temp_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_name As String
            Dim my_qty As Double
            Dim my_po As String
            Dim my_po1 As String
            Dim my_name1() As String
            Dim my_po_1() As String



            For i = 1 To xlApp.Worksheets.Count

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


                my_name = xlSheet.Cells(4, 1).value






                my_qty = xlSheet.Cells(38, 10).value

                my_po = xlSheet.Cells(3, 1).value

                my_po1 = xlSheet.Cells(3, 8).value


                my_name1 = Split(my_name, "材料名称：")

                my_po_1 = Split(my_po, "调料单号：")

                sql = "insert into rt_ship_temp_1 (filename,color1,serial,po_no,qty,name) values
                          (N'" & file_name & "',N'" & my_name1(1) & "','" & i & "',N'" & my_po_1(1) & "/" & my_po1 & "'," & my_qty & ",N'" & my_name1(1) & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()





            Next







        ElseIf OpenFileDialog1.SafeFileName Like "名创*" And Not (OpenFileDialog1.SafeFileName Like "名创发货明细*") And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then     '----------------------------------------------------------------------------------



            sql = "select count(*) from rt_ship_temp_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_temp_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_name As String
            Dim my_qty As Double
            Dim my_po As String
            Dim my_po1 As String
            Dim my_name1() As String
            Dim my_po_1() As String



            For i = 1 To xlApp.Worksheets.Count

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


                my_name = xlSheet.Cells(4, 1).value






                my_qty = xlSheet.Cells(38, 10).value

                my_po = xlSheet.Cells(3, 1).value

                my_po1 = xlSheet.Cells(3, 8).value


                my_name1 = Split(my_name, "材料名称：")

                my_po_1 = Split(my_po, "调料单号：")

                sql = "insert into rt_ship_temp_1 (filename,color1,serial,po_no,qty,name) values
                          (N'" & file_name & "',N'" & my_name1(1) & "','" & i & "',N'" & my_po_1(1) & "/" & my_po1 & "'," & my_qty & ",N'" & my_name1(1) & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()





            Next



        ElseIf OpenFileDialog1.SafeFileName Like "名越*" And Not (OpenFileDialog1.SafeFileName Like "*名越发货明细*") And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then     '----------------------------------------------------------------------------------



            sql = "select count(*) from rt_ship_temp_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_temp_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_name As String
            Dim my_qty As Double
            Dim my_po As String
            Dim my_po1 As String
            Dim my_name1() As String
            Dim my_po_1() As String



            For i = 1 To xlApp.Worksheets.Count

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


                my_name = xlSheet.Cells(4, 1).value






                my_qty = xlSheet.Cells(38, 10).value

                my_po = xlSheet.Cells(3, 1).value

                my_po1 = xlSheet.Cells(3, 8).value


                my_name1 = Split(my_name, "材料名称：")

                my_po_1 = Split(my_po, "调料单号：")

                sql = "insert into rt_ship_temp_1 (filename,color1,serial,po_no,qty,name) values
                          (N'" & file_name & "',N'" & my_name1(1) & "','" & i & "',N'" & my_po_1(1) & "/" & my_po1 & "'," & my_qty & ",N'" & my_name1(1) & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()





            Next







        ElseIf OpenFileDialog1.SafeFileName Like "名晋*" And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then     '----------------------------------------------------------------------------------



            sql = "select count(*) from rt_ship_temp_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_temp_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_name As String
            Dim my_qty As Double
            Dim my_po As String
            Dim my_po1 As String
            Dim my_name1() As String
            Dim my_po_1() As String



            For i = 1 To xlApp.Worksheets.Count

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


                my_name = xlSheet.Cells(4, 1).value






                my_qty = xlSheet.Cells(38, 10).value

                my_po = xlSheet.Cells(3, 1).value

                my_po1 = xlSheet.Cells(3, 8).value


                my_name1 = Split(my_name, "材料名称：")

                my_po_1 = Split(my_po, "调料单号：")

                sql = "insert into rt_ship_temp_1 (filename,color1,serial,po_no,qty,name) values
                          (N'" & file_name & "',N'" & Trim(my_name1(1)) & "','" & i & "',N'" & Trim(my_po_1(1)) & "/" & Trim(my_po1) & "'," & my_qty & ",N'" & Trim(my_name1(1)) & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()





            Next



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

            's1 = s1 + 1





        ElseIf OpenFileDialog1.SafeFileName Like "顺泰盛*" And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then     '----------------------------------------------------------------------------------



            sql = "select count(*) from rt_ship_temp_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_temp_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_name As String
            Dim my_qty As Double
            Dim my_po As String
            Dim my_po1 As String
            Dim my_name1() As String
            Dim my_po_1() As String



            For i = 1 To xlApp.Worksheets.Count

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


                my_name = xlSheet.Cells(4, 1).value






                my_qty = xlSheet.Cells(38, 10).value

                my_po = xlSheet.Cells(3, 1).value

                my_po1 = xlSheet.Cells(3, 8).value


                my_name1 = Split(my_name, "材料名称：")

                my_po_1 = Split(my_po, "调料单号：")

                sql = "insert into rt_ship_temp_1 (filename,color1,serial,po_no,qty,name) values
                          (N'" & file_name & "',N'" & my_name1(1) & "','" & i & "',N'" & my_po_1(1) & "/" & my_po1 & "'," & my_qty & ",N'" & my_name1(1) & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()





            Next



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

            's1 = s1 + 1



        ElseIf OpenFileDialog1.SafeFileName Like "*吉兴*" Then     '----------------------------------------------------------------------------------吉兴



            sql = "select count(*) from rt_ship_temp_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_temp_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 = 8 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 1).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 = 8 To y - 1

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

                s1 = s1 + 1

            Next

        ElseIf OpenFileDialog1.SafeFileName Like "*松城*" And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then     '----------------------------------------------------------------------------------松城



            sql = "select count(*) from rt_ship_temp_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_temp_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 = 3 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 = 3 To y - 1

                If y = 3 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_temp_1 (filename,serial,no,po_no,work_no,qty,name,thick) values
                          (N'" & file_name & "','" & s1 & "','" & my_no & "','" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 7).value & "'," & xlSheet.Cells(y, 2).value & ",N'" & xlSheet.Cells(y, 5).value & "',N'" & xlSheet.Cells(y, 6).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_temp_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_temp_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


            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_temp_1 (card,serial,filename,name,qty,po_no,order_item,
                                                         work_no,order_month) values
                          ('" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 1).value & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 3).value & "',N'" & xlSheet.Cells(y, 7).value & "','" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 11).value & "','" & xlSheet.Cells(y, 12).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_temp_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_temp_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


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




                sql = "insert into rt_ship_temp_1 (card,serial,filename,name,qty,po_no,order_item,
                                                         work_no,order_month) values
                          ('" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 1).value & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 3).value & "',N'" & xlSheet.Cells(y, 7).value & "','" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 11).value & "','" & xlSheet.Cells(y, 12).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_temp_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_temp_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("PKL")

            Dim y As Integer = 0
            For y = 16 To xlApp.Workbooks(1).Worksheets("PKL").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 = 16 To y - 1




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

                s1 = s1 + 1

            Next












        ElseIf OpenFileDialog1.SafeFileName Like "*ruitai inv*" Then         '----------------------------------------------------------------------------------大田

            Dim filename1 As String

            filename1 = file_name & "大田"


            sql = "select count(*) from rt_ship_temp_1 where filename=N'" & filename1 & "'"
            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_temp_1 where filename=N'" & filename1 & "'"
                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("P&L")
            Dim s1 As Integer = 1
            Dim y As Integer = 0
            For y = 29 To xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count

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

            Next y
            file_name = file_name & "大田"


            For y = 29 To y - 1




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



            Next









        ElseIf OpenFileDialog1.SafeFileName Like "*三元*" Then         '----------------------------------------------------------------------------------大田




            sql = "select count(*) from rt_ship_temp_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_temp_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 s1 As Integer = 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



            For y = 2 To y - 1




                sql = "insert into rt_ship_temp_1 (serial,filename,name,qty,po_no,card) values (N'" & s1 & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 3).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & xlSheet.Cells(y, 4).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 += 1



            Next










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


            sql = "select count(*) from rt_ship_temp_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_temp_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 yyy As Integer = 0


            Dim y As Integer = 0
            For y = 4 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("A4:w" & 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 = 4 To y - 1



                sql = "insert into rt_ship_temp_1 (card,serial,filename,name,qty,po_no,order_item,
                                                         work_no,color1) values ('" & xlSheet.Cells(y, 7).value & "','" & s1 & "',N'" & file_name & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 5).value & ",N'" & xlSheet.Cells(y, 15).value & "','" & xlSheet.Cells(y, 14).value & "',N'" & xlSheet.Cells(y, 17).value & "',N'" & xlSheet.Cells(y, 4).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 += 1



            Next











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


            sql = "select count(*) from rt_ship_temp_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_temp_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 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_temp_1 (filename,card,serial,no,qty,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()
                                sql = "insert into rt_ship_temp_1 (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()
                                sql = "insert into rt_ship_temp_1 (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()
                                sql = "insert into rt_ship_temp_1 (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()
            '        sql = "update rt_ship_temp_1 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()

            '        sql = "update rt_ship_daily_temp_1 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    '--------------------------------------------------------------------------永正货柜  


            sql = "select count(*) from rt_ship_temp_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_temp_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


            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_temp_1 (filename,work_no,order_item,card,no,name,qty,po_no,serial) values(N'" & file_name & "',N'" & xlSheet.Cells(y, 10).value &
                    "',N'" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 4).value & "',N'" &
                    xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",N'" & xlSheet.Cells(y, 7).value & "'," & mc & ")"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

                mc = mc + 1

            Next


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


            sql = "select count(*) from rt_ship_temp_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_temp_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 = 4 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 = 4 To y - 1

                sql = "insert into rt_ship_temp_1 (filename,order_item,name,qty,po_no,serial) values(N'" & file_name & "',N'" & xlSheet.Cells(y, 12).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 4).value & ",N'" & xlSheet.Cells(y, 13).value & "'," & mc & ")"
                cmd.CommandText = sql
                cmd.ExecuteScalar()

                mc = mc + 1

            Next



        ElseIf OpenFileDialog1.SafeFileName Like "*永弘*" And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then    '--------------------------------------------------------------------------永正货柜  


            sql = "select count(*) from rt_ship_temp_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_temp_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


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

                sql = "insert into rt_ship_temp_1 (filename,work_no,order_item,name,qty,po_no,serial) values(N'" & file_name & "',N'" & xlSheet.Cells(y, 11).value & "',N'" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",N'" & xlSheet.Cells(y, 6).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,品名,颜色"

            '            sql = "select po_no as 订单号,name as 品名,work_no as 指令号 ,sum(qty_sf1) as 尺数,deli_no as 发货单号 FROM      RT_Ship_UZ_HG 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(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_temp_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_temp_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, 4).value

                    my_po = xlSheet.Cells(y, 7).value
                    my_skuno = xlSheet.Cells(y, 11).value


                End If


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

                Else

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

                    Else


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



                        Else

                            my_name = xlSheet.Cells(y, 2).value
                            my_po = xlSheet.Cells(y, 7).value
                            my_skuno = xlSheet.Cells(y, 11).value





                        End If










                        sql = "insert into rt_ship_temp_1 (order_item,filename,work_no,serial,card,no,name,po_no,qty) values('" & xlSheet.Cells(y, 8).value & "',N'" & file_name & "',N'" & my_skuno & "','" & s1 & "','" & xlSheet.Cells(y, 4).value & "','" & my_no & "',N'" & my_name & "',N'" & my_po & "'," & xlSheet.Cells(y, 10).value & ")"

                        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 "*华盛*") And Not (OpenFileDialog1.SafeFileName Like "*NK*") Then '-----------------------------




            sql = "select count(*) from rt_ship_temp_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_temp_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 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_temp_1 (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 (OpenFileDialog1.SafeFileName Like "*NK*") 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()
                sql = "delete from rt_ship_temp_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 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_temp_1 (thick,serial,filename,no,qty,name,po_no) values('" & xlSheet.Cells(y, 3).value & "',N'" & s1 & "',N'" & file_name & "','" & my_no &
                    "'," & xlSheet.Cells(y, 4).value & ",N'" & xlSheet.Cells(y, 2).value & "',N'" & xlSheet.Cells(y, 9).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 "亿博发货*" Then '--------------------------------------- 亿博发货明细


            sql = "select count(*) from rt_ship_temp_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_temp_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 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_temp_1 (CARD,serial,filename,no,name,qty,po_no) values('" & xlSheet.Cells(y, 4).value & "','" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).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 品名,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_temp_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_temp_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 = 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_temp_1 (color,po_no,work_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 14).value & "',N'" & xlSheet.Cells(y, 17).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_temp_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_temp_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 = 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("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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_comment = xlSheet.Cells(y, 7).value
                    my_color = xlSheet.Cells(y, 5).value
                    thick = xlSheet.Cells(y, 6).value

                    my_po = 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


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


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


                    Else
                        my_comment = xlSheet.Cells(y, 7).value
                        my_color = xlSheet.Cells(y, 5).value
                        thick = xlSheet.Cells(y, 6).value
                        my_po = xlSheet.Cells(y, 4).value


                    End If





                End If


                If my_comment Is Nothing Then
                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"
                Else
                    sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment.ToString.Replace("'", "''") & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"

                End If


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

            Next









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






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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




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

                '   my_comment = xlSheet.Cells(y, 7).value
                my_color = xlSheet.Cells(y, 5).value
                '  thick = xlSheet.Cells(y, 6).value

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










                sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"



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

            Next


        ElseIf OpenFileDialog1.SafeFileName Like "名越发货明细*" Then  '------------------------------------------------------------------






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 2 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("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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 = 2 To y - 1




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

                my_comment = ""
                my_color = xlSheet.Cells(y, 2).value
                thick = ""

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










                sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "',N'" & my_color & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','',N'" & my_color & "','" & xlSheet.Cells(y, 3).value & "')"



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

            Next



        ElseIf OpenFileDialog1.SafeFileName Like "名创发货明细*" Then  '------------------------------------------------------------------






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 2 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("A2:g" & yy).Select()



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


            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 thick As String
            Dim my_comment 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 = 2 To y - 1




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

                my_comment = ""
                my_color = xlSheet.Cells(y, 2).value
                thick = ""

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










                sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "',N'" & my_color & "',N'" & xlSheet.Cells(y, 7).value & "',N'" & thick & "',N'" & xlSheet.Cells(y, 7).value & "',N'" & file_name & "','" & s1 & "','',N'" & my_color & "','" & xlSheet.Cells(y, 3).value & "')"



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

            Next




        ElseIf OpenFileDialog1.SafeFileName Like "好兄弟样品*" Then  '------------------------------------------------------------------






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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



            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 thick As String
            Dim my_comment 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




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

                '   my_comment = xlSheet.Cells(y, 7).value
                my_color = xlSheet.Cells(y, 5).value
                thick = xlSheet.Cells(y, 6).value

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










                sql = "insert into rt_ship_temp_1 (CARD,color1,work_no,thick,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 3).value & "',N'" & my_color & "',N'" & my_comment & "',N'" & thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','',N'" & my_color & "','" & xlSheet.Cells(y, 2).value & "')"



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

            Next



        ElseIf OpenFileDialog1.SafeFileName Like "*THANG*" Then  '------------------------------------------------------------------






            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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("A2:j" & yy).Select()



            xlApp.Selection.UnMerge



            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

            s1 = 1
            For y = 2 To y - 1


                If y = 2 Then

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

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


                    my_po = xlSheet.Cells(y, 9).value



                End If


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

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

                End If

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



                    my_name = xlSheet.Cells(y, 2).value.Replace("'", "''")


                    my_po = xlSheet.Cells(y, 9).value


                End If





                sql = "insert into rt_ship_temp_1 (po_no,filename,serial,no,name,qty,card) values(N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_name & "','" & xlSheet.Cells(y, 3).value & "','" & xlSheet.Cells(y, 4).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next






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


            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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
            Dim my_thick 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_po = xlSheet.Cells(y, 4).value
                    my_skuno = xlSheet.Cells(y, 5).value
                    my_color = xlSheet.Cells(y, 6).value
                    my_thick = xlSheet.Cells(y, 7).value
                    my_card = xlSheet.Cells(y, 3).value

                End If


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

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

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

                End If







                sql = "insert into rt_ship_temp_1 (card,comment,work_no,thick,po_no,filename,serial,no,color1,qty) values(N'" & my_card & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & my_skuno & "',N'" & my_thick & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_color & "','" & 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 "加和*" And Not (OpenFileDialog1.SafeFileName Like "*sample*") Then


            sql = "select count(*) from rt_ship_TEMP_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_temp_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()




            For i = 1 To xlApp.Worksheets.Count


                If xlApp.Workbooks(1).Worksheets(i).name = "加和" Or 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 = 3 To xlApp.ActiveSheet.UsedRange.Rows.Count

                If Len(xlSheet.Cells(y, 7).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
            Dim s1 As Integer = 0



            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_temp_1 (CARD,serial,filename,no,po_no,work_no,material_no,name,thick,
color1,qty) values('" & xlSheet.Cells(y, 9).value & "','" & s1 & "',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, 5).value & "','" & xlSheet.Cells(y, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1



            Next










        ElseIf OpenFileDialog1.SafeFileName Like "吉兴*" Then



            Sql = "delete from rt_ship_daily_JX"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()
            sql = "delete from rt_ship_temp_1 where filename=N'" & file_name & "'"
            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()

                sql = "insert into rt_ship_temp_1 (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_temp_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_temp_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 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_temp_1 (serial,filename,no,name,qty,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",N'" & xlSheet.Cells(y, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next

        ElseIf OpenFileDialog1.SafeFileName Like "加和*" And Not (OpenFileDialog1.SafeFileName Like "*sample*") Then


            sql = "select count(*) from rt_ship_TEMP_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_temp_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()




            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, 7).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
            Dim s1 As Integer = 0



            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_temp_1 (CARD,serial,filename,no,po_no,work_no,material_no,name,thick,
color1,qty) values('" & xlSheet.Cells(y, 9).value & "','" & s1 & "',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, 5).value & "','" & xlSheet.Cells(y, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1



            Next










        ElseIf OpenFileDialog1.SafeFileName Like "吉兴*" Then



            Sql = "delete from rt_ship_daily_JX"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()
            sql = "delete from rt_ship_temp_1 where filename=N'" & file_name & "'"
            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()

                sql = "insert into rt_ship_temp_1 (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 "*coach*" Then '-----------------------------------------
            sql = "select count(*) from rt_ship_temp_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_temp_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 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_temp_1 (serial,filename,no,name,qty,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",N'" & xlSheet.Cells(y, 7).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next


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


            sql = "select count(*) from rt_ship_TEMP_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_temp_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()

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


            Next


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

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

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

            dgv1.DataSource = dt

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

        ElseIf OpenFileDialog1.SafeFileName Like "鑫龙*" Then '---------------------


            sql = "select count(*) from rt_ship_TEMP_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_temp_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()

            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_temp_1 (serial,filename,no,name,qty,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 & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next



            Dim mysplit() As String

            dt = New DataTable

            sql = "select * from rt_ship_temp_1 where color1 is null and filename like N'%鑫龙%'"
            cmd.CommandText = sql

            da.Fill(dt)


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

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

                If UBound(mysplit) > 0 Then

                    sql = "update rt_ship_temp_1 set color1='" & mysplit(0) & "' where po_no='" & dt.Rows(d).Item("po_no") & "' and name='" & dt.Rows(d).Item("name") & "' and qty='" & dt.Rows(d).Item("qty") & "' and serial='" & dt.Rows(d).Item("serial") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()
                End If


            Next


        ElseIf OpenFileDialog1.SafeFileName Like "*鑫茂*" Then '---------------------


            sql = "select count(*) from rt_ship_TEMP_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_temp_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()

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


            Next



            Dim mysplit() As String

            dt = New DataTable

            sql = "select * from rt_ship_temp_1 where color1 is null and filename like N'%鑫龙%'"
            cmd.CommandText = sql

            da.Fill(dt)


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

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

                If UBound(mysplit) > 0 Then

                    sql = "update rt_ship_temp_1 set color1='" & mysplit(0) & "' where po_no='" & dt.Rows(d).Item("po_no") & "' and name='" & dt.Rows(d).Item("name") & "' and qty='" & dt.Rows(d).Item("qty") & "' and serial='" & dt.Rows(d).Item("serial") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()
                End If


            Next




        ElseIf OpenFileDialog1.SafeFileName Like "*亿博*" And (OpenFileDialog1.SafeFileName Like "*华盛*" Or OpenFileDialog1.SafeFileName Like "*NK*") Then '-----------------------------------



            sql = "select count(*) from rt_ship_temp_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_temp_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 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_temp_1 (serial,filename,no,name,qty,po_no,thick) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 4).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()
                sql = "delete from rt_ship_temp_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 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_temp_1 (serial,filename,no,name,qty,po_no) values('" & s1 & "',N'" & file_name & "','" & my_no & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & "," & "N'" & xlSheet.Cells(y, 7).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next



        ElseIf OpenFileDialog1.SafeFileName Like "*THANH*" Then '------------------------------------------------------------------------

            sql = "select count(*) from rt_ship_temp_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_temp_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 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_temp_1 (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()
                sql = "delete from rt_ship_temp_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 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()
                sql = "insert into rt_ship_temp_1 (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*" Or OpenFileDialog1.SafeFileName Like "INDIA*" Or OpenFileDialog1.SafeFileName Like "RAMARIM*" Or OpenFileDialog1.SafeFileName Like "KHE *" Or OpenFileDialog1.SafeFileName Like "PONTUS*" Or OpenFileDialog1.SafeFileName Like "BRANCH *" Then '--------------------------------

            sql = "select count(*) from rt_ship_temp_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_temp_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 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_temp_1 (thick,serial,filename,no,name,qty,po_no) values('1.24','" & s1 & "',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, 8).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1


            Next




        ElseIf OpenFileDialog1.SafeFileName Like "*HATAY*" And Not (OpenFileDialog1.SafeFileName Like "*手动*") Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 = 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("A2:j" & yy).Select()



            xlApp.Selection.UnMerge



            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

            s1 = 1
            For y = 2 To y - 1


                If y = 2 Then

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

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


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



                End If


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

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

                End If

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



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


                    my_po = xlSheet.Cells(y, 8).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()
                sql = "insert into rt_ship_temp_1 (card,po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "',N'" & my_po & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & my_name.ToString.Replace("'", "''") & "',N'" & xlSheet.Cells(y, 3).value & "')"
                cmd.CommandText = sql & "','" & xlSheet.Cells(y, 3).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next



            sql = "update rt_ship_temp_1 set thick=1.24 where name like '%1.2%' and name like '%1.4%' and filename like N'%hatay%' "
            cmd.CommandText = sql
            cmd.ExecuteScalar()
            sql = "update rt_ship_temp_1 set thick=1.46 where name like '%1.4%' and name like '%1.6%' and filename like N'%hatay%' "
            cmd.CommandText = sql
            cmd.ExecuteScalar()






        ElseIf OpenFileDialog1.SafeFileName Like "*许宝贝*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (color1,thick,card,deli_no,deli,
                                        po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & "尤珊荣" & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next
        ElseIf OpenFileDialog1.SafeFileName Like "*手动*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (color1,thick,card,deli_no,deli,
                                        po_no,work_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & xlSheet.Cells(y, 10).value & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 11).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next


        ElseIf OpenFileDialog1.SafeFileName Like "*许宝贝*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (color1,thick,card,deli_no,deli,
                                        po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & "尤珊荣" & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next

        ElseIf OpenFileDialog1.SafeFileName Like "*手动锐奇*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (color1,thick,card,deli_no,deli,
                                        po_no,work_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & "陈立雄" & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 11).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next



        ElseIf OpenFileDialog1.SafeFileName Like "*手动加和*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (color1,thick,card,deli_no,deli,
                                        po_no,work_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & "尤珊荣" & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 11).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next




            'ElseIf OpenFileDialog1.SafeFileName Like "*好兄弟*" Then '-----------------------------------------





            '    sql = "select count(*) from rt_ship_temp_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_temp_1 where filename=N'" & file_name & "'"
            '        cmd.CommandText = sql
            '        cmd.ExecuteNonQuery()


            '    End If



            '    xlApp = CreateObject("Excel.Application")
            '    xlApp.Visible = True
            '    xlApp.DisplayAlerts = False
            '    Dim my_name As String
            '    Dim my_qty As Double
            '    Dim my_po As String
            '    Dim my_po1 As String












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








            '    Dim s1 As Integer

            '    s1 = 1
            '    For y = 3 To 100


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





            '        sql = "insert into rt_ship_temp_1 (SIZE,COMMENT,color1,thick,card,deli_no,deli,
            '                                po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 12).value & "',N'" & xlSheet.Cells(y, 3).value & "',N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & xlSheet.Cells(y, 10).value & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
            '        cmd.CommandText = sql

            '        cmd.ExecuteScalar()
            '        s1 = s1 + 1

            '    Next







        ElseIf OpenFileDialog1.SafeFileName Like "*利亚*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (color1,thick,card,deli_no,deli,
                                        po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & xlSheet.Cells(y, 10).value & "',N'" & xlSheet.Cells(y, 3).value & xlSheet.Cells(y, 8).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next








        ElseIf OpenFileDialog1.SafeFileName Like "*名创鞋业*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (WORK_NO,color1,thick,card,deli_no,deli,
                                        po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 11).value & "','" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & xlSheet.Cells(y, 10).value & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next










        ElseIf OpenFileDialog1.SafeFileName Like "*聚兴*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (color1,thick,card,deli_no,deli,
                                        po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 9).value & "',N'" & "尤珊荣" & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next





        ElseIf OpenFileDialog1.SafeFileName Like "*加和sample*" Then '-----------------------------------------





            sql = "select count(*) from rt_ship_temp_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_temp_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 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

            s1 = 1
            For y = 3 To 100


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





                sql = "insert into rt_ship_temp_1 (work_no,color,thick,card,deli_no,deli,
                                        po_no,filename,serial,no,name,qty) values(N'" & xlSheet.Cells(y, 9).value & "',N'" & xlSheet.Cells(y, 4).value & "','" & xlSheet.Cells(y, 5).value & "','" & xlSheet.Cells(y, 7).value & "',N'" & xlSheet.Cells(y, 10).value & "',N'" & xlSheet.Cells(y, 11).value & "',N'" & xlSheet.Cells(y, 8).value & "',N'" & file_name & "','" & s1 & "','" & my_no & "',N'" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 6).value & "')"
                cmd.CommandText = sql

                cmd.ExecuteScalar()
                s1 = s1 + 1

            Next






        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()
                sql = "insert into rt_ship_temp_1 (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_temp_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_temp_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()

            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 y = 3 Then

                        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

                        my_po1 = xlSheet.Cells(3, 14).value
                        my_work1 = xlSheet.Cells(3, 15).value
                        my_color1 = xlSheet.Cells(3, 16).value
                        my_thick1 = xlSheet.Cells(3, 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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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_temp_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_temp_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 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"


            s1 = 1
            For y = 2 To y - 1



                sql = "insert into rt_ship_temp_1 (comment,serial,filename,card,name,qty,po_no) values(N'" & xlSheet.Cells(y, 13).value & "','" & s1 & "',N'" & file_name & "','" & xlSheet.Cells(y, 4).value & "',N'" & xlSheet.Cells(y, 2).value & "'," & xlSheet.Cells(y, 3).value & ",N'" & xlSheet.Cells(y, 9).value.ToString.Replace("'", " ") & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()


                s1 = s1 + 1
            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 "宏福1111*" Then                 '-----------------宏福-----------------PUMA


            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()
                sql = "delete from rt_ship_temp_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 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()
                sql = "insert into rt_ship_temp_1 (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 "穎億*" Then '-------------------------

            sql = "select count(*) from rt_ship_temp_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_temp_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()
            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_temp_1 (filename,no,name,qty,
                                                po_no,work_no) values(N'" & file_name & "','" & xlSheet.Cells(y, 1).value & "',N'" & xlSheet.Cells(y, 2).value & "','" & xlSheet.Cells(y, 3).value & "',N'" &
                    xlSheet.Cells(y, 8).value & "',N'" & xlSheet.Cells(y, 9).value & "')"
                cmd.CommandText = sql
                cmd.ExecuteScalar()



            Next











        ElseIf OpenFileDialog1.SafeFileName Like "澳孚*" Then  '------------------------------------


            sql = "select count(*) from rt_ship_temp_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_temp_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()
            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, 4).value



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

                ' End If

            Next







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


            sql = "select count(*) from rt_ship_temp_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_temp_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 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, 5).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, 7).value Is Nothing And xlSheet.Cells(yyy, 8).value Is Nothing 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("d3: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:M" & 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 y = 3 Then


                        my_no = xlSheet.Cells(y, 1).value
                        my_color = xlSheet.Cells(y, 5).value
                        my_thick = xlSheet.Cells(y, 6).value
                        my_card = xlSheet.Cells(y, 3).value

                        my_no1 = xlSheet.Cells(y, 7).value
                        my_color1 = xlSheet.Cells(y, 12).value
                        my_thick1 = xlSheet.Cells(y, 13).value




                    End If





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




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

                                my_card = xlSheet.Cells(y, 3).value
                                my_color = xlSheet.Cells(y, 5).value
                                my_thick = xlSheet.Cells(y, 6).value


                            End If





                            sql = "insert into rt_ship_temp_1 (filename,card,serial,qty,color1,thick,PO_NO) values(N'" &
                                file_name & "','" & my_card & "','" & s1 & "','" & xlSheet.Cells(y, 2).value & "',N'" & my_color & "','" & my_thick & "','" & xlSheet.Cells(y, 4).value & "')"
                            cmd.CommandText = sql
                            cmd.ExecuteScalar()
                            s1 = s1 + 1


                        End If
                    End If







                    If xlSheet.Cells(y, 9).value = Nothing And xlSheet.Cells(y, 12).value = Nothing And xlSheet.Cells(y, 13).value = Nothing Then
                        ' Exit For
                    Else
                        If xlSheet.Cells(y, 9).value Is Nothing Then
                        Else



                            If xlSheet.Cells(y, 12).value Is Nothing And xlSheet.Cells(y, 13).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_temp_1 (filename,card,serial,no,qty,color1,thick,PO_NO) values(N'" &
                            file_name & "','" & xlSheet.Cells(y, 10).value & "','" & s11 & "','" & my_no1 & "','" & xlSheet.Cells(y, 9).value & "',N'" & my_color1 & "','" & my_thick1 & "','" & xlSheet.Cells(y, 11).value & "')"
                            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 "*永驰*" Then '------------------------------------------------


            sql = "select count(*) from rt_ship_temp_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_temp_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 OK
                    End If

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

                Next y

                Dim yyy As Integer

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

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


                Next yyy



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

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

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

                    If IsNumeric(r(0)) Then
                    Else

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

                        If IsNumeric(r(0)) Then
                        Else

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



                    End If




                    'my_total_weight = r(0)




                End If



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

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

                'xlSheet.Range("c3:c" & 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("d3: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_card1 As String
                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_card = xlSheet.Cells(3, 3).value
                        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

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


                    End If



                    If xlSheet.Cells(y, 2).value Is Nothing Then
                    Else
                        If xlSheet.Cells(y, 6).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_temp_1 (filename,card,serial,no,qty,order_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,order_no,work_no,color1,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






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

                        If xlSheet.Cells(y, 16).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_temp_1 (filename,card,serial,no,qty,order_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,order_no,work_no,color1,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()






                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



            sql = "update rt_ship_temp_1 set name=color where filename like N'%永驰%'"
            cmd.CommandText = sql
            cmd.ExecuteScalar()




        ElseIf OpenFileDialog1.SafeFileName Like "*铭鑫*" Then '------------------------------------------------


            sql = "select count(*) from rt_ship_temp_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_temp_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 my_card1 As String
                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 = 2 To xlApp.Workbooks(1).Worksheets(i).UsedRange.Rows.Count

                    If y = 2 Then

                        ' my_card = xlSheet.Cells(3, 3).value
                        my_po = xlSheet.Cells(y, 5).value
                        ' my_work = xlSheet.Cells(3, 5).value
                        my_color = xlSheet.Cells(y, 2).value
                        my_thick = xlSheet.Cells(y, 3).value

                        ' my_card1 = xlSheet.Cells(y, 13).value
                        my_po1 = xlSheet.Cells(y, 10).value
                        '  my_work1 = xlSheet.Cells(y, 15).value
                        my_color1 = xlSheet.Cells(y, 7).value
                        my_thick1 = xlSheet.Cells(y, 8).value


                    End If



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


                        sql = "insert into rt_ship_temp_1 (filename,serial,no,qty,order_no,work_no,color,thick) values(N'" & file_name & "','" & s1 & "','" & my_no & "'," & xlSheet.Cells(y, 4).value & ",N'" & my_po & "',N'" & my_work & "',N'" & my_color & "','" & my_thick & "')"
                        cmd.CommandText = sql
                        cmd.ExecuteScalar()
                        s1 = s1 + 1


                    End If






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




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





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






                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



            sql = "update rt_ship_temp_1 set name=color where filename like N'%永驰%'"
            cmd.CommandText = sql
            cmd.ExecuteScalar()






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




            sql = "select count(*) from rt_ship_temp_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_temp_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 y = 3 Then

                        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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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_temp_1 (filename,card,serial,no,qty,po_no,work_no,color1,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



        sql = "update rt_ship_temp_1 set comment='' where comment is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()













        xlApp.Visible = True


        xlApp.Quit()

        xlSheet = Nothing '釋放sheet物件


        '  xlApp.Quit() '關閉Excel





        KillExcel(xlApp)




        update()   '更新资料

        'Button3.PerformClick()
        'Button6.PerformClick()


        sql = "update rt_ship_temp_1 set thick=1.24 where name like '%1.2-%' and thick is null "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set thick=1.46 where name like '%1.4-%' and thick is null "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set name=color1 where name is null "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "select filename,cast(sum(qty) as numeric(10,1)) as 尺数 from rt_ship_temp_1 group by filename,update_date order by update_date desc"

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


        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_daily_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        dgv_edit.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        dgv1.AllowUserToAddRows = False
        DataGridView2.AllowUserToAddRows = False
        DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        chkZhiDan.Items.Add("陈立雄")
        chkZhiDan.Items.Add("尤珊荣")
        chkZhiDan.Items.Add("郑春玉")
        chkZhiDan.Items.Add("陈建超")
        chkZhiDan.Items.Add("蔡春燕")
        chkZhiDan.Items.Add("叶以")

        chkZhiDan.Items.Add("蔡青山")
        chkZhiDan.Items.Add("许燕江")
        chkZhiDan.SelectionMode = SelectionMode.One


        chkSongHuo.Items.Add("许智富")
        chkSongHuo.Items.Add("蔡青山")


        chkSongHuo.SelectionMode = SelectionMode.One




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

        '---------------------------------------------------------------------------更新
        sql = "update  rt_ship_temp_1 set update_date=getdate() where date is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



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

        sql = "update rt_ship_temp_1 set color1=name where len(color1)<2 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "UPDATE  rt_ship_temp_1
        SET           source1 = p.Expr1
        FROM      (SELECT  card1, source AS Expr1
                           FROM       RT_RETAN_RECORD
                           ) AS p INNER JOIN
                           rt_ship_temp_1 ON p.card1 = rt_ship_temp_1.card"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_ship_temp_1 set source1=N'信德' where right(card,2)= 'WB'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_ship_temp_1 set source1=N'外购小皮' where right(card,1)= 'W'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()




        sql = "select top(1) date from rt_ship_temp_1 order by date desc"
        cmd.CommandText = sql
        TextBox8.Text = cmd.ExecuteScalar

        sql = "select top(1) date from rt_measure_daily order by date desc"
        cmd.CommandText = sql
        TextBox7.Text = cmd.ExecuteScalar


        sql = "SELECT  rt_ship_temp_1.date, rt_ship_temp_1.custname, rt_ship_temp_1.name, rt_ship_temp_1.card AS 卡号, 
                   CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 销售数量, CAST(AVG(rt_finish_stock.sf) AS numeric(10, 1)) 
                   AS 即时库存, CAST(AVG(rt_finish_stock.sf) AS numeric(10, 1)) - CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 结存, 
                   rt_finish_stock.code AS 代码, rt_finish_stock.name AS 品名
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
WHERE   (rt_ship_temp_1.date BETWEEN '2024/6/18' AND '2024/6/30')
GROUP BY rt_ship_temp_1.card, rt_finish_stock.code, rt_finish_stock.name, rt_ship_temp_1.date, rt_ship_temp_1.custname, 
                   rt_ship_temp_1.name
ORDER BY 结存"

        DateTimePicker3.Value = "2024/6/18"

        cmd.CommandText = sql
        cmd.ExecuteScalar()

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

        dgv_bal.DataSource = dt1




        sql = "update rt_ship_temp_1 set comment='' where comment is null"

        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "update rt_ship_temp_1 set comment='' where comment is null"

        cmd.CommandText = sql
        cmd.ExecuteScalar()



        update()

    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        If DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*上杰*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*宏美发*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*永正*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*宏福*" Then '---加order_item
            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,order_item as 项次号, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,order_item,deli,deli_no"


            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
                   rt_ship_temp_1.work_no AS 指令号,order_item as 项次号,CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.order_item, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
                   rt_ship_temp_1.order_item AS 项次号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.order_item, rt_ship_temp_1.deli, rt_finish_stock.name"


            If DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*上杰*" Then
                sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,order_item as 项次号, cast(sum(qty) as numeric(10,1)) as 尺数,comment as 备注,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,order_item,comment,deli,deli_no"

                sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
                   rt_ship_temp_1.work_no AS 指令号,order_item as 项次号,CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, rt_ship_temp_1.comment as 备注,
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.comment,rt_ship_temp_1.order_item, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

                sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
                   rt_ship_temp_1.order_item AS 项次号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.order_item, rt_ship_temp_1.deli, rt_finish_stock.name"


            End If




        ElseIf DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*076样*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*好兄弟*" Then   '-----加comment

            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,comment as 备注, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,comment,deli_no,deli"

            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
                   rt_ship_temp_1.work_no AS 指令号,comment as 备注, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.comment, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号,comment as 备注, 
                    CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.comment, rt_ship_temp_1.deli, rt_finish_stock.name"


        Else  '---其他

            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,deli_no,deli"

            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
                   rt_ship_temp_1.work_no AS 指令号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
                    CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
FROM      rt_ship_temp_1 LEFT OUTER JOIN
                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,  rt_ship_temp_1.deli, rt_finish_stock.name"
        End If



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

        DataGridView2.Columns(0).Width = 550
        DataGridView2.Columns(1).Width = 100
        DataGridView2.Columns(2).Width = 70
        DataGridView2.Columns(3).Width = 150
        DataGridView2.Columns(5).Width = 150
















        '        If DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*上杰*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*宏美发*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*永正*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*宏福*" Then '---加order_item
        '            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,order_item as 项次号, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,order_item,deli,deli_no"


        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号,order_item as 项次号,CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.order_item, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
        '                   rt_ship_temp_1.order_item AS 项次号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.order_item, rt_ship_temp_1.deli, rt_finish_stock.name"


        '            If DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*上杰*" Then
        '                sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,order_item as 项次号, cast(sum(qty) as numeric(10,1)) as 尺数,comment as 备注,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,order_item,comment,deli,deli_no"

        '                sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号,order_item as 项次号,CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, rt_ship_temp_1.comment as 备注,
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.comment,rt_ship_temp_1.order_item, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '                sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
        '                   rt_ship_temp_1.order_item AS 项次号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.order_item, rt_ship_temp_1.deli, rt_finish_stock.name"


        '            End If




        '        ElseIf DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*076样*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*好兄弟*" Then   '-----加comment

        '            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,comment as 备注, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,comment,deli_no,deli"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号,comment as 备注, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.comment, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号,comment as 备注, 
        '                    CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.comment, rt_ship_temp_1.deli, rt_finish_stock.name"


        '        Else  '---其他

        '            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,deli_no,deli"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
        '                    CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,  rt_ship_temp_1.deli, rt_finish_stock.name"
        '        End If



        '        cmd.CommandText = sql
        '        da.SelectCommand = cmd
        '        dt1 = New DataTable
        '        da.Fill(dt1)
        '        DataGridView2.DataSource = Nothing
        '        DataGridView2.DataSource = dt1

        '        DataGridView2.Columns(0).Width = 400
        '        DataGridView2.Columns(1).Width = 200
        '        DataGridView2.Columns(3).Width = 200



    End Sub
    Private Sub update()

        sql = "update rt_ship_temp_1 set name=color1 where name is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

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


        sql = "select filename,cast(sum(qty) as numeric(10,1)) as 尺数 from rt_ship_temp_1 group by filename,update_date order by update_date desc"

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


        DataGridView1.Columns(0).Width = 350
        DataGridView1.RowHeadersWidth = 25

        DataGridView1.Rows(0).Selected = False





    End Sub

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

        xlApp = CreateObject("Excel.Application")



        xlBook = xlApp.Workbooks.Add

        xlApp.Visible = True
        'xlApp.DisplayAlerts = False

        xlBook.Activate()
        xlBook.Parent.Windows(1).Visible = True


        xlSheet = xlBook.Worksheets(1)
        xlSheet.Name = "反毛皮"

        xlApp.DisplayAlerts = False

        sql = "select date as 日期,custname as 客户,deli_no as 发货单号,replace(color1,char(10),'') as 颜色,cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人 from rt_ship_temp_1 
                where DATE BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and  pattern is null group by date,custname,deli_no,color1,deli"

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

        dgv_1.DataSource = dt1
        dgv_1.SelectAll()
        Me.dgv_1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv_1.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv_1.GetClipboardContent())





        xlSheet.Cells(4, 2).PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

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



        sql = "select deli as 发货人,cast(sum(qty) as numeric(10,1)) as 尺数 from rt_ship_temp_1 where DATE BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and pattern is null group by deli "

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

        dgv_2.DataSource = dt1
        dgv_2.SelectAll()
        Me.dgv_2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv_2.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv_2.GetClipboardContent())

        xlApp.Cells(4, 10).Select()


        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("J4:K" & dt1.Rows.Count + 3 + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表2"

        xlSheet.Columns("b:b").ColumnWidth = 22
        xlSheet.Columns("c:c").ColumnWidth = 25
        xlSheet.Columns("d:d").ColumnWidth = 25
        xlSheet.Columns("e:e").ColumnWidth = 40

        ' xlApp.Columns("f:k").NumberFormatLocal = "#,###.0_ ;[红色]-0.0 "
        xlApp.Columns("b:k").EntireColumn.AutoFit


        xlApp.Columns("b:b").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("d:d").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("g:g").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter




        PTCache = xlBook.PivotCaches.Add _
        (SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase,
         SourceData:=xlSheet.Range("b4:g123").CurrentRegion.Address)

        PT = PTCache.CreatePivotTable _
        (TableDestination:=xlSheet.Cells(4, 13),
         TableName:="PivotTable1")

        With PT
            .PivotFields("日期").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlColumnField
            .PivotFields("客户").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
            .PivotFields("尺数").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlDataField
        End With

        xlSheet.PivotTables("PivotTable1").TableStyle2 = "PivotStyleMedium9"

        '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        xlSheet = xlBook.Worksheets.Add()
        xlSheet.Name = "全部"

        xlApp.DisplayAlerts = False

        sql = "select date as 日期,custname as 客户, po_no as 订单号, order_item as 项次号, replace(name,char(10),'') as 品名,thick as 厚度, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号,card as 卡号,source1 as 皮源 from rt_ship_temp_1 
                where DATE BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "'  group by date,custname,po_no,order_item,thick,deli_no,name,deli,card,source1"

        cmd.CommandText = sql
        da.SelectCommand = cmd
        Dim dt2 As New DataTable
        da.Fill(dt2)

        sql = "select date as 日期,cust as 客户,N'退货' as 订单号,color + ' [' + comment + ' ]' as 品名,cast(qty as numeric(10,1)) as 尺数 from rt_k3_sale_reject where date BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "'"
        cmd.CommandText = sql
        da.SelectCommand = cmd

        da.Fill(dt2)



        DataGridView2.DataSource = dt2
        DataGridView2.SelectAll()
        Me.DataGridView2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DataGridView2.RowHeadersVisible = False

        Clipboard.SetDataObject(DataGridView2.GetClipboardContent())





        xlSheet.Cells(4, 2).PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

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



        sql = "select deli as 发货人,cast(sum(qty) as numeric(10,1)) as 尺数 from rt_ship_temp_1 where DATE BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' group by deli "

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

        dgv_2.DataSource = dt1
        dgv_2.SelectAll()
        Me.dgv_2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv_2.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv_2.GetClipboardContent())

        xlApp.Cells(4, 14).Select()


        xlSheet.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

        xlApp.ActiveSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("N4:o" & dt1.Rows.Count + 3 + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表2"

        xlSheet.Columns("b:b").ColumnWidth = 22
        xlSheet.Columns("c:c").ColumnWidth = 25
        xlSheet.Columns("d:d").ColumnWidth = 25
        xlSheet.Columns("e:e").ColumnWidth = 40
        xlApp.Columns("f:f").ColumnWidth = 100


        'xlApp.Columns("H").Select
        'With xlApp.Selection.Font
        '    .Color = -16776961
        '    .TintAndShade = 0
        'End With


        xlSheet.Columns("H:H").NumberFormatLocal = "#,###.0_ ;[紅色]-0.0"


        xlApp.Selection.NumberFormatLocal = "@"


        ' xlApp.Selection.NumberFormatLocal = "#,###.0_ ;[红色]-0.0 "
        xlApp.Columns("b:L").EntireColumn.AutoFit


        xlApp.Columns("b:b").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("d:d").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("e:e").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("g:g").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("i:i").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("j:j").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlRight
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter


        PTCache = xlBook.PivotCaches.Add _
        (SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase,
         SourceData:=xlSheet.Range("b4:L1000").CurrentRegion.Address)

        PT = PTCache.CreatePivotTable _
        (TableDestination:=xlSheet.Cells(4, 17),
         TableName:="PivotTable1")

        With PT
            .PivotFields("日期").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlColumnField
            .PivotFields("客户").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
            .PivotFields("尺数").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlDataField
        End With

        xlSheet.PivotTables("PivotTable1").TableStyle2 = "PivotStyleMedium9"
        '-----------------------------------------------------------------------------贴膜


        xlSheet = xlBook.Worksheets.Add()

        xlSheet.Name = "贴膜"


        sql = "select date as 日期,custname as 客户,deli_no as 发货单号,replace(color1,char(10),'') as 颜色,pattern as 纹路, size as 分类,cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人 from rt_ship_temp_1 where DATE BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and pattern is not null 
                      group by date,custname,deli_no,color1,pattern,size,deli order by date,custname,deli_no,color1,pattern,sum(sf),deli"

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

        DGV_3.DataSource = dt1
        DGV_3.SelectAll()
        Me.DGV_3.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.DGV_3.RowHeadersVisible = False

        Clipboard.SetDataObject(DGV_3.GetClipboardContent())





        xlSheet.Cells(4, 2).Select()
        xlApp.Selection.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

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





        sql = "select deli as 发货人,cast(sum(qty) as numeric(10,1)) as 尺数  from rt_ship_temp_1 where DATE BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and pattern is not null group by deli "

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

        dgv_4.DataSource = dt1
        dgv_4.SelectAll()
        Me.dgv_4.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
        Me.dgv_4.RowHeadersVisible = False

        Clipboard.SetDataObject(dgv_4.GetClipboardContent())

        xlSheet.Cells(4, 13).Select()


        xlApp.Selection.PasteSpecial()
        Clipboard.SetDataObject(DBNull.Value)

        xlSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlApp.Range("m4:n" & dt1.Rows.Count + 3 + 1), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表2"





        xlSheet.Columns("b:b").ColumnWidth = 22
        xlSheet.Columns("c:c").ColumnWidth = 25
        xlSheet.Columns("d:d").ColumnWidth = 25
        xlSheet.Columns("e:e").ColumnWidth = 40

        '  xlApp.Columns("f:k").NumberFormatLocal = "#,###.0_ ;[红色]-0.0 "
        xlApp.Columns("b:k").EntireColumn.AutoFit

        xlApp.Columns("b:b").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("d:d").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Columns("g:g").Select()
        xlApp.Selection.HorizontalAlignment = Excel.Constants.xlCenter
        xlApp.Selection.VerticalAlignment = Excel.Constants.xlCenter

        xlApp.Cells(1, 1).Select()



        PTCache = xlBook.PivotCaches.Add _
        (SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase,
         SourceData:=xlSheet.Range("b4:i18").CurrentRegion.Address)

        PT = PTCache.CreatePivotTable _
        (TableDestination:=xlSheet.Cells(4, 16),
         TableName:="PivotTable1")

        With PT
            .PivotFields("日期").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlColumnField
            .PivotFields("客户").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
            .PivotFields("尺数").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlDataField
        End With

        xlSheet.PivotTables("PivotTable1").TableStyle2 = "PivotStyleMedium9"





        xlBook.SaveAs("d:\销售汇总自" & String.Format("{0:MMdd}", DateTimePicker1.Value) & "至" & String.Format("{0:MMdd}", DateTimePicker2.Value) & "止" & String.Format("{0:HHss}", Now) & ".xls")

        '  KillExcel(xlApp)

    End Sub

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

    End Sub

    Private Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellContentClick

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '更新color order_no qty work_no order_item





        Dim dt As DataTable



        sql = "update rt_ship_temp_1 set po_no=order_no where order_no Is Not null And po_no Is null "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set qty=qty_sf1 where qty_sf1 Is Not null And qty Is null         "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set work_no=i_no where i_no Is Not null And work_no Is null     "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set qty=sf where qty Is null    "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set order_item='' where order_item Is null        "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "SELECT  * FROM rt_ship_temp_1  WHERE COLOR1 IS NULL"  '--------------------------

        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("name").ToString = "" Then

                sql = "update rt_ship_temp_1 set color1=N'" & dt.Rows(x).Item("color") & "' where filename=N'" & dt.Rows(x).Item("filename") & "' and po_no=N'" & dt.Rows(x).Item("po_no") & "' and thick='" & dt.Rows(x).Item("thick") & "' and serial=N'" & dt.Rows(x).Item("serial") & "'"
                cmd.CommandText = sql
                cmd.ExecuteScalar()






            Else


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

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



                If UBound(mysplit) > 0 Then
                    sql = "update rt_ship_temp_1 set color1=N'" & mysplit(UBound(mysplit)).ToString.Replace("'", "") & "' where filename=N'" & dt.Rows(x).Item("filename") & "' and name=N'" & dt.Rows(x).Item("name").ToString.Replace("'", "''") & "' and qty='" & dt.Rows(x).Item("qty") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()
                Else
                    sql = "update rt_ship_temp_1 set color1=N'" & dt.Rows(x).Item("NAME").ToString.Replace("'", "") & "' where filename=N'" & dt.Rows(x).Item("filename") & "' and name=N'" & dt.Rows(x).Item("name").ToString.Replace("'", "''") & "' and qty='" & dt.Rows(x).Item("qty") & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                End If
            End If


        Next



        MsgBox("")


    End Sub

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


        update_custname()


        sql = "UPDATE rt_ship_temp_1 SET THICK='1.24' WHERE NAME LIKE '%1.24%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE rt_ship_temp_1 SET THICK='1.24' WHERE NAME LIKE '%1.2mm-1.4%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE rt_ship_temp_1 SET THICK='1.24' WHERE NAME LIKE '%1.2M1.4MM%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "UPDATE rt_ship_temp_1 SET THICK='1.24' WHERE NAME LIKE '%1.2-1.4%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE rt_ship_temp_1 SET THICK='1.46' WHERE NAME LIKE '%1.46%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE rt_ship_temp_1 SET THICK='1.46' WHERE NAME LIKE '%1.4-1.6%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "UPDATE rt_ship_temp_1 SET THICK='1.68' WHERE NAME LIKE '%1.6-1.8%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        '------------------纹路
        sql = "UPDATE  rt_ship_temp_1 SET rt_ship_temp_1.pattern = rt_pu_pattern1.pattern 																												   
               FROM      rt_ship_temp_1 left OUTER JOIN rt_pu_pattern1 ON rt_ship_temp_1.name LIKE '%' + rt_pu_pattern1.pattern + '%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        '-----size

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


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

        sql = "update rt_ship_temp_1 set card='' where card is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set po_no='' where po_no is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



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

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

        sql = "update rt_ship_temp_1 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'%东家%' or custname like N'%颖亿%' or 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_1 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'%永弘%' or custname like N'%上杰%') and color1 not like '%SM%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

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

        sql = "update rt_ship_temp_1 set size=N'4-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_1 set size=N'12以上' where pattern is not null and (custname like N'%好兄弟%' ) and name not like '%4-8%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set size=N'4-8尺' where pattern is not null and (custname like N'%好兄弟%' ) and name like '%4-8%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1 set size=N'4-8小皮' where pattern is not null and (custname like N'%铭鑫%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 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'%宏福%' or custname like N'%THANG%' or  custname like N'%HATAY%' or custname like N'%利亚%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 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_1 set size=N'8-12尺' where pattern is not null and  (custname like N'%好兄弟%') and po_no like N'%样品%' "
        'cmd.CommandText = sql
        'cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set size=N'8以上' where pattern is not null and  (custname like N'%周连发%') "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        'sql = "update rt_ship_temp_1 set size=N'12以上' where pattern is not null and  (custname like N'%好兄弟%') and po_no not like N'%样品%' "
        'cmd.CommandText = sql
        'cmd.ExecuteScalar()


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


        sql = "update rt_ship_temp_1 set size=N'12以上' where pattern is not null and  (custname like N'%名创鞋业%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set size=N'12以上' where pattern is not null and  (name like N'%12以上%')  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        MsgBox("更新完成")


    End Sub

    Private Sub update_date()
        Dim dt As New DataTable
        Dim mysplit() As String
        Dim str() As String

        sql = "select * from rt_ship_temp_1 where date is null"
        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


            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_1 set date='" & d & "' where  po_no=N'" & dt.Rows(x).Item("po_no") & "' and  order_no=N'" & dt.Rows(x).Item("order_no") & "' and qty='" & dt.Rows(x).Item("qty") & "' and filename=N'" & dt.Rows(x).Item("filename") & "' and serial='" & dt.Rows(x).Item("serial") & "' and cust='" & dt.Rows(x).Item("cust") & "'"

            cmd.CommandText = sql
            cmd.ExecuteScalar()











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


        sql = "update rt_ship_temp_1 set po_no ='' where po_no is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set serial ='' where serial is null"
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        sql = "select * from rt_ship_temp_1 where date is null"
        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)

            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 = "2024" & "/" & mymonth & "/" & myday


            d = mydate



            sql = "update rt_ship_temp_1 set date='" & d & "' where  po_no=N'" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and qty='" & dt.Rows(x).Item("qty") & "' and filename=N'" &
                dt.Rows(x).Item("filename") & "' and serial='" & dt.Rows(x).Item("serial") & "' and po_no=N'" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "'"

            cmd.CommandText = sql
            cmd.ExecuteScalar()


        Next

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

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

        sql = "update rt_ship_temp_1 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_1 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_1 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_1 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_1 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_1 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 Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

    End Sub

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


        Dim dt As New DataTable

        If IsNumeric(TextBox4.Text) Then
        Else

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

        sql = "select count(*) from rt_ship_temp_1 where DATE 
        BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and  cust is null or custname is null"
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then


            sql = "select filename 档案名,color1 as 颜色,qty as 尺数,no as 序号 from rt_ship_temp_1 where DATE 
        BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and  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_1 where pattern is not null and size is null and DATE 
        BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "'"
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then

            MsgBox("请检查贴膜皮身")
            Exit Sub

        End If

        sql = "select count(*) from rt_ship_temp_1 where size is not null and pattern is null and DATE 
        BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "'"
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then

            MsgBox("请检查纹路")
            Exit Sub

        End If






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

        If cmd.ExecuteScalar > 0 Then

            sql = "select filename 档案名,color1 as 颜色,qty as 尺数,no as 序号 from rt_ship_temp_1 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_1 where DATE 
        BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and  color1 is null "
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then


            sql = "select filename 档案名,color1 as 颜色,qty as 尺数,no as 序号 from rt_ship_temp_1 where color1 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_1 where DATE 
        BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and  deli is null "
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then

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

        End If



        sql = "select count(*) from rt_ship_temp_1 where DATE 
        BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and thick 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("D:\K3\k3表格模板\销售出库空白模版.xls",, 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  po_no,deli_no,work_no,thick, cust,custname,date,filename,deli,order_item,color1 FROM rt_ship_temp_1 where DATE 
BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' 
group by deli_no,po_no,cust,date,filename,custname,work_no,thick,deli,order_item,color1,thick order by date,cust,deli_no "
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)



        Dim aa As Integer




        aa = TextBox4.Text
        Dim my_no As String = "XSCK"
        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) = "'吴小男"
            xlSheet.Cells(x + 2, 4) = "'" & my_no & aa
            xlSheet.Cells(x + 2, 5) = "'zhang"

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





            If dt.Rows(x).Item("custname") Like "*上杰*" Or dt.Rows(x).Item("custname") Like "*永正*" Or dt.Rows(x).Item("custname") Like "*宏福*" Then

                xlSheet.Cells(x + 2, 47) = "'" & dt.Rows(x).Item("order_item")

            Else

                xlSheet.Cells(x + 2, 47) = dt.Rows(x).Item("work_no")


            End If









            '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

            If dt.Rows(x).Item("deli") = "陈建超" Then
                xlSheet.Cells(x + 2, 49) = "'247"
                xlSheet.Cells(x + 2, 50) = "'陈建超"

            End If

            If dt.Rows(x).Item("deli") = "蔡春燕" Then
                xlSheet.Cells(x + 2, 49) = "'246"
                xlSheet.Cells(x + 2, 50) = "'蔡春燕"

            End If

            If dt.Rows(x).Item("deli") = "叶以" Then
                xlSheet.Cells(x + 2, 49) = "'248"
                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,color1,deli_no,card,thick,sum(qty) as qty,pattern from rt_ship_temp_1 where DATE BETWEEN '" & String.Format("{0:d}", DateTimePicker1.Value) & "' AND '" & String.Format("{0:d}", DateTimePicker2.Value) & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and filename=N'" & dt.Rows(x).Item("filename") & "' group by date,cust,color1,deli_no,card,thick,pattern"





            '            sql = "SELECT  FILENAME,COMMENT,sum( qty) as qty,  work_no,  color1,  pattern, SIZE,name,
            ' thick,  deli_no,  card,CASE 
            'WHEN source1 LIKE N'%美国广东%' THEN N'516.F.A2' 
            'WHEN source1 LIKE N'%APP%' THEN N'516.F.A3' 
            'WHEN source1 LIKE N'%阿根廷%' THEN N'516.F.B1' 
            'WHEN source1 LIKE N'%澳州%' THEN N'516.F.C1' 
            'WHEN source1 LIKE N'%越南美国%' THEN N'516.F.A3' 
            'WHEN source1 LIKE N'%澳洲%' THEN N'516.F.C1' 
            'WHEN source1 LIKE N'%南非%' THEN N'516.F.E1' 
            'WHEN source1 LIKE N'%乌拉圭%' THEN N'516.F.F1' 
            'WHEN source1 LIKE N'%墨西哥%' THEN N'516.F.G1' 
            'WHEN source1 LIKE N'%泰国日本%' THEN N'516.F.S1' 
            'WHEN source1 LIKE N'%新西兰%' THEN N'516.F.I1' 
            'WHEN source1 LIKE N'%欧州%' THEN N'516.F.J1' 
            'WHEN source1 LIKE N'%孟加拉%' THEN N'516.F.K1' 
            'WHEN source1 LIKE N'%西班牙%' THEN N'516.F.L1' 
            'WHEN source1 LIKE N'%巴西%' THEN N'516.F.N1' 
            'WHEN source1 LIKE N'%英国%' THEN N'516.F.O1' 
            'WHEN source1 LIKE N'%牛种%' THEN N'516.F.P1' 
            'WHEN source1 LIKE N'%智利%' THEN N'516.F.Q1' 
            'WHEN source1 LIKE N'%德国%' THEN N'516.F.R1' 
            'WHEN source1 LIKE N'%日本%' THEN N'516.F.S1' 
            'WHEN source1 LIKE N'%俄罗斯%' THEN N'516.F.T1' 
            'WHEN source1 LIKE N'%台湾泰庆%' THEN N'516.F.Z1' 
            'WHEN source1 LIKE N'%杂皮%' THEN N'516.F.Z9' 
            'WHEN source1 LIKE N'%二层%' THEN N'516.P.01' ELSE '516.F.Z9' 
            'END AS source2, 
            '   CASE 
            'WHEN source1 LIKE N'%美国广东%' THEN N'美国广东 二层' 
            'WHEN source1 LIKE N'%APP%' THEN N'美国APP 二层' 
            'WHEN source1 LIKE N'%越南美国%' THEN N'美国APP 二层' 
            'WHEN source1 LIKE N'%阿根廷%' THEN N'阿根廷 二层' 
            'WHEN source1 LIKE N'%澳州%' THEN N'澳洲 二层' 
            'WHEN source1 LIKE N'%澳洲%' THEN N'澳洲 二层' 
            'WHEN source1 LIKE N'%南非%' THEN N'南非 二层' 
            'WHEN source1 LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' 
            'WHEN source1 LIKE N'%墨西哥%' THEN N'墨西哥 二层' 
            'WHEN source1 LIKE N'%泰国日本%' THEN N'日本 二层' 
            'WHEN source1 LIKE N'%新西兰%' THEN N'新西兰 二层' 
            'WHEN source1 LIKE N'%欧州%' THEN N'欧洲 二层' 
            'WHEN source1 LIKE N'%孟加拉%' THEN N'孟加拉 二层' 
            'WHEN source1 LIKE N'%西班牙%' THEN N'西班牙 二层' 
            'WHEN source1 LIKE N'%巴西%' THEN N'巴西 二层' 
            'WHEN source1 LIKE N'%英国%' THEN N'英国 二层' 
            'WHEN source1 LIKE N'%牛种%' THEN N'肯尼亚 二层' 
            'WHEN source1 LIKE N'%智利%' THEN N'智利 二层' 
            'WHEN source1 LIKE N'%德国%' THEN N'德国 二层' 
            'WHEN source1 LIKE N'%日本%' THEN N'日本 二层' 
            'WHEN source1 LIKE N'%俄罗斯%' THEN N'俄罗斯 二层' 
            'WHEN source1 LIKE N'%台湾泰庆%' THEN N'台湾泰庆 二层' 
            'WHEN source1 LIKE N'%杂皮%' THEN N'杂皮 二层' 
            'WHEN source1 LIKE N'%二层%' THEN N'二层' ELSE N'杂皮 二层' 
            'END AS source3 
            'from rt_ship_temp_1 where po_no=N'" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and date='" & dt.Rows(x).Item("date") & "' and work_no=N'" & dt.Rows(x).Item("work_no").ToString.Replace("'", "''") & "' and deli_no='" & dt.Rows(x).Item("deli_no") & "' and filename=N'" & dt.Rows(x).Item("filename") & "' and color1=N'" & dt.Rows(x).Item("color1") & "' group by FILENAME,COMMENT,work_no,color1,source1,pattern,size,name,thick,deli_no,card ORDER BY QTY"



            '            sql = "SELECT  TOP (100) PERCENT rt_ship_temp_1.custname, rt_ship_temp_1.card AS 卡号, CAST(SUM(rt_ship_temp_1.qty) 
            '                   AS numeric(10, 1)) AS 尺数, CASE WHEN RIGHT(rt_ship_temp_1.card, 1) = 'F' THEN 'BRF' + substring(rt_ship_temp_1.card, 
            '                   0, len(rt_ship_temp_1.card)) ELSE '' END AS 卡号1, CASE WHEN rt_finish_stock.name IS NULL 
            '                   THEN N'杂皮 二层' ELSE rt_finish_stock.name END AS 品名, CASE WHEN rt_finish_stock.sf IS NULL 
            '                   THEN '' ELSE rt_finish_stock.sf END AS 库存尺数, CASE WHEN rt_finish_stock.code IS NULL 
            '                   THEN '516.F.XX' ELSE rt_finish_stock.code END AS 编码, rt_ship_temp_1.color1 AS 颜色, 
            '                   rt_ship_temp_1.date AS 出货日期, rt_ship_temp_1.po_no, rt_ship_temp_1.work_no, rt_ship_temp_1.thick, 
            '                   rt_ship_temp_1.deli_no, rt_ship_temp_1.cust, rt_finish_stock.lot
            'FROM      rt_ship_temp_1 LEFT OUTER JOIN
            '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
            'WHERE   (rt_ship_temp_1.po_no=N'" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and rt_ship_temp_1.date='" & dt.Rows(x).Item("date") & "' and rt_ship_temp_1.work_no=N'" & dt.Rows(x).Item("work_no").ToString.Replace("'", "''") & "' and rt_ship_temp_1.deli_no='" & dt.Rows(x).Item("deli_no") & "' and rt_ship_temp_1.filename=N'" & dt.Rows(x).Item("filename") & "' and rt_ship_temp_1.color1=N'" & dt.Rows(x).Item("color1") & "')
            'GROUP BY rt_ship_temp_1.custname, rt_ship_temp_1.card, rt_finish_stock.name, rt_finish_stock.sf, rt_finish_stock.code, 
            '                   rt_ship_temp_1.color1, rt_ship_temp_1.date, rt_ship_temp_1.po_no, rt_ship_temp_1.work_no, rt_ship_temp_1.thick, 
            '                   rt_ship_temp_1.deli_no, rt_ship_temp_1.cust, rt_finish_stock.lot
            'ORDER BY 出货日期"


            '            sql = "SELECT  CASE WHEN 卡号 = '' and pattern is null THEN '2024999999F' when 卡号 = '' and pattern is not null THEN '2024999999P' else 卡号 END AS 卡号, SUM(尺数) AS 尺数, 品名, 编码, 颜色, thick, deli_no, 
            '                   size, name, deli, filename, comment, pattern
            'FROM      (SELECT  TOP (100) PERCENT rt_ship_temp_1.card AS 卡号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
            '                                      CASE WHEN RIGHT(rt_ship_temp_1.card, 1) = 'F' THEN 'BRF' + substring(rt_ship_temp_1.card, 0, 
            '                                      len(rt_ship_temp_1.card)) ELSE '' END AS 卡号1, CASE WHEN rt_finish_stock.name IS NULL 
            '                                      THEN N'杂皮 二层' ELSE rt_finish_stock.name END AS 品名, CASE WHEN rt_finish_stock.code IS NULL 
            '                                      THEN '516.F.XX' ELSE rt_finish_stock.code END AS 编码, rt_ship_temp_1.color1 AS 颜色, 
            '                                      rt_ship_temp_1.date AS 出货日期, rt_ship_temp_1.po_no, rt_ship_temp_1.work_no, rt_ship_temp_1.thick, 
            '                                      rt_ship_temp_1.deli_no, rt_ship_temp_1.cust, rt_finish_stock.lot, rt_ship_temp_1.size, rt_ship_temp_1.order_item, 
            '                                      rt_ship_temp_1.name, rt_ship_temp_1.custname, rt_ship_temp_1.filename, rt_ship_temp_1.qty, 
            '                                      rt_ship_temp_1.comment, rt_ship_temp_1.pattern, rt_ship_temp_1.deli
            '                   FROM       rt_ship_temp_1 LEFT OUTER JOIN
            '                                      rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
            '                   WHERE   (rt_ship_temp_1.po_no=N'" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and rt_ship_temp_1.date='" & dt.Rows(x).Item("date") & "' and rt_ship_temp_1.work_no=N'" & dt.Rows(x).Item("work_no").ToString.Replace("'", "''") & "' and rt_ship_temp_1.deli_no='" & dt.Rows(x).Item("deli_no") & "' and rt_ship_temp_1.filename=N'" & dt.Rows(x).Item("filename") & "' and rt_ship_temp_1.color1=N'" & dt.Rows(x).Item("color1") & "')
            '                   GROUP BY rt_ship_temp_1.card, rt_finish_stock.name, rt_finish_stock.code, rt_ship_temp_1.color1, rt_ship_temp_1.date, 
            '                                      rt_ship_temp_1.po_no, rt_ship_temp_1.work_no, rt_ship_temp_1.thick, rt_ship_temp_1.deli_no, 
            '                                      rt_ship_temp_1.cust, rt_finish_stock.lot, rt_ship_temp_1.size, rt_ship_temp_1.order_item, rt_ship_temp_1.name, 
            '                                      rt_ship_temp_1.custname, rt_ship_temp_1.filename, rt_ship_temp_1.qty, rt_ship_temp_1.comment, 
            '                                      rt_ship_temp_1.pattern, rt_ship_temp_1.deli) AS q
            'GROUP BY 卡号, 品名, 编码, 颜色, thick, deli_no, size, name, deli, filename, comment, pattern"

            sql = "SELECT  FILENAME,COMMENT,cast(sum(qty) as numeric(10,1)) as qty,  work_no,  color1,  pattern, SIZE,name,
 thick,  deli_no,source1,  card,CASE 
WHEN source1 LIKE N'%美国广东%' THEN N'516.F.A2' 
WHEN source1 LIKE N'%APP%' THEN N'516.F.A3' 
WHEN source1 LIKE N'%阿根廷%' THEN N'516.F.B1' 
WHEN source1 LIKE N'%澳州%' THEN N'516.F.C1' 
WHEN source1 LIKE N'%越南美国%' THEN N'516.F.A3' 
WHEN source1 LIKE N'%澳洲%' THEN N'516.F.C1' 
WHEN source1 LIKE N'%南非%' THEN N'516.F.E1' 
WHEN source1 LIKE N'%乌拉圭%' THEN N'516.F.F1' 
WHEN source1 LIKE N'%墨西哥%' THEN N'516.F.G1' 
WHEN source1 LIKE N'%泰国日本%' THEN N'516.F.S1' 
WHEN source1 LIKE N'%新西兰%' THEN N'516.F.I1' 
WHEN source1 LIKE N'%欧州%' THEN N'516.F.J1' 
WHEN source1 LIKE N'%孟加拉%' THEN N'516.F.K1' 
WHEN source1 LIKE N'%西班牙%' THEN N'516.F.L1' 
WHEN source1 LIKE N'%巴西%' THEN N'516.F.N1' 
WHEN source1 LIKE N'%英国%' THEN N'516.F.O1' 
WHEN source1 LIKE N'%牛种%' THEN N'516.F.P1' 
WHEN source1 LIKE N'%智利%' THEN N'516.F.Q1' 
WHEN source1 LIKE N'%德国%' THEN N'516.F.R1' 
WHEN source1 LIKE N'%日本%' THEN N'516.F.S1' 
WHEN source1 LIKE N'%俄罗斯%' THEN N'516.F.T1' 
WHEN source1 LIKE N'%台湾泰庆%' THEN N'516.F.Z1' 
WHEN source1 LIKE N'%杂皮%' THEN N'516.F.Z9' 
WHEN source1 LIKE N'%二层%' THEN N'516.P.01' ELSE '516.F.Z9' 
END AS source2, 
   CASE 

WHEN source1 LIKE N'%美国广东%' THEN N'516 美国 二层'
WHEN source1 LIKE N'%信德%' THEN N'516 信德 二层' 
WHEN source1 LIKE N'%APP%' THEN N'516 美国 二层' 
WHEN source1 LIKE N'%美国%' THEN N'516 美国 二层' 
WHEN source1 LIKE N'%阿根廷%' THEN N'516 阿根廷 二层' 
WHEN source1 LIKE N'%意大利%' THEN N'516 意大利 二层' 
WHEN source1 LIKE N'%澳洲%' THEN N'516 澳大利亚 二层' 
WHEN source1 LIKE N'%澳大利亚%' THEN N'516 澳大利亚 二层' 
WHEN source1 LIKE N'%南非%' THEN N'516 南非 二层' 
WHEN source1 LIKE N'%乌拉圭%' THEN N'516 乌拉圭 二层' 
WHEN (source1 LIKE N'%墨西哥%' and not(source1 LIKE N'%美国%')) THEN N'516 墨西哥 二层'
WHEN source1 LIKE N'%泰国日本%' THEN N'516 日本 二层' 
WHEN source1 LIKE N'%新西兰%' THEN N'516 新西兰 二层' 
WHEN source1 LIKE N'%欧洲%' THEN N'516 欧洲 二层' 
WHEN source1 LIKE N'%孟加拉%' THEN N'516 孟加拉 二层' 
WHEN source1 LIKE N'%西班牙%' THEN N'516 西班牙 二层' 
WHEN (source1 LIKE N'%巴西%') or (source1 LIKE N'%南美%') THEN N'516 巴西 二层' 
WHEN source1 LIKE N'%英国%' THEN N'516 英国 二层' 
WHEN source1 LIKE N'%牛种%' THEN N'516 肯尼亚 二层' 
WHEN source1 LIKE N'%智利%' THEN N'516 智利 二层' 
WHEN source1 LIKE N'%泰国美国%' THEN N'516 美国 二层' 
WHEN source1 LIKE N'%德国%' THEN N'516 德国 二层' 
WHEN source1 LIKE N'%肯尼亚%' THEN N'516 肯尼亚 二层' 
WHEN source1 LIKE N'%日本%' THEN N'516 日本 二层' 
WHEN source1 LIKE N'泰国' THEN N'516 泰国 二层'
WHEN source1 LIKE N'%无铬鞣%' THEN N'516 无铬鞣 二层' 
WHEN source1 LIKE N'%俄罗斯%' THEN N'516 俄罗斯 二层' 
WHEN source1 LIKE N'BX%' THEN N'516 巴西 二层' 
WHEN source1 LIKE N'%台湾泰庆%' THEN N'516 美国 二层' 
WHEN pattern is not null  THEN N'516 贴膜皮'
WHEN (source1 like N'%外购%') THEN N'516 小皮 二层'
WHEN source1 LIKE N'%杂皮%' THEN N'516 杂皮 二层' 
ELSE N'516 杂皮 二层' 
END AS source3 
from rt_ship_temp_1 where (rt_ship_temp_1.po_no=N'" & dt.Rows(x).Item("po_no").ToString.Replace("'", "''") & "' and rt_ship_temp_1.thick='" & dt.Rows(x).Item("thick") & "' and rt_ship_temp_1.date='" & dt.Rows(x).Item("date") & "' and rt_ship_temp_1.work_no=N'" & dt.Rows(x).Item("work_no").ToString.Replace("'", "''") & "' and rt_ship_temp_1.deli_no=N'" & dt.Rows(x).Item("deli_no") & "' and rt_ship_temp_1.filename=N'" & dt.Rows(x).Item("filename") & "' and rt_ship_temp_1.color1=N'" & dt.Rows(x).Item("color1") & "') group by FILENAME,COMMENT,work_no,color1,source1,pattern,size,name,thick,deli_no,card ORDER BY source3"


            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"

                If IsDBNull(dt2.Rows(y).Item("pattern")) Then


                    xlSheet2.Cells(yy + 1 + y, 9) = "516.F.FM"
                    xlSheet2.Cells(yy + 1 + y, 10) = "二层皮"
                    xlSheet2.Cells(yy + 1 + y, 17) = dt2.Rows(y).Item("source3")

                Else

                    xlSheet2.Cells(yy + 1 + y, 9) = "516.P.PU"
                    xlSheet2.Cells(yy + 1 + y, 10) = "贴膜皮"


                    If dt2.Rows(y).Item("size") Like "12*" Then


                        xlSheet2.Cells(yy + 1 + y, 17) = "'516 贴膜 12+"

                    ElseIf dt2.Rows(y).Item("size") Like "8*" Then

                        xlSheet2.Cells(yy + 1 + y, 17) = "'516 贴膜 8-12"



                    ElseIf dt2.Rows(y).Item("size") Like "4*" Then
                        xlSheet2.Cells(yy + 1 + y, 17) = "'516 贴膜 4-8"


                    End If




                End If



                ' 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")


                If dt2.Rows(y).Item("FILENAME") Like "*顽刻*" Then
                    xlSheet2.Cells(yy + 1 + y, 54) = "顽刻"
                ElseIf dt2.Rows(y).Item("FILENAME") Like "*顺泰盛*" Then
                    xlSheet2.Cells(yy + 1 + y, 54) = "顺泰盛"
                ElseIf dt2.Rows(y).Item("FILENAME") Like "*红晟*" Then
                    xlSheet2.Cells(yy + 1 + y, 54) = "红晟"
                ElseIf dt2.Rows(y).Item("FILENAME") Like "*富拓*" Then
                    xlSheet2.Cells(yy + 1 + y, 54) = "富拓"
                ElseIf dt2.Rows(y).Item("FILENAME") Like "*浩博*" Then
                    xlSheet2.Cells(yy + 1 + y, 54) = "浩博"

                End If

                If dt2.Rows(y).Item("COMMENT") Like "*顽刻*" Then
                    xlSheet2.Cells(yy + 1 + y, 54) = "顽刻"



                End If

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


                xlSheet2.Cells(yy + 1 + y, 55) = "'" & dt2.Rows(y).Item("color1")
                xlSheet2.Cells(yy + 1 + y, 56) = "'" & dt2.Rows(y).Item("name")

                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")  '工作指令号

                xlSheet2.Cells(yy + 1 + y, 63) = dt2.Rows(y).Item("COMMENT")

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




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


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


        PTCache = xlBook.PivotCaches.Add _
        (SourceType:=Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase,
         SourceData:=xlSheet2.Range("a1:BN" & xlSheet2.UsedRange.Rows.Count).CurrentRegion.Address)

        PT = PTCache.CreatePivotTable _
        (TableDestination:=xlSheet2.Cells(2, 67),
         TableName:="PivotTable1")

        With PT
            '.PivotFields("批号").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlColumnField
            .PivotFields("批号").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
            .PivotFields("实发数量").Orientation = Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlDataField
        End With

        xlSheet2.PivotTables("PivotTable1").TableStyle2 = "PivotStyleMedium9"











        '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 Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

    End Sub

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

        'Dim p1, p2 As String

        'If chkZhiDan.SelectedIndices.Count = 0 Then
        '    MsgBox("请先选择发货人")
        '    Exit Sub

        'Else

        '    p1 = chkZhiDan.SelectedItem
        'End If















        If DataGridView2.Columns.Contains("项次号") Then




            If DataGridView2.Columns.Contains("备注") Then


                For x As Integer = 0 To DataGridView2.Rows.Count - 1
                    sql = "update  rt_ship_temp_1 Set deli_no=N'" & DataGridView2.Rows(x).Cells("发货单号").Value & "',deli=N'" & DataGridView2.Rows(x).Cells("发货人").Value & "' where po_no =N'" & DataGridView2.Rows(x).Cells("订单号").Value & "' and work_no=N'" & DataGridView2.Rows(x).Cells("指令号").Value & "' and name=N'" & DataGridView2.Rows(x).Cells("品名").Value & "' and color1=N'" & DataGridView2.Rows(x).Cells("颜色").Value & "' and order_item='" & DataGridView2.Rows(x).Cells("项次号").Value & "' and filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(0).Value & "' and comment=N'" & DataGridView2.Rows(x).Cells("备注").Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            Else

                For x As Integer = 0 To DataGridView2.Rows.Count - 1
                    sql = "update  rt_ship_temp_1 Set deli_no=N'" & DataGridView2.Rows(x).Cells("发货单号").Value & "',deli=N'" & DataGridView2.Rows(x).Cells("发货人").Value & "' where po_no =N'" & DataGridView2.Rows(x).Cells("订单号").Value & "' and work_no=N'" & DataGridView2.Rows(x).Cells("指令号").Value.replace("'", "''") & "' and name=N'" & DataGridView2.Rows(x).Cells("品名").Value & "' and color1=N'" & DataGridView2.Rows(x).Cells("颜色").Value & "' and order_item='" & DataGridView2.Rows(x).Cells("项次号").Value & "' and filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(0).Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()

                Next

            End If



        Else


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

                If DataGridView2.Rows(x).Cells("发货单号").Value Is Nothing Then
                Else
                    sql = "update  rt_ship_temp_1 Set deli_no=N'" & DataGridView2.Rows(x).Cells("发货单号").Value & "',deli=N'" & DataGridView2.Rows(x).Cells("发货人").Value & "' where po_no =N'" & DataGridView2.Rows(x).Cells("订单号").Value.ToString.Replace("'", "''") & "' and work_no=N'" & DataGridView2.Rows(x).Cells("指令号").Value.ToString.Replace("'", "''") & "' and name=N'" & DataGridView2.Rows(x).Cells("品名").Value.ToString.Replace("'", "''") & "' and color1=N'" & DataGridView2.Rows(x).Cells("颜色").Value & "' and thick='" & DataGridView2.Rows(x).Cells("厚度").Value & "' and filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(0).Value & "'"
                    cmd.CommandText = sql
                    cmd.ExecuteScalar()
                End If



            Next
        End If




        MsgBox("")
    End Sub

    Private Sub chkZhiDan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles chkZhiDan.SelectedIndexChanged




        Dim index1, index2 As Integer

        index1 = chkZhiDan.SelectedIndex



        For x As Integer = 0 To chkZhiDan.Items.Count - 1

            If x <> index1 Then
                chkZhiDan.SetItemChecked(x, False)
            Else
                chkZhiDan.SetItemChecked(index1, True)



                For y As Integer = 0 To DataGridView2.Rows.Count - 1
                    DataGridView2.Rows(y).Cells("发货人").Value = chkZhiDan.SelectedItem
                Next



            End If


        Next










    End Sub



    Private Sub chkZhiDan_MouseClick(sender As Object, e As MouseEventArgs) Handles chkZhiDan.MouseClick
        'Dim index1, index2 As Integer

        'index1 = chkZhiDan.SelectedIndex










        'For x As Integer = 0 To chkZhiDan.Items.Count - 1

        '    If x <> index1 Then
        '        chkZhiDan.SetItemChecked(x, False)
        '    Else
        '        chkZhiDan.SetItemChecked(index1, True)
        '    End If


        'Next

    End Sub

    Private Sub chkSongHuo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles chkSongHuo.SelectedIndexChanged



        Dim index1, index2 As Integer

        index1 = chkSongHuo.SelectedIndex










        For x As Integer = 0 To chkSongHuo.Items.Count - 1

            If x <> index1 Then
                chkSongHuo.SetItemChecked(x, False)
            Else
                chkSongHuo.SetItemChecked(index1, True)
            End If


        Next


    End Sub

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


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

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

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



        Next i

        TextBox3.Text = DataGridView2.SelectedRows.Count

        TextBox2.Text = x




    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

        Dim cust As String
        Dim name As String
        Dim my_po As String
        Dim work_no As String
        Dim my_date As String

        Dim my_color As String
        Dim my_thick As String

        Dim my_qty As Double

        Dim deli_no As String

        Dim deli As String

        my_date = InputBox("请输入日期")

        cust = InputBox("请输入客户")
        name = InputBox("请输入品名")

        my_po = InputBox("请输入订单号")
        work_no = InputBox("请输入指令号")
        my_color = InputBox("请输入颜色")

        my_thick = InputBox("请输入厚度")

        my_qty = InputBox("请输入数量")

        deli = InputBox("请输入发货人")

        deli_no = InputBox("请输入发货单号")

        Dim s1 As Integer

        sql = "select serial from rt_ship_temp_1 where filename=N'" & cust & my_date & "'"
        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then
            s1 = 1
        Else
            s1 = cmd.ExecuteScalar + 1

        End If



        sql = "insert into rt_ship_temp_1 (color1,work_no,thick,po_no,filename,name,qty,deli,deli_no) values(N'" & my_color & "',N'" & work_no.ToString.Replace("'", "''") & "',N'" & my_thick & "',N'" & my_po & "',N'手动" & cust & my_date & ".xls',N'" & name & "','" & my_qty & "',N'" & deli & "','" & deli_no & "')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        getdate()

        Button6.PerformClick()



        MsgBox("")
    End Sub

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

        Dim dt As DataTable

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

        If cmd.ExecuteScalar > 0 Then


            sql = "select filename 档案名,color1 as 颜色,qty as 尺数,no as 序号 from rt_ship_temp_1 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_1 where date is null"
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then

            sql = "select filename 档案名,color1 as 颜色,qty as 尺数,no as 序号 from rt_ship_temp_1 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_1 where color1 is null "
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then


            sql = "select filename 档案名,color1 as 颜色,qty as 尺数,no as 序号 from rt_ship_temp_1 where color1 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_1 where deli is null "
        cmd.CommandText = sql

        If cmd.ExecuteScalar > 0 Then

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

        End If


    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        getdate()
        MsgBox("")
    End Sub

    Private Sub update_custname()

        sql = "update rt_ship_temp_1	 set cust=N'A01.050'   	,custname=N'金威利'		where filename like N'%076%' and filename not like N'%076样%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.109'   	,custname=N'正纬（人民币）'		where filename like N'%正纬%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.98'   	,custname=N'金帝'		where filename like N'%温州%' or filename like N'%金帝%'	 or filename like N'%湖北%' or filename like N'%泉州%'	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()



        'sql = "update rt_ship_temp_1	 set cust=N'A01.98'   	,custname=N'金帝'		where filename like N'%金帝%' 	  "
        'cmd.CommandText = sql
        'cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.006-1'   	,custname=N'吉兴（美元）'		where filename like N'%吉兴%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1	 set cust=N'A01.061-1'   	,custname=N'松城（美元）'		where filename like N'%松城%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1	 set cust=N'A01.006-1'   	,custname=N'吉兴（美元）'		where filename like N'%吉兴%' 	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1	 set cust=N'A01.107'   	,custname=N'赛特'		where filename like N'%赛特%' 	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.092'   	,custname=N'合成行东莞有限公司'		where filename like N'%合成行%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.056-1'   	,custname=N'永弘(美元)'		where filename like N'%永弘%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A00.048'   	,custname=N'珍琦'		where filename like N'%珍琦%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.104'   	,custname=N'咏升'		where filename like N'%咏升%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.003'   	,custname=N'美迪洋'		where filename like N'%美迪洋%'   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.028-1'   	,custname=N'中山华新（美元）'		where filename like N'%华新%'   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.043'   	,custname=N'惠雄'		where filename like N'%惠雄%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.015-1'   	,custname=N'欣錩（美元）'		where filename like N'%欣昌%' 		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'C.09.003'   	,custname=N'鑫龙'		where filename like N'%鑫龙%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A00.001'   	,custname=N'现金'	where filename like N'%有人鞋业%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A00.001'   	,custname=N'现金'	where filename like N'%富拓%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.090'   	,custname=N'鑫茂'		where filename like N'%鑫茂%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.068-1'   	,custname=N'东治（美元）'		where filename like N'%东治%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.084'   	,custname=N'鑫越'		where filename like N'%商汤%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A00.049'   	,custname=N'利亚'		where filename like N'%利亚%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1	 set cust=N'A00.049'   	,custname=N'利亚'		where filename like N'%浩博%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.080'   	,custname=N'百合'		where filename like N'%百合%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.022-1'   	,custname=N'三元鞋厂（美元）'		where filename like N'%三元%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.004-1'   	,custname=N'大田（美元）'		where filename like N'%大田%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.082-1'   	,custname=N'THANG LONG美元'		where filename like N'%THANG%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A02.11'   	,custname=N'源泰'		where filename like N'%聚兴%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.105'   	,custname=N'好兄弟鞋业'		where (filename like N'%好兄弟%' OR FILENAME LIKE N'%名扬%' OR FILENAME LIKE N'%名创%' OR FILENAME LIKE N'%名晋%' OR FILENAME LIKE N'%名志%' OR FILENAME LIKE N'%名越%')	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A02.004'   	,custname=N'华昌皮业'		where (filename like N'%华世%')	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	 set cust=N'A01.110'   	,custname=N'华鑫(美元)'		where (filename like N'%华鑫%')	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1	 set cust=N'A00.049'   	,custname=N'利亚'		where (filename like N'%顺泰盛%' OR FILENAME LIKE N'%红晟%' OR FILENAME LIKE N'%lpcc%' OR FILENAME LIKE N'%荣创%' )	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1	 set cust=N'A01.071'   	,custname=N'旭晨'		where filename like N'%旭晨%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set cust=N'A06.001' 	,custname=N'许宝贝'			where filename like N'%宝贝%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set cust=N'A01.058-1' 	,custname=N'HATAY（美元）'			where filename like N'%HATAY%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        sql = "update rt_ship_temp_1 set cust=N'A01.050-2' 	,custname=N'金威利样品'	where filename like N'%076样%'		"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.054-1' 	,custname=N'中山志捷（美元）'	where filename like N'%志捷%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set cust=N'A01.054-1' 	,custname=N'中山志捷（美元）'	where filename like N'%正永%'		  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A02.10' 	,custname=N'锐奇鞋业'	where filename like N'%锐奇%'			 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.016-1' 	,custname=N'何先生/SAMIL（美元）'	 where filename like N'%SAMIL%'  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.002-1' 	,custname=N'上杰（越南）（美元）'	where filename like N'%上杰%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

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

        sql = "update rt_ship_temp_1	 set cust=N'A01.100' 	,custname=N'永驰'	where filename like N'%永驰%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.052-1' 	,custname=N'永正（美元）'			where filename like N'%永正%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.000' 	,custname=N'威弘'			where filename like N'%威弘%'	   "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	 set cust=N'A01.019-1' 	,custname=N'亿博（美元）'		where filename like N'%亿博%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1 set cust=N'A01.033-1' 	,custname=N'颖亿(美元)'		where filename like N'%穎億%'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.005-1' 	,custname=N'宏美二厂（美元）' 	where filename like N'%宏美%' or filename like N'%reebok%'	  "  '----待改
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1		 set cust=N'A01.048' 	,custname=N'极路客'			where filename like N'%极路客%'	  "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.008-1' 	,custname=N'加和（美元）'		where filename like N'%加和%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.067-1' 	,custname=N'创德（美元）'			where filename like N'%evergree%'	"
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.062-1' 	,custname=N'PROPERWELL（美元）'	where filename like N'%properwell%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.063-1' 	,custname=N'coach（美元）'	where filename like N'%thanh%'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.063-1' 	,custname=N'coach（美元）'	where filename like N'%STELLA%'	 "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1 set cust=N'A01.063-1' 	,custname=N'coach（美元）'	where filename like N'%coach%'	 or filename like '%INDIA%' or filename like '%PONTUS%' or filename like '%RAMA%' or filename like '%INDIA%' or filename like '%KHE%' or filename like '%BRANCH%'"
        cmd.CommandText = sql
        cmd.ExecuteScalar() 'sql = "update rt_ship_temp_1	set cust=N'' 	,custname=N'coach（美元）'		where filename like N'%076样%'	 "
        'cmd.CommandText = sql
        'cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	set cust=N'A01.024-1' 	,custname=N'PEI HAI-BRM（美元）'	where filename like N'%pei hai%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

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

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

        sql = "update rt_ship_temp_1	set cust=N'A01.102' 	,custname=N'永丰'	where filename like N'%永丰%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        sql = "update rt_ship_temp_1	set cust=N'A01.087' 	,custname=N'乐迪'	where filename like N'%乐迪%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	set cust=N'A01.088' 	,custname=N'铭鑫'	where filename like N'%铭鑫%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	set cust=N'A01.060' 	,custname=N'励泰'	where filename like N'%励泰%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	set cust=N'A06.008' 	,custname=N'周连发'	where filename like N'%周连发%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "update rt_ship_temp_1	set cust=N'A01.022-1' 	,custname=N'三元鞋厂（美元）'	where filename like N'%三元%' "
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        MsgBox("")

    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        update_custname()
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click



        Dim new_card As String

        new_card = InputBox("请输入新卡号")



        Dim msg As MsgBoxResult = MsgBox("确认要将卡号" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("卡号").Value & "替换为" & new_card & "  ?", MsgBoxStyle.YesNo, "警告")



        If msg = vbYes Then





            If DataGridView2.Columns.Contains("项次号") Then




                If DataGridView2.Columns.Contains("备注") Then



                    sql = "update  rt_ship_temp_1 Set card='" & new_card & "' where po_no =N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("订单号").Value & "' and work_no=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("指令号").Value & "' and name=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("品名").Value & "' and card='" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("卡号").Value & "' and order_item='" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("项次号").Value & "' and filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(0).Value & "' and comment=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("备注").Value & "'"
                    cmd.CommandText = sql
                        cmd.ExecuteScalar()



                Else

                    sql = "update  rt_ship_temp_1 Set card='" & new_card & "' where po_no =N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("订单号").Value & "' and work_no=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("指令号").Value & "' and name=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("品名").Value & "' and card='" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("卡号").Value & "' and order_item='" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("项次号").Value & "' and filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(0).Value & "'"
                    cmd.CommandText = sql
                        cmd.ExecuteScalar()



                End If



            Else






                sql = "update  rt_ship_temp_1 Set card='" & new_card & "' where po_no =N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("订单号").Value.ToString.Replace("'", "''") & "' and work_no=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("指令号").Value.ToString.Replace("'", "''") & "' and name=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("品名").Value.ToString.Replace("'", "''") & "' and thick='" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("厚度").Value & "' and card='" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("卡号").Value & "' and filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(0).Value & "'"
                cmd.CommandText = sql
                        cmd.ExecuteScalar()





            End If









        Else







        End If




















        MsgBox("")




    End Sub

    Private Sub DataGridView1_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEnter




        '        If DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*上杰*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*宏美发*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*永正*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*宏福*" Then '---加order_item
        '            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,order_item as 项次号, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,order_item,deli,deli_no"


        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号,order_item as 项次号,CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.order_item, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
        '                   rt_ship_temp_1.order_item AS 项次号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.order_item, rt_ship_temp_1.deli, rt_finish_stock.name"


        '            If DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*上杰*" Then
        '                sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,order_item as 项次号, cast(sum(qty) as numeric(10,1)) as 尺数,comment as 备注,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,order_item,comment,deli,deli_no"

        '                sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号,order_item as 项次号,CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, rt_ship_temp_1.comment as 备注,
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.comment,rt_ship_temp_1.order_item, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '                sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
        '                   rt_ship_temp_1.order_item AS 项次号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.order_item, rt_ship_temp_1.deli, rt_finish_stock.name"


        '            End If




        '        ElseIf DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*076样*" Or DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value Like "*好兄弟*" Then   '-----加comment

        '            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号,comment as 备注, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,comment,deli_no,deli"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号,comment as 备注, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,rt_ship_temp_1.comment, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号,comment as 备注, 
        '                    CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.comment, rt_ship_temp_1.deli, rt_finish_stock.name"


        '        Else  '---其他

        '            sql = "select name as 品名,color1 as 颜色,thick as 厚度,card as 卡号,po_no as 订单号,work_no as 指令号, cast(sum(qty) as numeric(10,1)) as 尺数,deli as 发货人,deli_no as 发货单号 from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' group by name,color1,thick,card,po_no,work_no,deli_no,deli"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, RT_RETAN_RECORD.source AS 皮源, rt_ship_temp_1.po_no AS 订单号, 
        '                   rt_ship_temp_1.work_no AS 指令号, CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   RT_RETAN_RECORD ON rt_ship_temp_1.card = RT_RETAN_RECORD.card
        'WHERE   (rt_ship_temp_1.filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no, rt_ship_temp_1.deli, RT_RETAN_RECORD.source"

        '            sql = "SELECT  rt_ship_temp_1.name AS 品名, rt_ship_temp_1.color1 AS 颜色, rt_ship_temp_1.thick AS 厚度, 
        '                   rt_ship_temp_1.card AS 卡号, rt_finish_stock.name, rt_ship_temp_1.po_no AS 订单号, rt_ship_temp_1.work_no AS 指令号, 
        '                    CAST(SUM(rt_ship_temp_1.qty) AS numeric(10, 1)) AS 尺数, 
        '                   rt_ship_temp_1.deli AS 发货人, rt_ship_temp_1.deli_no AS 发货单号
        'FROM      rt_ship_temp_1 LEFT OUTER JOIN
        '                   rt_finish_stock ON rt_ship_temp_1.card = rt_finish_stock.lot
        'WHERE   (rt_ship_temp_1.filename = N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "')
        'GROUP BY rt_ship_temp_1.name, rt_ship_temp_1.color1, rt_ship_temp_1.thick, rt_ship_temp_1.card, rt_ship_temp_1.po_no, 
        '                   rt_ship_temp_1.work_no, rt_ship_temp_1.deli_no,  rt_ship_temp_1.deli, rt_finish_stock.name"
        '        End If



        '        cmd.CommandText = sql
        '        da.SelectCommand = cmd
        '        dt1 = New DataTable
        '        da.Fill(dt1)
        '        DataGridView2.DataSource = Nothing
        '        DataGridView2.DataSource = dt1

        '        DataGridView2.Columns(0).Width = 400
        '        DataGridView2.Columns(1).Width = 200
        '        DataGridView2.Columns(3).Width = 200




    End Sub



    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click

        If dgv_edit.Visible = False Then
            dgv_edit.Visible = True
            Button11.Enabled = True
        Else
            dgv_edit.Visible = False
            Button11.Enabled = False
            Exit Sub

        End If



        sql = "select date,name,po_no,work_no,qty as 尺数,card,order_no,deli,deli_no,id from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "' and name=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("品名").Value & "' and  card=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("卡号").Value & "' and po_no=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("订单号").Value & "' and thick=N'" & DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells("厚度").Value & "'" & " order by id "


        cmd.CommandText = sql









        dgv_edit.Visible = True


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


        Dim myRow As DataRow
        myRow = dt1.NewRow
        If IsDBNull(dt1.Compute("sum(尺数)", "")) Then
            myRow(4) = 0
        Else
            myRow(4) = Math.Round(dt1.Compute("sum(尺数)", ""), 1)
        End If


        myRow(3) = "合计"





        dt1.Rows.InsertAt(myRow, 0)



        dgv_edit.DataSource = dt1

        dgv_edit.Columns(0).Width = 150
        dgv_edit.Columns(1).Width = 150
        dgv_edit.Columns(3).Width = 150



    End Sub

    Private Sub dgv_edit_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_edit.CellContentClick

    End Sub

    Private Sub dgv_edit_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv_edit.CellMouseUp



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

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

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



        Next i

        ' TextBox3.Text = dgv2.SelectedRows.Count


        TextBox5.Text = x




    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click



        Dim my_card As String = ""


        my_card = InputBox("请输入新卡号")


        Dim msg As MsgBoxResult


        msg = MsgBox("确定将卡号更改为 : " & my_card & "?", vbYesNo)


        If msg = vbNo Then Exit Sub





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


            sql = "update rt_ship_temp_1 set card=N'" & my_card & "' where id='" & dgv_edit.Rows(dgv_edit.SelectedRows.Item(i).Index).Cells("id").Value & "'"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()





        Next i

        MsgBox("修改完成")

        update()   '更新资料




    End Sub

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

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

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

            file_name = OpenFileDialog1.FileName

        End If






        Dim filepath As String = "k3/在制品"

        Dim sourceFileName As String = file_name


        Dim address2 As String = "ftp://" & my_ip & ":7788/" & filepath & "/" & OpenFileDialog1.SafeFileName

        Dim address3() As String

        address3 = Split(address2, "ftp://" & my_ip & ":7788/")
        Dim add4 As String

        add4 = "d:\k3\在制品\" & OpenFileDialog1.SafeFileName


        Dim userName As String = "matchy3c"
        Dim password As String = "Lafayette11"
        Dim showUI As Boolean = True
        Dim connectionTimeout As Integer = 500


        Dim client As WebClient = New WebClient
        client.Credentials = New NetworkCredential(userName, password)
        client.Proxy = GlobalProxySelection.GetEmptyWebProxy()
        client.UploadFile(address2, sourceFileName)

























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

        sql = "Select * FROM OPENDATASOURCE ('Microsoft.ACE.OLEDB.12.0','Excel 12.0;HDR=Yes;IMEX=1;Database=" & add4 & "')...[即时库存$]"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)
        dgv1.DataSource = dt


        dt.Columns.Add("filename")

        For x As Integer = 0 To dt.Rows.Count - 1
            dt.Rows(x).Item("filename") = file_name
        Next


        Dim my_sqlbulk As New SqlBulkCopy(conn)

        my_sqlbulk.DestinationTableName = "dbo.rt_finish_stock"
        my_sqlbulk.WriteToServer(dt)

        MsgBox("导入完成!")




    End Sub

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

        sql = "delete from rt_ship_temp_1 where filename=N'" & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & "'"


        Dim msg As String
        msg = MsgBox("确定要删除 " & DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells("filename").Value & " ?", vbYesNo)

        If msg = vbNo Then
            Exit Sub
        Else


            cmd.CommandText = sql
            cmd.ExecuteScalar()

            MsgBox("已删除")

            update()


        End If




    End Sub

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

        Dim dt As New DataTable

        sql = "select date as 日期,cust as 客户,card as 卡号,color as 颜色,source as 皮源, cast(SUM(sf) as numeric(10,1)) AS 尺数 from rt_measure_daily where color like N'%" & TextBox6.Text & "%' group by date,cust,card,color,source order by Date desc"
        cmd.CommandText = sql
        da.SelectCommand = cmd

        da.Fill(dt)

        dgv_color.DataSource = dt

        dgv_color.Columns(2).Width = 150
        dgv_color.Columns(3).Width = 200
        dgv_color.Columns(4).Width = 200

        sql = "SELECT top(30) date as 日期, custname as 客户, name as 品名, cast(SUM(qty) as numeric(10,1)) AS 尺数 FROM   rt_ship_temp_1 WHERE  name like N'%" & TextBox6.Text & "%' GROUP BY date, cust, color1, name, custname
ORDER BY date DESC"

        cmd.CommandText = sql
        da.SelectCommand = cmd

        dt = New DataTable

        da.Fill(dt)

        dgv_out.DataSource = dt


        dgv_out.Columns(1).Width = 120
        dgv_out.Columns(2).Width = 220



    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged

    End Sub

    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.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



        '        xlApp = CreateObject("Excel.Application")

        '        xlBook = xlApp.Workbooks.Add


        '        xlApp.DisplayAlerts = False
        '        xlBook.Activate()
        '        xlBook.Parent.Windows(1).Visible = True
        '        xlSheet = xlBook.Worksheets.Add
        '        xlSheet.Activate()
        '        xlApp.Visible = True


        '        Dim xx As Integer = 0
        '        Dim y As Integer = 0
        '        Dim P1 As Image
        '        Dim P2 As Image
        '        Dim P3 As Image
        '        Dim P4 As Image
        '        Dim P5 As Image
        '        Dim P6 As Image
        '        Dim P7 As Image
        '        Dim P8 As Image
        '        Dim P9 As Image


        '        Dim FILE_NAME As String
        '        Dim FILE_NAME1 As String







        '        sql = "SELECT   RT_SYS_CHEM_MAIN.name AS 化料名称, RT_SYS_CHEM_MAIN.DEP AS 使用部门, 
        '                RT_SYS_CHEM_MAIN.CLASS1 AS 化工分类, RT_SYS_CHEM_MAIN.CLASS2 AS 海关分类, 
        '                RT_CHEM_MSDS.SUPPLIER AS 供应商, RT_CHEM_MSDS.D1, RT_CHEM_MSDS.D2, RT_CHEM_MSDS.D3, 
        '                RT_CHEM_MSDS.D4, RT_CHEM_MSDS.D5, RT_CHEM_MSDS.D6, RT_CHEM_MSDS.D7, RT_CHEM_MSDS.D8, 
        '                RT_CHEM_MSDS.D9, RT_SYS_CHEM_MAIN.stock1, RT_SYS_CHEM_MAIN.stock2, RT_SYS_CHEM_MAIN.stock3, 
        '                RT_CHEM_MSDS.SUPPLIER
        'FROM      RT_SYS_CHEM_MAIN LEFT OUTER JOIN
        '                RT_CHEM_MSDS ON RT_SYS_CHEM_MAIN.name = RT_CHEM_MSDS.SYS_NAME
        'WHERE   (RT_SYS_CHEM_MAIN.stock1 + RT_SYS_CHEM_MAIN.stock2 + RT_SYS_CHEM_MAIN.stock3 <> 0)"

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






        '        Dim z1 As Integer = 0

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


        '            Dim MY_CHEM As String

        '            MY_CHEM = DT.Rows(x).Item("化料名称").ToString
        '            MY_CHEM = MY_CHEM.Replace(" ", "_")
        '            ' MY_CHEM = MY_CHEM.Replace("-", "_")
        '            MY_CHEM = MY_CHEM.Replace("/", "-")


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


        '            xlSheet.Cells(x * 16 + 1, 1) = DT.Rows(x).Item("化料名称")
        '            xlSheet.Cells(x * 16 + 1, 1).font.bold = True
        '            xlSheet.Cells(x * 16 + 1, 1).font.size = 24

        '            xlApp.Range(xlSheet.Cells(x * 16 + 1, 1), xlSheet.Cells(x * 16 + 1, 8)).Select()
        '            '  xlApp.Range("E2").Activate()
        '            xlApp.Selection.Merge
        '            xlApp.Selection.HorizontalAlignment = xlCenter
        '            With xlApp.Selection.Borders(xlEdgeLeft)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeTop)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeBottom)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeRight)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With


        '            xlSheet.Cells(x * 16 + 7, 1) = "化  工  分  类 :"
        '            xlSheet.Cells(x * 16 + 7, 1).font.bold = True
        '            xlSheet.Cells(x * 16 + 7, 1).font.size = 12
        '            xlSheet.Cells(x * 16 + 7, 3) = DT.Rows(x).Item("化工分类")
        '            xlSheet.Cells(x * 16 + 7, 3).font.bold = True
        '            xlSheet.Cells(x * 16 + 7, 3).font.size = 12
        '            xlSheet.Cells(x * 16 + 4, 1) = "供   应   商   :"
        '            xlSheet.Cells(x * 16 + 4, 1).font.bold = True
        '            xlSheet.Cells(x * 16 + 4, 1).font.size = 12
        '            xlSheet.Cells(x * 16 + 4, 3) = DT.Rows(x).Item("供应商")
        '            xlSheet.Cells(x * 16 + 4, 3).font.bold = True
        '            xlSheet.Cells(x * 16 + 4, 3).font.size = 12
        '            xlSheet.Cells(x * 16 + 12, 1) = "验收日期／批号 :"
        '            xlSheet.Cells(x * 16 + 12, 1).font.bold = True
        '            xlSheet.Cells(x * 16 + 12, 1).font.size = 12

        '            xlSheet.Cells(x * 16 + 15, 1) = "有 效  期  限 :  二  年"
        '            xlSheet.Cells(x * 16 + 15, 1).font.bold = True
        '            xlSheet.Cells(x * 16 + 15, 1).font.size = 12



        '            xlApp.Range(xlSheet.Cells(x * 16 + 6, 5), xlSheet.Cells(x * 16 + 15, 8)).Select()
        '            '  xlApp.Range("E2").Activate()
        '            '
        '            ' xlApp.Selection.Merge
        '            ' xlApp.Selection.HorizontalAlignment = xlCenter
        '            With xlApp.Selection.Borders(xlEdgeLeft)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeTop)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeBottom)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeRight)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With




        '            xlApp.Range(xlSheet.Cells(x * 16 + 4, 8), xlSheet.Cells(x * 16 + 5, 8)).Select()
        '            '  xlApp.Range("E2").Activate()
        '            '
        '            xlApp.Selection.Merge
        '            xlApp.Selection.FormulaR1C1 = "危险"
        '            xlApp.Selection.HorizontalAlignment = xlCenter

        '            '-----边框
        '            With xlApp.Selection.Borders(xlEdgeLeft)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeTop)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeBottom)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With
        '            With xlApp.Selection.Borders(xlEdgeRight)
        '                .LineStyle = xlContinuous
        '                .ColorIndex = 0
        '                .TintAndShade = 0
        '                .Weight = xlMedium
        '            End With



        '            '------字体
        '            With xlApp.Selection.Interior
        '                .Pattern = xlSolid
        '                .PatternColorIndex = xlAutomatic
        '                .ThemeColor = xlThemeColorLight1
        '                .TintAndShade = 0
        '                .PatternTintAndShade = 0
        '            End With
        '            With xlApp.Selection.Font
        '                .ThemeColor = xlThemeColorDark1
        '                .TintAndShade = 0
        '            End With
        '            With xlApp.Selection.Font
        '                .Size = 18
        '                .ThemeColor = xlThemeColorDark1
        '                .ThemeFont = xlThemeFontMinor
        '            End With




        '            Dim zzz As Integer = 0
        '            For z As Integer = 1 To 9

        '                If Not (IsDBNull(DT.Rows(x).Item("d" & z))) Then

        '                    System.Windows.Forms.Clipboard.SetDataObject(p(z), True)  '复制到剪贴板

        '                    If zzz < 4 Then

        '                        Dim range1 As Excel.Range = xlSheet.Range(xlApp.Cells(x * 16 + 6, zzz Mod 4 + 5), xlApp.Cells(x * 16 + 6, zzz Mod 4 + 5))  '粘贴图片的位置
        '                        xlSheet.Paste(range1, p(z))

        '                    Else

        '                        Dim range1 As Excel.Range = xlSheet.Range(xlApp.Cells(x * 16 + 11, zzz Mod 4 + 5), xlApp.Cells(x * 16 + 11, zzz Mod 4 + 5))  '粘贴图片的位置
        '                        xlSheet.Paste(range1, p(z))

        '                    End If



        '                    Dim pic1 As String
        '                    pic1 = "picture " & z1 + 1

        '                    xlApp.ActiveSheet.Shapes.Range(pic1).Select
        '                    xlApp.Selection.ShapeRange.ScaleWidth(0.025, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
        '                    xlApp.Selection.ShapeRange.Incrementtop(5)
        '                    xlApp.Selection.ShapeRange.Incrementleft(5)


        '                    zzz = zzz + 1
        '                    z1 = z1 + 1
        '                End If


        '            Next






        '            Dim r As String
        '            r = "A" & (x + 1) * 16 + 1

        '            xlApp.ActiveSheet.HPageBreaks.Add(xlApp.Range(r))






        '        Next

        '        ''xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$E$660"

        '        'xlApp.ActiveSheet.PageSetup.PrintArea = "$a$1:$E$" & y * 13
        '        '' xlSheet.Columns("C:C").ColumnWidth = 10.75





        '        xlApp.ActiveWindow.View = Microsoft.Office.Interop.Excel.XlWindowView.xlPageBreakPreview






        '        'DT2.DefaultView.Sort = "项次 "

        '        MsgBox("输出完成")



    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click

        sql = "SELECT  filename, CAST(SUM(qty) AS numeric(10, 1)) AS 尺数
FROM     rt_ship_temp_1
WHERE   (filename LIKE 'C:\a\11%')
GROUP BY filename ORDER BY filename desc"
        cmd.CommandText = sql

        da.SelectCommand = cmd

        Dim dt As New DataTable

        da.Fill(dt)

        DataGridView1.DataSource = dt

        DataGridView1.Columns(0).Width = 300


    End Sub
End Class