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

Imports System.Data.SqlClient
Imports System.Reflection


Public Class Frm_BG_sum
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim my_index1(3) As Integer
    Dim sql As String
    Dim conn As New SqlConnection
    Dim dgv() As DataGridView
    Dim lbl() As Label


    Dim fm1_w(10) As Double             '------w 在产品   w1 产成品  w2 已送货
    Dim fm2_w(10) As Double
    Dim fm3_w(10) As Double
    Dim fm4_w(10) As Double
    Dim fm5_w(10) As Double
    Dim fm6_w(10) As Double
    Dim fm7_w(10) As Double
    Dim fm8_w(10) As Double
    Dim fm9_w(10) As Double
    Dim fm10_w(10) As Double

    Dim PU_w(5) As Double
    Dim PU3_w(5) As Double
    Dim PU4_w(5) As Double
    Dim PU5_w(5) As Double
    Dim PU7_w(5) As Double



    Dim PU_w1(5) As Double
    Dim PU3_w1(5) As Double
    Dim PU4_w1(5) As Double
    Dim PU5_w1(5) As Double
    Dim PU7_w1(5) As Double

    Dim fm1_w1(10) As Double
    Dim fm2_w1(10) As Double
    Dim fm3_w1(10) As Double
    Dim fm4_w1(10) As Double
    Dim fm5_w1(10) As Double
    Dim fm6_w1(10) As Double
    Dim fm7_w1(10) As Double
    Dim fm8_w1(10) As Double
    Dim fm9_w1(10) As Double
    Dim fm10_w1(10) As Double

    Dim fm1_w2(10) As Double
    Dim fm2_w2(10) As Double
    Dim fm3_w2(10) As Double
    Dim fm4_w2(10) As Double
    Dim fm5_w2(10) As Double
    Dim fm6_w2(10) As Double
    Dim fm7_w2(10) As Double
    Dim fm8_w2(10) As Double
    Dim fm9_w2(10) As Double
    Dim fm10_w2(10) As Double

    Dim PU_w2(5) As Double
    Dim PU3_w2(5) As Double
    Dim PU4_w2(5) As Double
    Dim PU5_w2(5) As Double
    Dim PU7_w2(5) As Double

    Dim my_w(10) As String
    Dim my_w1(10) As String
    Dim my_w2(10) As String





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

        'Me.MdiParent = FrmMDI


        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn


        sql = "SELECT   * FROM RT_BG_STOCK_SAVE order by date desc"
        cmd.CommandText = sql
        Dim DR As SqlDataReader

        DR = cmd.ExecuteReader

        If DR.Read() Then

            TextBox1.Text = DR("INPROCESSFM15") & "," & DR("INPROCESSFM16") & "," & DR("INPROCESSFM17") & "," & DR("INPROCESSFM18")
            TextBox2.Text = DR("INPROCESSFM25") & "," & DR("INPROCESSFM26") & "," & DR("INPROCESSFM27") & "," & DR("INPROCESSFM28")

            TextBox4.Text = DR("FinishFM15") & "," & DR("FinishFM16") & "," & DR("FinishFM17") & "," & DR("FinishFM18")
            TextBox5.Text = DR("FinishFM25") & "," & DR("FinishFM26") & "," & DR("FinishFM27") & "," & DR("FinishFM28")

            TextBox7.Text = DR("sentFM15") & "," & DR("sentFM16") & "," & DR("sentFM17") & "," & DR("sentFM18")
            TextBox8.Text = DR("sentFM25") & "," & DR("sentFM26") & "," & DR("sentFM27") & "," & DR("sentFM28")



            TextBox11.Text = DR("INPROCESSPU13") & "," & DR("INPROCESSPU14") & "," & DR("INPROCESSPU15") & "," & DR("INPROCESSPU12")
            TextBox10.Text = DR("INPROCESSPU23") & "," & DR("INPROCESSPU24") & "," & DR("INPROCESSPU25") & "," & DR("INPROCESSPU22")




            TextBox12.Text = DR("FinishPU13") & "," & DR("FinishPU14") & "," & DR("FinishPU15") & "," & DR("FinishPU12")
            TextBox13.Text = DR("FinishPU23") & "," & DR("FinishPU24") & "," & DR("FinishPU25") & "," & DR("FinishPU22")


            TextBox16.Text = DR("sentPU13") & "," & DR("sentPU14") & "," & DR("sentPU15") & "," & DR("sentPU12")
            TextBox14.Text = DR("sentPU23") & "," & DR("sentPU24") & "," & DR("sentPU25") & "," & DR("sentPU22")


            DateTimePicker2.Value = DR("date")

        Else
            ' MsgBox("找不到资料")

        End If

        DR.Close()









    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  '----核算



        cmd.Connection = conn


        my_w = Split(TextBox1.Text, ",")    '反毛在产品1

        fm7_w(1) = my_w(0) * 0.58
        fm8_w(1) = my_w(1) * 0.58
        fm9_w(1) = my_w(2) * 0.58
        fm10_w(1) = my_w(3) * 0.58

        my_w = Split(TextBox2.Text, ",")     '反毛在产品2

        fm7_w(2) = my_w(0) * 0.58
        fm8_w(2) = my_w(1) * 0.58
        fm9_w(2) = my_w(2) * 0.58
        fm10_w(2) = my_w(3) * 0.58

        my_w = Split(TextBox11.Text, ",")    '贴膜在产品1

        PU3_w(1) = my_w(0) * 0.58
        PU4_w(1) = my_w(1) * 0.58
        PU5_w(1) = my_w(2) * 0.58
        PU7_w(1) = my_w(3) * 0.58

        my_w = Split(TextBox10.Text, ",")     '贴膜在产品2

        PU3_w(2) = my_w(0) * 0.58
        PU4_w(2) = my_w(1) * 0.58
        PU5_w(2) = my_w(2) * 0.58
        PU7_w(2) = my_w(3) * 0.58

        my_w1 = Split(TextBox4.Text, ",")  '反毛产成品1

        fm7_w1(1) = my_w1(0)
        fm8_w1(1) = my_w1(1)
        fm9_w1(1) = my_w1(2)
        fm10_w1(1) = my_w1(3)

        my_w1 = Split(TextBox5.Text, ",") '反毛产成品2
        fm7_w1(2) = my_w1(0)
        fm8_w1(2) = my_w1(1)
        fm9_w1(2) = my_w1(2)
        fm10_w1(2) = my_w1(3)

        my_w1 = Split(TextBox12.Text, ",")  '贴膜产成品1

        PU3_w1(1) = my_w1(0)
        PU4_w1(1) = my_w1(1)
        PU5_w1(1) = my_w1(2)
        PU7_w1(1) = my_w1(3)

        my_w1 = Split(TextBox13.Text, ",") '贴膜产成品2
        PU3_w1(2) = my_w1(0)
        PU4_w1(2) = my_w1(1)
        PU5_w1(2) = my_w1(2)
        PU7_w1(2) = my_w1(3)

        my_w2 = Split(TextBox7.Text, ",")  '反毛已送貨1
        fm7_w2(1) = my_w2(0)
        fm8_w2(1) = my_w2(1)
        fm9_w2(1) = my_w2(2)
        fm10_w2(1) = my_w2(3)


        my_w2 = Split(TextBox8.Text, ",") '反毛已送貨2
        fm7_w2(2) = my_w2(0)
        fm8_w2(2) = my_w2(1)
        fm9_w2(2) = my_w2(2)
        fm10_w2(2) = my_w2(3)




        my_w2 = Split(TextBox16.Text, ",")  '贴膜已送貨1
        PU3_w2(1) = my_w2(0)
        PU4_w2(1) = my_w2(1)
        PU5_w2(1) = my_w2(2)
        PU7_w2(1) = my_w2(3)


        my_w2 = Split(TextBox14.Text, ",") '贴膜已送貨2
        PU3_w2(2) = my_w2(0)
        PU4_w2(2) = my_w2(1)
        PU5_w2(2) = my_w2(2)
        PU7_w2(2) = my_w2(3)

        Dim dt1 As New DataTable

        sql = "SELECT NO FROM RT_BG_MAIN where checked='False' ORDER BY SERIAL"
        cmd.CommandText = sql

        da.SelectCommand = cmd

        da.Fill(dt1)



        cmd.Connection = conn
        Dim a As Integer = 0


        'sql = "delete from rt_bg_bal_temp"  '-------匯總表
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()

        'sql = "alter table rt_bg_bal_temp alter column fm1_ex varchar(30)"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()

        'sql = "alter table rt_bg_bal_temp alter column fm2_ex varchar(30)"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()

        'sql = "alter table rt_bg_bal_temp alter column fm3_ex varchar(30)"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()

        'sql = "alter table rt_bg_bal_temp alter column fm4_ex varchar(30)"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()

        'sql = "alter table rt_bg_bal_temp alter column fm5_ex varchar(30)"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()
        'sql = "alter table rt_bg_bal_temp alter column fm6_ex varchar(30)"
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()


        Dim max_dgv As Integer = 0
        For yx As Integer = 0 To dt1.Rows.Count - 1           '----------------------------------------------------迴圈开始（手册)
            Dim dt As New DataTable
            ' Dim p() As String
            ' p = Split(Frm_BG_IO.ListBox1.Items(yx), vbTab)

            'If p(1) = "执行中" Then
            max_dgv = yx

            ReDim Preserve lbl(a)
            lbl(a) = New Label
            lbl(a).Name = "LBL" & a
            lbl(a).Size = New Size(300, 25)
            lbl(a).Left = 12
            lbl(a).Top = (a Mod 3) * 370 + 180
            lbl(a).Text = dt1.Rows(yx).Item("no")
            lbl(a).ForeColor = Color.Red


            ReDim Preserve dgv(a)
            dgv(a) = New DataGridView
            dgv(a).Name = "dgv" & a
            dgv(a).Size = New Size(3500, 310)
            dgv(a).Left = 12
            dgv(a).Top = (a Mod 3) * 370 + 205



            Me.Controls.Add(dgv(a))
            dgv(a).AllowUserToAddRows = False
            Me.Controls.Add(lbl(a))

            dgv(a).DefaultCellStyle.Font = New Font("微軟正黑體", 8)
            lbl(a).Font = New Font("微軟正黑體", 12)


            Dim dr As SqlDataReader

            sql = "SELECT NAME AS 品名 FROM RT_BG_MTL_NAME WHERE SERIAL <17 ORDER BY SERIAL"


            cmd.CommandText = sql


            da.SelectCommand = cmd
            da.Fill(dt)



            dt.Columns.Add("审批数量")  '-1

            'dt.Columns.Add("反毛3单耗") '-4
            'dt.Columns.Add("反毛4单耗") '-5
            'dt.Columns.Add("反毛5单耗") '-6
            dt.Columns.Add("削匀皮单耗") '-7
            dt.Columns.Add("反毛7单耗") '-8
            dt.Columns.Add("反毛8单耗") '-9
            dt.Columns.Add("反毛9单耗") '-2
            dt.Columns.Add("反毛10单耗") '-3



            dt.Columns.Add("PU3单耗") '-11 
            dt.Columns.Add("PU4单耗") '-12 
            dt.Columns.Add("PU5单耗") '-13 
            dt.Columns.Add("PU6单耗") '-14 '----
            dt.Columns.Add("PU7单耗") '-10


            dt.Columns.Add("已进数量") '-15
            dt.Columns.Add("余料结转")  '-1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
            dt.Columns.Add("退港")
            dt.Columns.Add("已进比例") '-16
            dt.Columns.Add("进口馀额") '-17


            'dt.Columns.Add("反毛3出口") '-22
            'dt.Columns.Add("反毛3出口耗用") '-23
            'dt.Columns.Add("反毛4出口") '-24
            'dt.Columns.Add("反毛4出口耗用") '-25
            'dt.Columns.Add("反毛5出口") '-26
            'dt.Columns.Add("反毛5出口耗用") '-27
            dt.Columns.Add("削匀皮出口") '-28
            dt.Columns.Add("削匀皮出口耗用") '-29
            dt.Columns.Add("反毛7出口") '-30
            dt.Columns.Add("反毛7出口耗用") '-31
            dt.Columns.Add("反毛8出口") '-32
            dt.Columns.Add("反毛8出口耗用") '-33
            dt.Columns.Add("反毛9出口") '-18
            dt.Columns.Add("反毛9出口耗用") '-19
            dt.Columns.Add("反毛10出口") '-20
            dt.Columns.Add("反毛10出口耗用") '-21

            'dt.Columns.Add("PU2出口") '-34
            'dt.Columns.Add("PU2出口耗用") '-35
            dt.Columns.Add("PU3出口") '-36
            dt.Columns.Add("PU3出口耗用") '-37
            dt.Columns.Add("PU4出口") '-38
            dt.Columns.Add("PU4出口耗用") '-39
            dt.Columns.Add("PU5出口") '-40
            dt.Columns.Add("PU5出口耗用") '-41

            dt.Columns.Add("PU6出口") '-42   '-----
            dt.Columns.Add("PU6出口耗用") '-43 '-----

            dt.Columns.Add("PU7出口") '-42   '-----
            dt.Columns.Add("PU7出口耗用") '-43 '-----

            dt.Columns.Add("已报关未进厂") '-44
            dt.Columns.Add("征税内销") '-45

            dt.Columns.Add("出口馀额") '-46

            dt.Columns.Add("反毛1出口馀额") '-47
            dt.Columns.Add("反毛2出口馀额") '-48
            dt.Columns.Add("反毛3出口馀额") '-49
            dt.Columns.Add("反毛4出口馀额") '-50
            dt.Columns.Add("反毛5出口馀额") '-51
            dt.Columns.Add("反毛6出口馀额") '-52
            dt.Columns.Add("反毛7出口馀额") '-53
            dt.Columns.Add("反毛8出口馀额") '-54
            dt.Columns.Add("反毛9出口馀额") '-53
            dt.Columns.Add("反毛10出口馀额") '-54
            dt.Columns.Add("PU2出口馀额") '-55
            dt.Columns.Add("PU3出口馀额") '-56
            dt.Columns.Add("PU4出口馀额") '-57
            dt.Columns.Add("PU5出口馀额") '-58
            dt.Columns.Add("PU6出口馀额") '-59
            dt.Columns.Add("PU7出口馀额") '-59




            'dt.Columns.Add("反毛1在产耗用")      '-60
            'dt.Columns.Add("反毛2在产耗用")      '-61
            'dt.Columns.Add("反毛3在产耗用")      '-62
            'dt.Columns.Add("反毛4在产耗用")      '-63
            'dt.Columns.Add("反毛5在产耗用")      '-64
            'dt.Columns.Add("反毛6在产耗用")      '-65
            dt.Columns.Add("反毛7在产耗用")      '-66
            dt.Columns.Add("反毛8在产耗用")      '-67
            dt.Columns.Add("反毛9在产耗用")      '-66
            dt.Columns.Add("反毛10在产耗用")      '-67

            ' dt.Columns.Add("PU2在产耗用")         '-68
            dt.Columns.Add("PU3在产耗用")         '-69
            dt.Columns.Add("PU4在产耗用")         '-70
            dt.Columns.Add("PU5在产耗用")         '-71
            dt.Columns.Add("PU7在产耗用")         '-71

            '-1
            'dt.Columns.Add("反毛1产成耗用")      '-72
            'dt.Columns.Add("反毛2产成耗用")      '-73
            'dt.Columns.Add("反毛3产成耗用")      '-74
            'dt.Columns.Add("反毛4产成耗用")      '-75
            'dt.Columns.Add("反毛5产成耗用")      '-76
            'dt.Columns.Add("反毛6产成耗用")      '-77
            dt.Columns.Add("反毛7产成耗用")      '-78
            dt.Columns.Add("反毛8产成耗用")      '-79
            dt.Columns.Add("反毛9产成耗用")      '-78
            dt.Columns.Add("反毛10产成耗用")      '-79
            dt.Columns.Add("PU2产成耗用")         '-80
            dt.Columns.Add("PU3产成耗用")         '-81
            dt.Columns.Add("PU4产成耗用")         '-82
            dt.Columns.Add("PU5产成耗用")         '-83
            dt.Columns.Add("PU6产成耗用")         '-84
            dt.Columns.Add("PU7产成耗用")         '-84

            '-1
            'dt.Columns.Add("反毛1未报关耗用")    '-85
            'dt.Columns.Add("反毛2未报关耗用")    '-86
            'dt.Columns.Add("反毛3未报关耗用")    '-87
            'dt.Columns.Add("反毛4未报关耗用")    '-88
            'dt.Columns.Add("反毛5未报关耗用")    '-89
            'dt.Columns.Add("反毛6未报关耗用")    '-90
            dt.Columns.Add("反毛7未报关耗用")    '-91
            dt.Columns.Add("反毛8未报关耗用")    '-92
            dt.Columns.Add("反毛9未报关耗用")    '-91
            dt.Columns.Add("反毛10未报关耗用")    '-92
            'dt.Columns.Add("PU2未报关耗用")       '-93
            dt.Columns.Add("PU3未报关耗用")       '-94
            dt.Columns.Add("PU4未报关耗用")       '-95
            dt.Columns.Add("PU5未报关耗用")       '-96
            dt.Columns.Add("PU6未报关耗用")       '-96
            dt.Columns.Add("PU7未报关耗用")       '-96


            dt.Columns.Add("结存")               '-97

            '  dt.Columns.Add("折成品重量")
            ' dt.Columns.Add("折成品尺数")

            ' dt.Columns.Add("已订货")           '---98
            ' dt.Columns.Add("比例")             '----99
            ' dt.Columns.Add("折成品")

            Dim max_x As Integer = 0
            For X As Integer = 0 To dt.Rows.Count - 1   '----------------------------------------------------------------------------化工迴圈


                ''--------订货化工
                'max_x = X
                'sql = "SELECT   cast(sum(RT_CHEM_CONTAINER.qty) as numeric(10,0)) AS 已订货 FROM  RT_CHEM_CONTAINER INNER JOIN              RT_SYS_CHEM_MAIN ON RT_CHEM_CONTAINER.name = RT_SYS_CHEM_MAIN.name WHERE received is null and etd <>N'暂停' and class2=N'" & dt.Rows(X).Item("品名") & "' and XNO='" & dt1.Rows(yx).Item("no") & "'"
                'sql = "SELECT   cast(sum(RT_CHEM_CONTAINER.qty) as numeric(10,0)) AS 已订货 FROM  RT_CHEM_CONTAINER INNER JOIN              RT_SYS_CHEM_MAIN ON RT_CHEM_CONTAINER.name = RT_SYS_CHEM_MAIN.name WHERE received is null and class2=N'" & dt.Rows(X).Item("品名") & "' and XNO='" & dt1.Rows(yx).Item("no") & "'"
                'cmd.CommandText = sql
                'dr = cmd.ExecuteReader
                'dr.Read()

                'If dr("已订货").ToString = "" Then
                '    dt.Rows(X).Item("已订货") = 0
                'Else
                '    dt.Rows(X).Item("已订货") = dr("已订货").ToString
                'End If
                'dr.Close()

                '== 
                '---------------------------------------------------------------------------------------------------------手册已进口料件     <=日期

                sql = "SELECT SUM(QTY)  AS 已进数量 FROM RT_BG_IN_DETAIL WHERE  qty>0 and date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and name=N'" & dt.Rows(X).Item("品名") & "' and XNO='" & dt1.Rows(yx).Item("no") & "' and matl_name <> N'征税内销' and matl_name <> N'退港'"
                cmd.CommandText = sql
                dr = cmd.ExecuteReader
                dr.Read()

                If dr("已进数量").ToString = "" Then
                    dt.Rows(X).Item("已进数量") = 0
                Else
                    dt.Rows(X).Item("已进数量") = dr("已进数量").ToString
                End If
                dr.Close()



                sql = "SELECT SUM(QTY) AS QTY FROM RT_BG_IN WHERE NO='" & dt1.Rows(yx).Item("no") & "' AND NAME=N'" & dt.Rows(X).Item("品名") & "'"   '----审批数量
                cmd.CommandText = sql
                dr = cmd.ExecuteReader
                dr.Read()

                If dr("QTY").ToString = "" Then

                    dt.Rows(X).Item("审批数量") = 0
                    dt.Rows(X).Item("已进比例") = 0
                    dt.Rows(X).Item("进口馀额") = 0

                Else

                    dt.Rows(X).Item("审批数量") = dr("QTY").ToString
                    dt.Rows(X).Item("已进比例") = Math.Round(dt.Rows(X).Item("已进数量") / dt.Rows(X).Item("审批数量") * 100, 2) & "%"
                    dt.Rows(X).Item("进口馀额") = Math.Round(dt.Rows(X).Item("审批数量") - dt.Rows(X).Item("已进数量"), 2)
                    '  dt.Rows(X).Item("比例") = Math.Round(Val((dt.Rows(X).Item("已进数量")) + Val(dt.Rows(X).Item("已订货"))) / dt.Rows(X).Item("审批数量") * 100, 2) & "%"


                End If
                dr.Close()




                '------------------余料结转

                sql = "SELECT cast(-SUM(QTY) as numeric(10,3)) AS 余料结转 FROM RT_BG_IN_DETAIL WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and name=N'" & dt.Rows(X).Item("品名") & "' and XNO='" & dt1.Rows(yx).Item("no") & "' and (matl_name = N'余料结转' and  qty<0)"
                cmd.CommandText = sql
                dr = cmd.ExecuteReader
                dr.Read()

                If dr("余料结转").ToString = "" Then
                    dt.Rows(X).Item("余料结转") = 0
                Else
                    dt.Rows(X).Item("余料结转") = dr("余料结转").ToString
                End If
                dr.Close()


                '------------------退港

                sql = "SELECT cast(SUM(QTY) as numeric(10,3)) AS 退港 FROM RT_BG_IN_DETAIL WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and name=N'" & dt.Rows(X).Item("品名") & "' and XNO='" & dt1.Rows(yx).Item("no") & "' and (matl_name = N'退港' )"
                cmd.CommandText = sql
                dr = cmd.ExecuteReader
                dr.Read()

                If dr("退港").ToString = "" Then
                    dt.Rows(X).Item("退港") = 0
                Else
                    dt.Rows(X).Item("退港") = dr("退港").ToString
                End If
                dr.Close()






                '------------------征税内销

                sql = "SELECT cast(SUM(QTY) as numeric(10,3)) AS 征税内销 FROM RT_BG_IN_DETAIL WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and name=N'" & dt.Rows(X).Item("品名") & "' and XNO='" & dt1.Rows(yx).Item("no") & "' and (matl_name = N'征税内销' )"
                cmd.CommandText = sql
                dr = cmd.ExecuteReader
                dr.Read()

                If dr("征税内销").ToString = "" Then
                    dt.Rows(X).Item("征税内销") = 0
                Else
                    dt.Rows(X).Item("征税内销") = dr("征税内销").ToString
                End If
                dr.Close()



                '------------------已报关未进厂

                sql = "SELECT cast(SUM(QTY) as numeric(10,3)) AS 已报关未进厂 FROM RT_BG_IN_DETAIL WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and name=N'" & dt.Rows(X).Item("品名") & "' and XNO='" & dt1.Rows(yx).Item("no") & "' and (date2 is null or date2 > '" & String.Format("{0:d}", dtp.Value) & "')"
                cmd.CommandText = sql
                dr = cmd.ExecuteReader
                dr.Read()

                If dr("已报关未进厂").ToString = "" Then
                    dt.Rows(X).Item("已报关未进厂") = 0
                Else
                    dt.Rows(X).Item("已报关未进厂") = dr("已报关未进厂").ToString
                End If
                dr.Close()








                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME =N'削匀皮')  " '-----------------------------------------------削匀皮  出口    <=日期
                cmd.CommandText = sql
                dr = cmd.ExecuteReader
                Dim my_out As String

                If dr.Read Then

                    If dt.Rows(X).Item("审批数量") = 0 Then
                        dt.Rows(X).Item("削匀皮出口") = 0
                        dt.Rows(X).Item("削匀皮出口耗用") = 0
                        '  dt.Rows(X).Item("PU出口") = 0
                    Else
                        dt.Rows(X).Item("削匀皮出口") = dr("出口数量").ToString
                        my_out = Val(dr("出口数量").ToString)


                    End If

                End If

                dr.Close()




                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product=N'削匀皮' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----削匀皮单耗
                cmd.CommandText = sql

                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("削匀皮单耗") = Math.Round(my_percent, 8)

                    dt.Rows(X).Item("削匀皮出口耗用") = Math.Round(my_percent * my_out, 0)


                Else

                End If
                dr.Close()








                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME =N'牛二层皮7')  " '-----------------------------------------------反毛7  出口    <=日期
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then

                    If dt.Rows(X).Item("审批数量") = 0 Then
                        dt.Rows(X).Item("反毛7出口") = 0
                        dt.Rows(X).Item("反毛7出口耗用") = 0
                        ' dt.Rows(X).Item("PU出口") = 0
                    Else
                        dt.Rows(X).Item("反毛7出口") = dr("出口数量").ToString
                        my_out = Val(dr("出口数量").ToString)


                    End If

                End If

                dr.Close()










                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product=N'反毛7' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----反毛7单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader



                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("反毛7单耗") = Math.Round(my_percent, 8)
                    If dt.Rows(X).Item("品名") = "聚氨脂混合液" Then
                        dt.Rows(X).Item("反毛7在产耗用") = Math.Round(my_percent * fm7_w(a + 1) / 2, 0)
                    Else
                        dt.Rows(X).Item("反毛7在产耗用") = Math.Round(my_percent * fm7_w(a + 1), 0)
                    End If

                    dt.Rows(X).Item("反毛7产成耗用") = Math.Round(my_percent * fm7_w1(a + 1), 0)
                    dt.Rows(X).Item("反毛7未报关耗用") = Math.Round(my_percent * fm7_w2(a + 1), 0)
                    dt.Rows(X).Item("反毛7出口耗用") = Math.Round(my_out * my_percent, 3)
                    dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("已进数量") - dt.Rows(X).Item("余料结转") - dt.Rows(X).Item("退港") - dt.Rows(X).Item("反毛7出口耗用") - dt.Rows(X).Item("反毛7未报关耗用") - dt.Rows(X).Item("征税内销") - dt.Rows(X).Item("已报关未进厂") - dt.Rows(X).Item("削匀皮出口耗用"), 2)

                    dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("反毛7产成耗用") - dt.Rows(X).Item("反毛7在产耗用"), 2)


                Else
                    dt.Rows(X).Item("反毛7出口耗用") = 0
                    dt.Rows(X).Item("反毛7出口") = 0
                    dt.Rows(X).Item("反毛7在产耗用") = 0
                    dt.Rows(X).Item("反毛7产成耗用") = 0
                    dt.Rows(X).Item("反毛7未报关耗用") = 0

                End If
                dr.Close()














                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME =N'牛二层皮8')  " '-----------------------------------------------反毛8  出口    <=日期
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then

                    If dt.Rows(X).Item("审批数量") = 0 Then
                        dt.Rows(X).Item("反毛8出口") = 0
                        dt.Rows(X).Item("反毛8出口耗用") = 0
                        ' dt.Rows(X).Item("PU出口") = 0
                    Else
                        dt.Rows(X).Item("反毛8出口") = dr("出口数量").ToString
                        my_out = Val(dr("出口数量").ToString)


                    End If

                End If

                dr.Close()










                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product=N'反毛8' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----反毛8单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("反毛8单耗") = Math.Round(my_percent, 8)
                    If dt.Rows(X).Item("品名") = "聚氨脂混合液" Then
                        dt.Rows(X).Item("反毛8在产耗用") = Math.Round(my_percent * fm8_w(a + 1) / 2, 0)
                    Else
                        dt.Rows(X).Item("反毛8在产耗用") = Math.Round(my_percent * fm8_w(a + 1), 0)
                    End If

                    dt.Rows(X).Item("反毛8产成耗用") = Math.Round(my_percent * fm8_w1(a + 1), 0)
                    dt.Rows(X).Item("反毛8未报关耗用") = Math.Round(my_percent * fm8_w2(a + 1), 0)
                    dt.Rows(X).Item("反毛8出口耗用") = Math.Round(my_out * my_percent, 3)




                    dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("反毛8出口耗用") - dt.Rows(X).Item("反毛8未报关耗用"), 2)



                    dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("反毛8产成耗用") - dt.Rows(X).Item("反毛8在产耗用"), 2)


                Else
                    dt.Rows(X).Item("反毛8出口耗用") = 0
                    dt.Rows(X).Item("反毛8出口") = 0
                    dt.Rows(X).Item("反毛8在产耗用") = 0
                    dt.Rows(X).Item("反毛8产成耗用") = 0
                    dt.Rows(X).Item("反毛8未报关耗用") = 0

                End If
                dr.Close()





                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME =N'牛二层皮9')  " '-----------------------------------------------反毛9  出口    <=日期
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then

                    If dt.Rows(X).Item("审批数量") = 0 Then
                        dt.Rows(X).Item("反毛9出口") = 0
                        dt.Rows(X).Item("反毛9出口耗用") = 0
                        ' dt.Rows(X).Item("PU出口") = 0
                    Else
                        dt.Rows(X).Item("反毛9出口") = dr("出口数量").ToString
                        my_out = Val(dr("出口数量").ToString)


                    End If

                End If

                dr.Close()










                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product=N'反毛9' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----反毛9单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("反毛9单耗") = Math.Round(my_percent, 8)
                    If dt.Rows(X).Item("品名") = "聚氨脂混合液" Then
                        dt.Rows(X).Item("反毛9在产耗用") = Math.Round(my_percent * fm9_w(a + 1) / 2, 0)
                    Else
                        dt.Rows(X).Item("反毛9在产耗用") = Math.Round(my_percent * fm9_w(a + 1), 0)
                    End If

                    dt.Rows(X).Item("反毛9产成耗用") = Math.Round(my_percent * fm9_w1(a + 1), 0)
                    dt.Rows(X).Item("反毛9未报关耗用") = Math.Round(my_percent * fm9_w2(a + 1), 0)
                    dt.Rows(X).Item("反毛9出口耗用") = Math.Round(my_out * my_percent, 3)


                    dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("已进数量") - dt.Rows(X).Item("反毛9出口耗用") - dt.Rows(X).Item("反毛9未报关耗用") - dt.Rows(X).Item("征税内销") - dt.Rows(X).Item("余料结转") - dt.Rows(X).Item("已报关未进厂") - dt.Rows(X).Item("削匀皮出口耗用"), 2)






                    dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("反毛9产成耗用") - dt.Rows(X).Item("反毛9在产耗用"), 2)

                Else
                    dt.Rows(X).Item("反毛9出口耗用") = 0
                    dt.Rows(X).Item("反毛9出口") = 0
                    dt.Rows(X).Item("反毛9在产耗用") = 0
                    dt.Rows(X).Item("反毛9产成耗用") = 0
                    dt.Rows(X).Item("反毛9未报关耗用") = 0

                End If
                dr.Close()



                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME =N'牛二层皮10')  " '-----------------------------------------------反毛10  出口    <=日期
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then

                    If dt.Rows(X).Item("审批数量") = 0 Then
                        dt.Rows(X).Item("反毛10出口") = 0
                        dt.Rows(X).Item("反毛10出口耗用") = 0
                        ' dt.Rows(X).Item("PU出口") = 0
                    Else
                        dt.Rows(X).Item("反毛10出口") = dr("出口数量").ToString
                        my_out = Val(dr("出口数量").ToString)


                    End If

                End If

                dr.Close()










                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product=N'反毛10' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----反毛10单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("反毛10单耗") = Math.Round(my_percent, 8)
                    If dt.Rows(X).Item("品名") = "聚氨脂混合液" Then
                        dt.Rows(X).Item("反毛10在产耗用") = Math.Round(my_percent * fm10_w(a + 1) / 2, 0)
                    Else
                        dt.Rows(X).Item("反毛10在产耗用") = Math.Round(my_percent * fm10_w(a + 1), 0)
                    End If

                    dt.Rows(X).Item("反毛10产成耗用") = Math.Round(my_percent * fm10_w1(a + 1), 0)
                    dt.Rows(X).Item("反毛10未报关耗用") = Math.Round(my_percent * fm10_w2(a + 1), 0)
                    dt.Rows(X).Item("反毛10出口耗用") = Math.Round(my_out * my_percent, 3)


                    dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("反毛10出口耗用") - dt.Rows(X).Item("反毛10未报关耗用"), 2)





                    dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("反毛10产成耗用") - dt.Rows(X).Item("反毛10在产耗用"), 2)


                Else
                    dt.Rows(X).Item("反毛10出口耗用") = 0
                    dt.Rows(X).Item("反毛10出口") = 0
                    dt.Rows(X).Item("反毛10在产耗用") = 0
                    dt.Rows(X).Item("反毛10产成耗用") = 0
                    dt.Rows(X).Item("反毛10未报关耗用") = 0

                End If
                dr.Close()













                my_out = 0
                my_percent = 0

                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE  date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME LIKE N'%PU牛二层皮3%')" '----pu3出口
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then
                    dt.Rows(X).Item("PU3出口") = dr("出口数量").ToString
                    my_out = Val(dr("出口数量").ToString)
                Else
                    dt.Rows(X).Item("PU3出口") = 0
                    my_out = 0
                End If

                dr.Close()




                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product like 'PU3%' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----pu3单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("PU3单耗") = Math.Round(my_percent, 8)



                    dt.Rows(X).Item("PU3产成耗用") = Math.Round(my_percent * PU3_w1(a + 1), 0)

                    dt.Rows(X).Item("PU3未报关耗用") = Math.Round(my_percent * PU3_w2(a + 1), 0)
                    '
                    'dt.Rows(X).Item("PU耗用") = 0
                    dt.Rows(X).Item("PU3出口耗用") = Math.Round(my_out * my_percent, 3)






                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then  '----------在产品PU树脂及促进剂耗用为0

                        dt.Rows(X).Item("PU3在产耗用") = 0



                        dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("已进数量") - dt.Rows(X).Item("pu3出口耗用") - dt.Rows(X).Item("pu3未报关耗用") - dt.Rows(X).Item("余料结转") - dt.Rows(X).Item("征税内销") - dt.Rows(X).Item("已报关未进厂") - dt.Rows(X).Item("削匀皮出口耗用"), 2)







                    Else
                        dt.Rows(X).Item("PU3在产耗用") = Math.Round(my_percent * PU3_w(a + 1), 0)

                        dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu3出口耗用") - dt.Rows(X).Item("pu3未报关耗用"), 2)


                    End If

                    If dt.Rows(X).Item("PU3单耗") <> 0 Then dt.Rows(X).Item("pu3出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") / dt.Rows(X).Item("PU3单耗"), 2)


                    dt.Rows(X).Item("结存") = dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu3在产耗用") - dt.Rows(X).Item("pu3产成耗用")


                Else

                    dt.Rows(X).Item("PU3出口耗用") = 0
                    dt.Rows(X).Item("PU3出口") = 0



                End If
                dr.Close()




                my_out = 0
                my_percent = 0

                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE  date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME LIKE N'%PU牛二层皮4%')" '----pu4出口
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then
                    dt.Rows(X).Item("PU4出口") = dr("出口数量").ToString
                    my_out = Val(dr("出口数量").ToString)
                Else
                    dt.Rows(X).Item("PU4出口") = 0
                    my_out = 0
                End If

                dr.Close()




                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product like 'PU4%' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----pu4单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("PU4单耗") = Math.Round(my_percent, 8)

                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then  '----------在产品PU树脂及促进剂耗用为0
                        dt.Rows(X).Item("PU4在产耗用") = 0
                    Else
                        dt.Rows(X).Item("PU4在产耗用") = Math.Round(my_percent * PU4_w(a + 1), 0)

                    End If

                    dt.Rows(X).Item("PU4产成耗用") = Math.Round(my_percent * PU4_w1(a + 1), 0)

                    dt.Rows(X).Item("PU4未报关耗用") = Math.Round(my_percent * PU4_w2(a + 1), 0)
                    '
                    'dt.Rows(X).Item("PU耗用") = 0
                    dt.Rows(X).Item("PU4出口耗用") = Math.Round(my_out * my_percent, 3)
                    dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu4出口耗用"), 2)

                    If dt.Rows(X).Item("PU4单耗") <> 0 Then dt.Rows(X).Item("pu4出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") / dt.Rows(X).Item("PU4单耗"), 2)


                    'dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("PU2在产耗用") - dt.Rows(X).Item("PU3在产耗用") - dt.Rows(X).Item("PU4在产耗用") - dt.Rows(X).Item("反毛1在产耗用") - dt.Rows(X).Item("反毛2在产耗用") - dt.Rows(X).Item("PU3产成耗用") - dt.Rows(X).Item("PU4产成耗用") - dt.Rows(X).Item("反毛1产成耗用") - dt.Rows(X).Item("反毛2产成耗用") - dt.Rows(X).Item("反毛1未报关耗用") - dt.Rows(X).Item("反毛2未报关耗用") - dt.Rows(X).Item("PU2未报关耗用") - dt.Rows(X).Item("PU3未报关耗用") - dt.Rows(X).Item("PU4未报关耗用") - dt.Rows(X).Item("反毛3未报关耗用") - dt.Rows(X).Item("反毛4未报关耗用") - dt.Rows(X).Item("反毛5未报关耗用") - dt.Rows(X).Item("反毛6未报关耗用") - dt.Rows(X).Item("反毛3在产耗用") - dt.Rows(X).Item("反毛3产成耗用") - dt.Rows(X).Item("反毛4在产耗用") - dt.Rows(X).Item("反毛4产成耗用") - dt.Rows(X).Item("反毛5在产耗用") - dt.Rows(X).Item("反毛5产成耗用") - dt.Rows(X).Item("反毛6在产耗用") - dt.Rows(X).Item("反毛6产成耗用"), 2)
                    dt.Rows(X).Item("结存") = dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu4在产耗用") - dt.Rows(X).Item("pu4产成耗用")



                Else

                    dt.Rows(X).Item("PU4出口耗用") = 0
                    dt.Rows(X).Item("PU4出口") = 0



                End If
                dr.Close()



                my_out = 0
                my_percent = 0

                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE  date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME LIKE N'%PU牛二层皮5%')" '----pu5出口
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then
                    dt.Rows(X).Item("PU5出口") = dr("出口数量").ToString
                    my_out = Val(dr("出口数量").ToString)
                Else
                    dt.Rows(X).Item("PU5出口") = 0
                    my_out = 0
                End If

                dr.Close()




                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product like 'PU5%' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----pu5单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("PU5单耗") = Math.Round(my_percent, 8)

                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then  '----------在产品PU树脂及促进剂耗用为0
                        dt.Rows(X).Item("PU5在产耗用") = 0
                    Else
                        dt.Rows(X).Item("PU5在产耗用") = Math.Round(my_percent * PU5_w(a + 1), 0)

                    End If

                    dt.Rows(X).Item("PU5产成耗用") = Math.Round(my_percent * PU5_w1(a + 1), 0)

                    dt.Rows(X).Item("PU5未报关耗用") = Math.Round(my_percent * PU5_w2(a + 1), 0)
                    '
                    'dt.Rows(X).Item("PU耗用") = 0
                    dt.Rows(X).Item("PU5出口耗用") = Math.Round(my_out * my_percent, 3)
                    dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("PU5出口耗用"), 2)

                    If dt.Rows(X).Item("PU5单耗") <> 0 Then dt.Rows(X).Item("pu5出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") / dt.Rows(X).Item("PU5单耗"), 2)


                    dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("PU5在产耗用") - dt.Rows(X).Item("PU5产成耗用"), 2)




                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then

                        ' dt.Rows(X).Item("折成品重量") = Math.Round(dt.Rows(X).Item("结存") / my_percent)
                        ' dt.Rows(X).Item("折成品尺数") = Math.Round(dt.Rows(X).Item("结存") / my_percent) * 10

                    End If


                Else

                    dt.Rows(X).Item("PU5出口耗用") = 0
                    dt.Rows(X).Item("PU5出口") = 0



                End If
                dr.Close()

                my_out = 0
                my_percent = 0

                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE  date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME LIKE N'%PU牛二层皮6%')" '----pu6出口
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then
                    dt.Rows(X).Item("PU6出口") = dr("出口数量").ToString
                    my_out = Val(dr("出口数量").ToString)
                Else
                    dt.Rows(X).Item("PU6出口") = 0
                    my_out = 0
                End If

                dr.Close()




                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product like 'PU6%' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----pu6单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("PU6单耗") = Math.Round(my_percent, 8)



                    'dt.Rows(X).Item("PU6产成耗用") = Math.Round(my_percent * PU5_w1(a + 1), 0)

                    'dt.Rows(X).Item("PU6未报关耗用") = Math.Round(my_percent * PU5_w2(a + 1), 0)
                    '
                    'dt.Rows(X).Item("PU耗用") = 0

                    If dt.Rows(X).Item("品名") = "蓝湿牛二层皮" Then

                    Else
                        dt.Rows(X).Item("PU6出口耗用") = Math.Round(my_out * my_percent, 3)
                    End If



                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then  '----------在产品PU树脂及促进剂耗用为0
                        '  dt.Rows(X).Item("PU6在产耗用") = 0

                        If IsDBNull(dt.Rows(X).Item("出口馀额")) Then
                            dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("已进数量") - dt.Rows(X).Item("pu6出口耗用") - dt.Rows(X).Item("余料结转") - dt.Rows(X).Item("征税内销") - dt.Rows(X).Item("已报关未进厂") - dt.Rows(X).Item("削匀皮出口耗用"), 2)
                        Else
                            dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu6出口耗用"), 2)

                        End If


                    Else

                        dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu6出口耗用"), 2)
                        ' dt.Rows(X).Item("PU6在产耗用") = Math.Round(my_percent * PU5_w(a + 1), 0)

                    End If




                    ' dt.Rows(X).Item("出口馀额") = dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("PU6出口耗用")

                    If dt.Rows(X).Item("PU6单耗") <> 0 Then dt.Rows(X).Item("pu6出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") / dt.Rows(X).Item("PU6单耗"), 2)



                    ' dt.Rows(X).Item("结存") = dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu6在产耗用") - dt.Rows(X).Item("pu6产成耗用")

                    'dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("PU3在产耗用") - dt.Rows(X).Item("PU4在产耗用") - dt.Rows(X).Item("PU3产成耗用") - dt.Rows(X).Item("PU4产成耗用") - dt.Rows(X).Item("PU3未报关耗用") - dt.Rows(X).Item("PU4未报关耗用") - dt.Rows(X).Item("反毛7在产耗用") - dt.Rows(X).Item("反毛7产成耗用") - dt.Rows(X).Item("反毛8在产耗用") - dt.Rows(X).Item("反毛8产成耗用") - dt.Rows(X).Item("PU5在产耗用") - dt.Rows(X).Item("PU5产成耗用"), 2)




                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then

                        ' dt.Rows(X).Item("折成品重量") = Math.Round(dt.Rows(X).Item("结存") / my_percent)
                        ' dt.Rows(X).Item("折成品尺数") = Math.Round(dt.Rows(X).Item("结存") / my_percent) * 10

                    End If


                Else

                    dt.Rows(X).Item("PU6出口耗用") = 0
                    dt.Rows(X).Item("PU6出口") = 0



                End If
                dr.Close()







                my_out = 0
                my_percent = 0

                sql = "SELECT cast(SUM(QTY) as numeric(10,2)) AS 出口数量 FROM RT_BG_OUT WHERE  date1 <= '" & String.Format("{0:d}", dtp.Value) & "' and (XNO = '" & dt1.Rows(yx).Item("no") & "') AND (NAME LIKE N'%PU牛二层皮7%')" '----pu7出口
                cmd.CommandText = sql
                dr = cmd.ExecuteReader


                If dr.Read Then
                    dt.Rows(X).Item("PU7出口") = dr("出口数量").ToString
                    my_out = Val(dr("出口数量").ToString)
                Else
                    dt.Rows(X).Item("PU7出口") = 0
                    my_out = 0
                End If

                dr.Close()




                sql = "select top(1) percents from rt_bg_com where xno='" & dt1.Rows(yx).Item("no") & "' and product like 'PU7%' and name=N'" & dt.Rows(X).Item("品名") & "'"  '----pu7单耗
                cmd.CommandText = sql
                dr = cmd.ExecuteReader

                If dr.Read Then

                    Dim my_percent As Double = dr("percents")
                    dt.Rows(X).Item("PU7单耗") = Math.Round(my_percent, 8)

                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then  '----------在产品PU树脂及促进剂耗用为0
                        dt.Rows(X).Item("PU7在产耗用") = 0
                    Else
                        dt.Rows(X).Item("PU7在产耗用") = Math.Round(my_percent * PU7_w(a + 1), 0)

                    End If

                    dt.Rows(X).Item("PU7产成耗用") = Math.Round(my_percent * PU7_w1(a + 1), 0)

                    dt.Rows(X).Item("PU7未报关耗用") = Math.Round(my_percent * PU7_w2(a + 1), 0)
                    '
                    'dt.Rows(X).Item("PU耗用") = 0
                    dt.Rows(X).Item("PU7出口耗用") = Math.Round(my_out * my_percent, 3)
                    'dt.Rows(X).Item("出口馀额") = Math.Round(dt.Rows(X).Item("已进数量") - dt.Rows(X).Item("削匀皮出口耗用") - dt.Rows(X).Item("反毛7出口耗用") - dt.Rows(X).Item("反毛8出口耗用") - dt.Rows(X).Item("PU3出口耗用") - dt.Rows(X).Item("PU4出口耗用") - dt.Rows(X).Item("PU5出口耗用") - dt.Rows(X).Item("征税内销") - dt.Rows(X).Item("已报关未进厂"), 2)



                    dt.Rows(X).Item("出口馀额") = dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("PU7出口耗用")



                    If dt.Rows(X).Item("PU7单耗") <> 0 Then dt.Rows(X).Item("pu7出口馀额") = Math.Round(dt.Rows(X).Item("出口馀额") / dt.Rows(X).Item("PU7单耗"), 2)


                    'dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("PU3在产耗用") - dt.Rows(X).Item("PU4在产耗用") - dt.Rows(X).Item("PU3产成耗用") - dt.Rows(X).Item("PU4产成耗用") - dt.Rows(X).Item("PU3未报关耗用") - dt.Rows(X).Item("PU4未报关耗用") - dt.Rows(X).Item("反毛7在产耗用") - dt.Rows(X).Item("反毛7产成耗用") - dt.Rows(X).Item("反毛8在产耗用") - dt.Rows(X).Item("反毛8产成耗用") - dt.Rows(X).Item("PU5在产耗用") - dt.Rows(X).Item("PU5产成耗用"), 2)

                    dt.Rows(X).Item("结存") = Math.Round(dt.Rows(X).Item("出口馀额") - dt.Rows(X).Item("pu7在产耗用") - dt.Rows(X).Item("pu7产成耗用"), 2)


                    If dt.Rows(X).Item("品名") = "PU树脂" Or dt.Rows(X).Item("品名") = "皮革促进剂" Then

                        ' dt.Rows(X).Item("折成品重量") = Math.Round(dt.Rows(X).Item("结存") / my_percent)
                        ' dt.Rows(X).Item("折成品尺数") = Math.Round(dt.Rows(X).Item("结存") / my_percent) * 10

                    End If


                Else

                    dt.Rows(X).Item("PU7出口耗用") = 0
                    dt.Rows(X).Item("PU7出口") = 0



                End If
                dr.Close()





















                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("反毛7单耗"))) Then

                    If dt.Rows(X).Item("反毛7单耗") <> 0 Then dt.Rows(X).Item("反毛7出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("反毛7单耗"), 0)


                End If

                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("反毛8单耗"))) Then

                    If dt.Rows(X).Item("反毛8单耗") <> 0 Then dt.Rows(X).Item("反毛8出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("反毛8单耗"), 0)


                End If



                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("反毛9单耗"))) Then

                    If dt.Rows(X).Item("反毛9单耗") <> 0 Then dt.Rows(X).Item("反毛9出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("反毛9单耗"), 0)


                End If

                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("反毛10单耗"))) Then

                    If dt.Rows(X).Item("反毛10单耗") <> 0 Then dt.Rows(X).Item("反毛10出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("反毛10单耗"), 0)


                End If







                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("PU3单耗"))) Then

                    If dt.Rows(X).Item("PU3单耗") <> 0 Then
                        dt.Rows(X).Item("PU3出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("PU3单耗"), 0)
                    End If


                End If


                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("PU4单耗"))) Then

                    If dt.Rows(X).Item("PU4单耗") <> 0 Then
                        dt.Rows(X).Item("PU4出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("PU4单耗"), 0)
                    End If


                End If

                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("PU5单耗"))) Then

                    If dt.Rows(X).Item("PU5单耗") <> 0 Then
                        dt.Rows(X).Item("PU5出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("PU5单耗"), 0)
                    End If


                End If

                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("PU6单耗"))) Then

                    If dt.Rows(X).Item("PU6单耗") <> 0 Then
                        dt.Rows(X).Item("PU6出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("PU6单耗"), 0)
                    End If


                End If

                If Not (IsDBNull(dt.Rows(X).Item("出口馀额"))) And Not (IsDBNull(dt.Rows(X).Item("PU7单耗"))) Then

                    If dt.Rows(X).Item("PU7单耗") <> 0 Then
                        dt.Rows(X).Item("PU7出口馀额") = Math.Round(Val(dt.Rows(X).Item("出口馀额")) / dt.Rows(X).Item("PU7单耗"), 0)
                    End If


                End If



                dr.Close()





                my_out = 0
                my_percent = 0

                dgv(a).ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText



            Next



            Dim my_mini As Integer = 1000000
            Dim my_mini_pu As Integer = 1000000
            Dim my_index As Integer
            Dim my_index_pu As Integer





            my_mini = 1000000
            my_index = 0
            For zz As Integer = 0 To dt.Rows.Count - 1          '====================================反毛7出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("反毛7出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("反毛7出口馀额")) < my_mini Then

                        my_mini = Val(dt.Rows(zz).Item("反毛7出口馀额"))
                        my_index = zz
                    End If

                End If

            Next
            dgv(a).DataSource = dt

            If Not (IsDBNull(dgv(a).Rows(my_index).Cells("反毛7出口馀额").Value)) Then dgv(a).Rows(my_index).Cells("反毛7出口馀额").Style.BackColor = Color.Red
            my_index1(a) = my_index



            my_mini = 1000000
            my_index = 0
            For zz As Integer = 0 To dt.Rows.Count - 1          '====================================反毛8出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("反毛8出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("反毛8出口馀额")) < my_mini Then

                        my_mini = Val(dt.Rows(zz).Item("反毛8出口馀额"))
                        my_index = zz
                    End If

                End If

            Next
            dgv(a).DataSource = dt
            If Not (IsDBNull(dgv(a).Rows(my_index).Cells("反毛8出口馀额").Value)) Then dgv(a).Rows(my_index).Cells("反毛8出口馀额").Style.BackColor = Color.Red
            my_index1(a) = my_index


            my_mini = 1000000
            my_index = 0
            For zz As Integer = 0 To dt.Rows.Count - 1          '====================================反毛9出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("反毛9出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("反毛9出口馀额")) < my_mini Then

                        my_mini = Val(dt.Rows(zz).Item("反毛9出口馀额"))
                        my_index = zz
                    End If

                End If

            Next
            dgv(a).DataSource = dt
            If Not (IsDBNull(dgv(a).Rows(my_index).Cells("反毛9出口馀额").Value)) Then dgv(a).Rows(my_index).Cells("反毛9出口馀额").Style.BackColor = Color.Red
            my_index1(a) = my_index


            my_mini = 1000000
            my_index = 0
            For zz As Integer = 0 To dt.Rows.Count - 1          '====================================反毛10出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("反毛10出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("反毛10出口馀额")) < my_mini Then

                        my_mini = Val(dt.Rows(zz).Item("反毛10出口馀额"))
                        my_index = zz
                    End If

                End If

            Next
            dgv(a).DataSource = dt
            If Not (IsDBNull(dgv(a).Rows(my_index).Cells("反毛10出口馀额").Value)) Then dgv(a).Rows(my_index).Cells("反毛10出口馀额").Style.BackColor = Color.Red
            my_index1(a) = my_index




            my_mini_pu = 1000000
            my_index_pu = 0
            For zz As Integer = 0 To dt.Rows.Count - 1        '====================================pu3出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("PU3出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("PU3出口馀额")) < my_mini_pu Then

                        my_mini_pu = Val(dt.Rows(zz).Item("PU3出口馀额"))
                        my_index_pu = zz
                    End If

                End If

            Next
            If Not (IsDBNull(dgv(a).Rows(my_index).Cells("pu3出口馀额").Value)) Then dgv(a).Rows(my_index_pu).Cells("pu3出口馀额").Style.BackColor = Color.Red



            my_mini_pu = 1000000
            my_index_pu = 0
            For zz As Integer = 0 To dt.Rows.Count - 1        '====================================pu4出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("PU4出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("PU4出口馀额")) < my_mini_pu Then

                        my_mini_pu = Val(dt.Rows(zz).Item("PU4出口馀额"))
                        my_index_pu = zz
                    End If

                End If

            Next
            If Not (IsDBNull(dgv(a).Rows(my_index).Cells("pu4出口馀额").Value)) Then dgv(a).Rows(my_index_pu).Cells("pu4出口馀额").Style.BackColor = Color.Red



            my_mini_pu = 1000000
            my_index_pu = 0
            For zz As Integer = 0 To dt.Rows.Count - 1        '====================================pu5出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("PU5出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("PU5出口馀额")) < my_mini_pu Then

                        my_mini_pu = Val(dt.Rows(zz).Item("PU5出口馀额"))
                        my_index_pu = zz
                    End If

                End If

            Next
            If Not (IsDBNull(dgv(a).Rows(my_index).Cells("pu5出口馀额").Value)) Then dgv(a).Rows(my_index_pu).Cells("pu5出口馀额").Style.BackColor = Color.Red



            my_mini_pu = 1000000
            my_index_pu = 0
            For zz As Integer = 0 To dt.Rows.Count - 1        '====================================pu6出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("PU6出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("PU6出口馀额")) < my_mini_pu Then

                        my_mini_pu = Val(dt.Rows(zz).Item("PU6出口馀额"))
                        my_index_pu = zz
                    End If

                End If

            Next
            If Not (IsDBNull(dgv(a).Rows(my_index_pu).Cells("pu6出口馀额").Value)) Then dgv(a).Rows(my_index_pu).Cells("pu6出口馀额").Style.BackColor = Color.Red

            my_mini_pu = 1000000
            my_index_pu = 0
            For zz As Integer = 0 To dt.Rows.Count - 1        '====================================pu7出口馀额

                If Not (IsDBNull(dt.Rows(zz).Item("PU7出口馀额"))) Then

                    If Val(dt.Rows(zz).Item("PU7出口馀额")) < my_mini_pu Then

                        my_mini_pu = Val(dt.Rows(zz).Item("PU7出口馀额"))
                        my_index_pu = zz
                    End If

                End If

            Next
            If Not (IsDBNull(dgv(a).Rows(my_index_pu).Cells("pu7出口馀额").Value)) Then dgv(a).Rows(my_index_pu).Cells("pu7出口馀额").Style.BackColor = Color.Red



            dgv(a).Columns(8).Width = 80
            dgv(a).Columns(10).Width = 80
            dgv(a).Columns(11).Width = 80
            dgv(a).Columns(12).Width = 85
            dgv(a).Columns(13).Width = 85
            dgv(a).Columns(14).Width = 85
            dgv(a).Columns(15).Width = 85
            dgv(a).Columns(16).Width = 85
            dgv(a).Columns(17).Width = 85
            dgv(a).Columns(18).Width = 85
            dgv(a).Columns(19).Width = 85
            dgv(a).Columns(20).Width = 85
            dgv(a).Columns(21).Width = 85
            dgv(a).Columns(22).Width = 85
            dgv(a).Columns(23).Width = 85
            dgv(a).Columns(24).Width = 85



            dgv(a).Columns(0).Frozen = True

            dgv(a).SelectionMode = DataGridViewSelectionMode.FullRowSelect

            ''''For i As Integer = 0 To dgv(a).Rows.Count - 1

            ''''    For j As Integer = 1 To dgv(a).Columns.Count - 1

            ''''        If j = 10 Or j = 59 Then
            ''''        Else

            ''''            If Not (IsDBNull(dgv(a).Rows(i).Cells(j).Value)) Then

            ''''                If dgv(a).Rows(i).Cells(j).Value = "" Then

            ''''                Else

            ''''                    If dgv(a).Rows(i).Cells(j).Value = 0 Then

            ''''                        dgv(a).Rows(i).Cells(j).Value = Nothing
            ''''                    End If

            ''''                End If

            ''''            End If

            ''''        End If

            ''''    Next

            ''''Next






            'Dim my_sqlbulk As New SqlBulkCopy(conn)

            'my_sqlbulk.DestinationTableName = "dbo.rt_bg_bal_temp"
            'my_sqlbulk.WriteToServer(dt)

            'sql = "update rt_bg_bal_temp set xno='" & dt1.Rows(yx).Item("no") & "' where xno is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "delete from rt_bg_bal_temp where qty='0'"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm1_dh=0 where fm1_dh is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm2_dh=0 where fm2_dh is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm3_dh=0 where fm3_dh is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm4_dh=0 where fm4_dh is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm5_dh=0 where fm5_dh is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm6_dh=0 where fm6_dh is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set pu_dh=0 where pu_dh is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm1_ex=0 where fm1_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()
            'sql = "update rt_bg_bal_temp set fm2_ex=0 where fm2_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()
            'sql = "update rt_bg_bal_temp set fm3_ex=0 where fm3_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()
            'sql = "update rt_bg_bal_temp set fm4_ex=0 where fm4_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()
            'sql = "update rt_bg_bal_temp set fm5_ex=0 where fm5_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()
            'sql = "update rt_bg_bal_temp set fm6_ex=0 where fm6_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm1_ex_com=0 where fm1_ex_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm2_ex_com=0 where fm2_ex_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm3_ex=0 where fm3_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm3_ex_com=0 where fm3_ex_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm4_ex=0 where fm4_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm4_ex_com=0 where fm4_ex_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm5_ex_com=0 where fm5_ex_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm6_ex_com=0 where fm6_ex_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set pu_ex=0 where pu_ex =''"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set pu_ex_com=0 where pu_ex_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm1_inprocess_com=0 where fm1_inprocess_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm1_inprocess_com=0 where fm2_inprocess_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm3_inprocess_com=0 where fm3_inprocess_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm4_inprocess_com=0 where fm4_inprocess_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm5_inprocess_com=0 where fm5_inprocess_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm6_inprocess_com=0 where fm6_inprocess_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set pu_inprocess_com=0 where pu_inprocess_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set pu_finish_com=0 where pu_finish_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm1_finish_com=0 where fm1_finish_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm2_finish_com=0 where fm2_finish_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm3_finish_com=0 where fm3_finish_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm4_finish_com=0 where fm4_finish_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm5_finish_com=0 where fm5_finish_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm6_finish_com=0 where fm6_finish_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm1_not_declare_com=0 where fm1_not_declare_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm2_not_declare_com=0 where fm2_not_declare_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm3_not_declare_com=0 where fm3_not_declare_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm4_not_declare_com=0 where fm4_not_declare_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()


            'sql = "update rt_bg_bal_temp set fm5_not_declare_com=0 where fm5_not_declare_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set fm6_not_declare_com=0 where fm6_not_declare_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()

            'sql = "update rt_bg_bal_temp set pu_not_declare_com=0 where pu_not_declare_com is null"
            'cmd.CommandText = sql
            'cmd.ExecuteNonQuery()







            dgv(a).Columns("进口馀额").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("进口馀额").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛1在产耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛1在产耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛2在产耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛2在产耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛3在产耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛3在产耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛4在产耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛4在产耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛5在产耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛5在产耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛6在产耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛6在产耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛7在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛7在产耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛8在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛8在产耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛9在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛9在产耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛10在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛10在产耗用").DefaultCellStyle.BackColor = Color.Gray
            ' dgv(a).Columns("pu2在产耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("PU2在产耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("pu3在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU3在产耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu4在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU4在产耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu5在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU5在产耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu7在产耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU7在产耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛1产成耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛1产成耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛2产成耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛2产成耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛3产成耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛3产成耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛4产成耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛4产成耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛5产成耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛5产成耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("反毛6产成耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("反毛6产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛7产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛7产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛8产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛8产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛9产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛9产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛10产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛10产成耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("pu2产成耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("PU2产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu3产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU3产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu4产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU4产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu5产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU5产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu6产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU6产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu7产成耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU7产成耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("出口馀额").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("出口馀额").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛7未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛7未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛8未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛8未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛9未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛9未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("反毛10未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("反毛10未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            'dgv(a).Columns("pu2未报关耗用").DefaultCellStyle.ForeColor = Color.White
            'dgv(a).Columns("PU2未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu3未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU3未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu4未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU4未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu5未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU5未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu6未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU6未报关耗用").DefaultCellStyle.BackColor = Color.Gray
            dgv(a).Columns("pu7未报关耗用").DefaultCellStyle.ForeColor = Color.White
            dgv(a).Columns("PU7未报关耗用").DefaultCellStyle.BackColor = Color.Gray



            For z As Integer = 2 To 11 '------单耗

                dgv(a).Columns(z).DefaultCellStyle.BackColor = Color.Yellow
            Next

            For z As Integer = 17 To 36 '------已出口、出口耗用

                dgv(a).Columns(z).DefaultCellStyle.BackColor = Color.YellowGreen
            Next

            For z As Integer = 17 To 36 Step 2 '------已出口、出口耗用

                dgv(a).Columns(z).DefaultCellStyle.BackColor = Color.GreenYellow

            Next


            For z As Integer = 56 To 63 '------在产

                dgv(a).Columns(z).DefaultCellStyle.BackColor = Color.DodgerBlue
            Next

            For z As Integer = 64 To 73 '------产成

                dgv(a).Columns(z).DefaultCellStyle.BackColor = Color.MediumBlue
            Next


            For z As Integer = 74 To 82 '------未报关

                dgv(a).Columns(z).DefaultCellStyle.BackColor = Color.RoyalBlue
            Next







            For x As Integer = 2 To 11 '----单耗
                dgv(a).Columns(x).Visible = False
            Next


            For x As Integer = 17 To 36       '------出口
                dgv(a).Columns(x).Visible = False

                'If x <> 26 Or x <> 28 Or x <> 30 Or x <> 32 Or x <> 36 Or x <> 38 Or x <> 40 Or x <> 42 Then
                '    dgv(a).Columns(x).Visible = False
                'Else
                'End If

            Next


            For x As Integer = 40 To 45       '------出口馀额
                dgv(a).Columns(x).Visible = False



            Next





            dgv(a).Columns(50).Visible = False '------pu2出口馀额



            For x As Integer = 56 To 82 '----在产产成未报关
                dgv(a).Columns(x).Visible = False
            Next




            ''For x As Integer = 48 To 51         '----其他
            ''    If x = 40 Or x = 41 Or x = 42 Or x = 47 Or x = 48 Or x = 49 Then
            ''    Else

            ''        dgv(a).Columns(x).Visible = False
            ''    End If


            ''Next






            a = a + 1



            Next               '----------------------------------------------------------------------------------------------------迴圈结束



        'For X As Integer = 1 To a


        'For Y As Integer = 1 To 12

        '    dgv(X - 1).Columns(Y).Width = 85

        'Next

        'dgv(X - 1).Columns(9).Width = 75
        'dgv(X - 1).Columns(10).Width = 75
        'dgv(X - 1).Columns(12).Width = 75

        ' dgv(X - 1).Columns("折成品尺数").Visible = False
        ' dgv(X - 1).Columns("折成品重量").Visible = False
        'Next







        'For x As Integer = 1 To a  '------------------------------------------------------------------隐藏0

        '    For y As Integer = 0 To dgv(x - 1).Rows.Count - 1

        '        If IsDBNull(dgv(x - 1).Rows(y).Cells(1).Value) Then
        '            'dgv(x - 1).CurrentCell = dgv(x - 1).Rows(1).Cells(0)

        '            dgv(x - 1).Rows(y).Visible = False
        '        End If
        '    Next
        'Next ''''-----隐藏0












        'Dim type As Type = DGV_IN.GetType()
        'Dim pi As PropertyInfo = type.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        'pi.SetValue(dgv(0), True, Nothing)




        'pi.SetValue(dgv(1), True, Nothing)


        ''''''        ReDim Preserve lbl(a)
        ''''''        lbl(a) = New Label
        ''''''        lbl(a).Name = "LBL" & a
        ''''''        lbl(a).Size = New Size(300, 25)
        ''''''        lbl(a).Left = 12
        ''''''        lbl(a).Top = a * 370 + 80
        ''''''        lbl(a).Text = "手册汇总"
        ''''''        lbl(a).ForeColor = Color.Red


        ''''''        ReDim Preserve dgv(a)
        ''''''        dgv(a) = New DataGridView
        ''''''        dgv(a).Name = "dgv" & a
        ''''''        dgv(a).Size = New Size(2300, 330)
        ''''''        dgv(a).Left = 12
        ''''''        dgv(a).Top = a * 370 + 105



        ''''''        Me.Controls.Add(dgv(a))
        ''''''        dgv(a).AllowUserToAddRows = False
        ''''''        Me.Controls.Add(lbl(a))

        ''''''        dgv(a).DefaultCellStyle.Font = New Font("微軟正黑體", 10)
        ''''''        lbl(a).Font = New Font("微軟正黑體", 14)


        ''''''        dt1 = New DataTable

        ''''''        sql = "SELECT   RT_BG_BAL_TEMP.name AS 品名, SUM(CAST(RT_BG_BAL_TEMP.qty AS numeric(10, 1))) AS 审批数量, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.imported AS numeric(10, 1))) AS 进口数量, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.fm1_ex AS numeric(10, 1))) AS 反毛1出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm2_ex AS numeric(10, 1))) AS 反毛2出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm3_ex AS numeric(10, 1))) AS 反毛3出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm4_ex AS numeric(10, 1))) AS 反毛4出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm5_ex AS numeric(10, 1))) AS 反毛5出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm6_ex AS numeric(10, 1))) AS 反毛6出口,
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.pu_ex AS numeric(10, 1))) AS pu出口, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.export_bal AS numeric(10, 1))) AS 出口馀额, CASE WHEN AVG(CAST(fm1_dh AS numeric(10, 
        ''''''                5))) = 0 THEN 0 ELSE CAST(SUM(CAST(export_bal AS numeric(10, 1))) / AVG(CAST(fm1_dh AS numeric(10, 5))) 
        ''''''                AS numeric(10, 0)) END AS 反毛成品馀额, CASE WHEN AVG(CAST(pu_dh AS numeric(10, 5))) 
        ''''''                = 0 THEN 0 ELSE CAST(SUM(CAST(export_bal AS numeric(10, 1))) / AVG(CAST(pu_dh AS numeric(10, 5))) AS numeric(10, 0)) 
        ''''''                END AS PU成品馀额, SUM(CAST(RT_BG_BAL_TEMP.fm1_inprocess_com AS numeric(10, 1))) AS 反毛在产耗用, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.pu_inprocess_com AS numeric(10, 1))) AS PU在产耗用, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.fm1_finish_com AS numeric(10, 1))) AS 反毛产成耗用, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.pu_finish_com AS numeric(10, 1))) AS PU产成耗用, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.fm1_not_declare_com AS numeric(10, 1))) AS 反毛未报关耗用, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.PU_not_declare_com AS numeric(10, 1))) AS PU未报关耗用, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.bal AS numeric(10, 1))) AS 結存
        ''''''FROM      RT_BG_BAL_TEMP INNER JOIN
        ''''''                RT_BG_MTL_NAME ON RT_BG_BAL_TEMP.name = RT_BG_MTL_NAME.NAME
        ''''''GROUP BY RT_BG_BAL_TEMP.name, RT_BG_MTL_NAME.SERIAL
        ''''''ORDER BY RT_BG_MTL_NAME.SERIAL"

        ''''''        sql = "SELECT   RT_BG_BAL_TEMP.name AS 品名, SUM(CAST(RT_BG_BAL_TEMP.qty AS numeric(10, 1))) AS 审批数量, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.imported AS numeric(10, 1))) AS 进口数量, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.fm1_ex AS numeric(10, 1))) AS 反毛1出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm2_ex AS numeric(10, 1))) AS 反毛2出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm3_ex AS numeric(10, 1))) AS 反毛3出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm4_ex AS numeric(10, 1))) AS 反毛4出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm5_ex AS numeric(10, 1))) AS 反毛5出口,
        ''''''SUM(CAST(RT_BG_BAL_TEMP.fm6_ex AS numeric(10, 1))) AS 反毛6出口,
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.pu_ex AS numeric(10, 1))) AS pu出口, 
        ''''''                SUM(CAST(RT_BG_BAL_TEMP.export_bal AS numeric(10, 1))) AS 出口馀额, SUM(CAST(RT_BG_BAL_TEMP.bal AS numeric(10, 1))) AS 平衡
        ''''''FROM      RT_BG_BAL_TEMP INNER JOIN
        ''''''                RT_BG_MTL_NAME ON RT_BG_BAL_TEMP.name = RT_BG_MTL_NAME.NAME
        ''''''GROUP BY RT_BG_BAL_TEMP.name, RT_BG_MTL_NAME.SERIAL
        ''''''ORDER BY RT_BG_MTL_NAME.SERIAL"
        ''''''        cmd.CommandText = sql
        ''''''        da.Fill(dt1)


        ''''''        dgv(a).DataSource = dt1



        ''''''        dgv(0).ColumnHeadersHeight = 30
        ''''''        dgv(1).ColumnHeadersHeight = 30
        ''''''        '  dgv(2).ColumnHeadersHeight = 30


        ''''''        dgv(a).Columns("出口馀额").DefaultCellStyle.ForeColor = Color.White
        ''''''        dgv(a).Columns("出口馀额").DefaultCellStyle.BackColor = Color.Gray

        ''''''        dgv(a).Columns("出口馀额").Width = 80
        ''''''        '   dgv(a).Columns("反毛未报关耗用").Width = 80
        ''''''        '  dgv(a).Columns("PU未报关耗用").Width = 80
        ''''''        '  dgv(a).Columns("反毛产成耗用").Width = 80
        ''''''        ' dgv(a).Columns("PU产成耗用").Width = 80
        ''''''        ' dgv(a).Columns("反毛在产耗用").Width = 80
        ''''''        ' dgv(a).Columns("PU在产耗用").Width = 80






        ''''''        For y As Integer = 0 To dgv(a).Rows.Count - 1

        ''''''            If IsDBNull(dgv(a).Rows(y).Cells(1).Value) Then
        ''''''                dgv(a).Rows(y).Visible = False
        ''''''            End If
        ''''''        Next ''''-----隐藏0













    End Sub

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




        Button4.Text = "-"
        Button5.Text = "-"
        Button6.Text = "-"
        Button7.Text = "-"


        For Each c As System.Windows.Forms.Control In Me.Controls
            If c.Tag = "newadd" Then
                Me.Controls.Remove(c)
            End If
        Next


        For X As Integer = 0 To 0

            Me.Controls.Remove(dgv(X))
            Me.Controls.Remove(lbl(X))


        Next


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

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("请先输入在产品/成品数量")
            Exit Sub

        End If


        Dim w(3) As Double

        w(1) = TextBox1.Text
        w(2) = TextBox2.Text
        w(3) = TextBox3.Text


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

        xlApp = CreateObject("Excel.Application")

        xlBook = xlApp.Workbooks.Add
        xlApp.Visible = True
        'xlApp.DisplayAlerts = False

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








        For x As Integer = 0 To dgv.Count - 1

            Dim my_range As String


            my_range = "a" & 18 * x + 4



            'For y As Integer = 1 To 10



            'xlSheet.Cells(18 * x + 4 + y, 19).FormulaR1C1 = "=rc[-16]*rc[-6]"
            'xlSheet.Cells(18 * x + 4 + y, 20).FormulaR1C1 = "=rc[-16]*rc[-6]"
            'xlSheet.Cells(18 * x + 4 + y, 21).FormulaR1C1 = "=rc[-1]+rc[-2]"
            'xlSheet.Cells(18 * x + 4 + y, 22).FormulaR1C1 = "=rc[-10]-rc[-1]"

            'Next




            xlSheet.Cells(18 * x + 1, 1) = lbl(x).Text
            If x <> dgv.Count - 1 Then
                'xlSheet.Cells(x * 18 + 2, 1) = "反毛1在产品：" & fm1_w(x + 1)
                'xlSheet.Cells(x * 18 + 3, 1) = "反毛2在产品：" & fm1_w(x + 1)

                'xlSheet.Cells(x * 18 + 3, 1) = "PU 在产品：" & PU_w(x + 1)

                'xlSheet.Cells(x * 18 + 2, 2) = "反毛3在产品： " & fm3_w(x + 1)
                'xlSheet.Cells(x * 18 + 3, 2) = "反毛4在产品：" & fm4_w(x + 1)

                'xlSheet.Cells(x * 18 + 2, 3) = "反毛产成品：" & fm1_w1(x + 1)
                'xlSheet.Cells(x * 18 + 3, 3) = "PU 产成品：" & PU_w1(x + 1)


                'xlSheet.Cells(x * 18 + 2, 4) = "反毛3产成品：" & fm3_w1(x + 1)
                'xlSheet.Cells(x * 18 + 3, 4) = "反毛4产成品：" & fm4_w1(x + 1)

                'xlSheet.Cells(x * 18 + 2, 5) = "反毛未报关：" & fm1_w2(x + 1)
                'xlSheet.Cells(x * 18 + 3, 5) = "PU 未报关：" & PU_w2(x + 1)

                'xlSheet.Cells(x * 18 + 2, 6) = "反毛3未报关：" & fm3_w2(x + 1)
                'xlSheet.Cells(x * 18 + 3, 6) = "反毛4未报关：" & fm4_w2(x + 1)


                'xlSheet.Cells(x * 18 + 2, 7) = "反毛3在产品： " & fm3_w(x + 1)
                'xlSheet.Cells(x * 18 + 3, 7) = "反毛4在产品：" & fm4_w(x + 1)

                'xlSheet.Cells(x * 18 + 2, 8) = "反毛产成品：" & fm1_w1(x + 1)
                'xlSheet.Cells(x * 18 + 3, 8) = "PU 产成品：" & PU_w1(x + 1)


                'xlSheet.Cells(x * 18 + 2, 9) = "反毛3产成品：" & fm3_w1(x + 1)
                'xlSheet.Cells(x * 18 + 3, 9) = "反毛4产成品：" & fm4_w1(x + 1)

                'xlSheet.Cells(x * 18 + 2, 18) = "反毛未报关：" & fm1_w2(x + 1)
                'xlSheet.Cells(x * 18 + 3, 18) = "PU 未报关：" & PU_w2(x + 1)

                'xlSheet.Cells(x * 18 + 2, 19) = "反毛3未报关：" & fm3_w2(x + 1)
                'xlSheet.Cells(x * 18 + 3, 19) = "反毛4未报关：" & fm4_w2(x + 1)

                xlSheet.Cells(x * 18 + 2, 1) = "反毛1在产品：" & fm1_w(x + 1)
                xlSheet.Cells(x * 18 + 3, 1) = "反毛2在产品：" & fm2_w(x + 1)

                xlSheet.Cells(x * 18 + 2, 56) = "反毛1在产品：" & fm1_w(x + 1)
                xlSheet.Cells(x * 18 + 3, 56) = "反毛2在产品：" & fm2_w(x + 1)



                xlSheet.Cells(x * 18 + 2, 2) = "反毛3在产品： " & fm3_w(x + 1)
                xlSheet.Cells(x * 18 + 3, 2) = "反毛4在产品：" & fm4_w(x + 1)
                xlSheet.Cells(x * 18 + 2, 57) = "反毛3在产品： " & fm3_w(x + 1)
                xlSheet.Cells(x * 18 + 3, 57) = "反毛4在产品：" & fm4_w(x + 1)

                xlSheet.Cells(x * 18 + 2, 3) = "反毛5在产品： " & fm5_w(x + 1)
                xlSheet.Cells(x * 18 + 3, 3) = "反毛6在产品：" & fm6_w(x + 1)
                xlSheet.Cells(x * 18 + 2, 58) = "反毛5在产品： " & fm5_w(x + 1)
                xlSheet.Cells(x * 18 + 3, 58) = "反毛6在产品：" & fm6_w(x + 1)


                xlSheet.Cells(x * 18 + 2, 4) = "PU   在产品：" & PU_w(x + 1)
                xlSheet.Cells(x * 18 + 2, 59) = "PU   在产品：" & PU_w(x + 1)


                xlSheet.Cells(x * 18 + 2, 5) = "反毛1产成品：" & fm1_w1(x + 1)
                xlSheet.Cells(x * 18 + 3, 5) = "反毛2产成品：" & fm2_w1(x + 1)
                xlSheet.Cells(x * 18 + 2, 60) = "反毛1产成品：" & fm1_w1(x + 1)
                xlSheet.Cells(x * 18 + 3, 60) = "反毛2产成品：" & fm2_w1(x + 1)


                xlSheet.Cells(x * 18 + 2, 6) = "反毛3产成品：" & fm3_w1(x + 1)
                xlSheet.Cells(x * 18 + 3, 6) = "反毛4产成品：" & fm4_w1(x + 1)
                xlSheet.Cells(x * 18 + 2, 61) = "反毛3产成品：" & fm3_w1(x + 1)
                xlSheet.Cells(x * 18 + 3, 61) = "反毛4产成品：" & fm4_w1(x + 1)


                xlSheet.Cells(x * 18 + 2, 7) = "反毛5产成品：" & fm5_w1(x + 1)
                xlSheet.Cells(x * 18 + 3, 7) = "反毛6产成品：" & fm6_w1(x + 1)
                xlSheet.Cells(x * 18 + 2, 62) = "反毛5产成品：" & fm5_w1(x + 1)
                xlSheet.Cells(x * 18 + 3, 62) = "反毛6产成品：" & fm6_w1(x + 1)



                xlSheet.Cells(x * 18 + 2, 8) = "PU   产成品：" & PU_w1(x + 1)
                xlSheet.Cells(x * 18 + 2, 63) = "PU   产成品：" & PU_w1(x + 1)




                xlSheet.Cells(x * 18 + 2, 9) = "反毛1未报关：" & fm1_w2(x + 1)
                xlSheet.Cells(x * 18 + 3, 9) = "反毛2未报关：" & fm2_w2(x + 1)
                xlSheet.Cells(x * 18 + 2, 64) = "反毛1未报关：" & fm1_w2(x + 1)
                xlSheet.Cells(x * 18 + 3, 64) = "反毛2未报关：" & fm2_w2(x + 1)


                xlSheet.Cells(x * 18 + 2, 10) = "反毛3未报关：" & fm3_w2(x + 1)
                xlSheet.Cells(x * 18 + 3, 10) = "反毛4未报关：" & fm4_w2(x + 1)

                xlSheet.Cells(x * 18 + 2, 65) = "反毛3未报关：" & fm3_w2(x + 1)
                xlSheet.Cells(x * 18 + 3, 65) = "反毛4未报关：" & fm4_w2(x + 1)


                xlSheet.Cells(x * 18 + 2, 11) = "反毛5未报关：" & fm5_w2(x + 1)
                xlSheet.Cells(x * 18 + 3, 11) = "反毛6未报关：" & fm6_w2(x + 1)

                xlSheet.Cells(x * 18 + 2, 66) = "反毛5未报关：" & fm5_w2(x + 1)
                xlSheet.Cells(x * 18 + 3, 66) = "反毛6未报关：" & fm6_w2(x + 1)


                xlSheet.Cells(x * 18 + 2, 12) = "PU   未报关：" & PU_w2(x + 1)

                xlSheet.Cells(x * 18 + 2, 67) = "PU   未报关：" & PU_w2(x + 1)



            End If


            xlSheet.Range(my_range).Select()

            dgv(x).SelectAll()


            Me.dgv(x).ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
            Me.dgv(x).RowHeadersVisible = False

            Clipboard.SetDataObject(dgv(x).GetClipboardContent())

            System.Threading.Thread.Sleep(2000)

            ' xlSheet.PasteSpecial(Format:="文本", Link:=False, DisplayAsIcon:=False)

            ' xlSheet.PasteSpecial(Format:="unicode 文字", Link:=False, DisplayAsIcon:=False)

            xlSheet.Paste()

            'xlSheet.PasteSpecial(Paste:=Microsoft.Office.Interop.Excel.XlPasteType.xlPasteValues, SkipBlanks:=False, Transpose:=False)


            my_range = "A" & 18 * x + 1 & ":A" & 18 * x + 1

            xlSheet.Range(my_range).Interior.ThemeColor = Microsoft.Office.Interop.Excel.XlThemeColor.xlThemeColorAccent4



            my_range = "bd" & 18 * x + 2 & ":Bp" & 18 * x + 3

            xlSheet.Range(my_range).Interior.ThemeColor = Microsoft.Office.Interop.Excel.XlThemeColor.xlThemeColorAccent5


            my_range = "A" & 18 * x + 4 & ":BF" & 18 * x + 4

            xlSheet.Range(my_range).Interior.ThemeColor = Microsoft.Office.Interop.Excel.XlThemeColor.xlThemeColorAccent3


            'For y = 1 To 20
            '    xlSheet.Cells(4 + 18 * x + my_index1(x), y).Font.Color = -16776961

            'Next y

            ' xlSheet.ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange, xlrange("$A$1:$O$13"), , Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes).Name = "表格1"
        Next


        xlSheet.Columns("b:i").Columns.Group
        xlSheet.Columns("M:Z").Columns.Group
        xlSheet.Columns("Ab:ah").Columns.Group
        xlSheet.Columns("Ai:bc").Columns.Group



        xlSheet.Range("A1:bf56").Select()
        xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        xlApp.Application.PrintCommunication = True
        xlSheet.PageSetup.PrintArea = ""
        xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup

            .LeftMargin = xlApp.Application.InchesToPoints(0.7)
            .RightMargin = xlApp.Application.InchesToPoints(0.7)
            .TopMargin = xlApp.Application.InchesToPoints(0.75)
            .BottomMargin = xlApp.Application.InchesToPoints(0.75)
            .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
            .FooterMargin = xlApp.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = Microsoft.Office.Interop.Excel.XlPrintLocation.xlPrintNoComments
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
            .Draft = False
            .PaperSize = Microsoft.Office.Interop.Excel.XlPaperSize.xlPaperA4
            .FirstPageNumber = Microsoft.Office.Core.XlConstants.xlAutomatic
            .Order = Microsoft.Office.Interop.Excel.XlOrder.xlDownThenOver
            .BlackAndWhite = False
            .Zoom = 100
            .PrintErrors = Microsoft.Office.Interop.Excel.XlPrintErrors.xlPrintErrorsDisplayed
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True

        End With
        'xlApp.Application.PrintCommunication = True
        xlSheet.PageSetup.PrintArea = "$A$1:$bf$56"
        xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        'xlApp.Application.PrintCommunication = True
        xlSheet.PageSetup.PrintArea = "$A$1:$bf$56"
        xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup

            .LeftMargin = xlApp.Application.InchesToPoints(0.7)
            .RightMargin = xlApp.Application.InchesToPoints(0.7)
            .TopMargin = xlApp.Application.InchesToPoints(0.75)
            .BottomMargin = xlApp.Application.InchesToPoints(0.75)
            .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
            .FooterMargin = xlApp.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = Microsoft.Office.Interop.Excel.XlPrintLocation.xlPrintNoComments
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
            .Draft = False
            .PaperSize = Microsoft.Office.Interop.Excel.XlPaperSize.xlPaperA4
            .FirstPageNumber = Microsoft.Office.Core.XlConstants.xlAutomatic
            .Order = Microsoft.Office.Interop.Excel.XlOrder.xlDownThenOver
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 0
            .PrintErrors = Microsoft.Office.Interop.Excel.XlPrintErrors.xlPrintErrorsDisplayed
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True

        End With
        ' xlApp.Application.PrintCommunication = True
        'xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        'xlApp.Application.PrintCommunication = True
        xlSheet.PageSetup.PrintArea = "$A$1:$bf$56"
        'xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup

            .LeftMargin = xlApp.Application.InchesToPoints(0.7)
            .RightMargin = xlApp.Application.InchesToPoints(0.7)
            .TopMargin = xlApp.Application.InchesToPoints(0.75)
            .BottomMargin = xlApp.Application.InchesToPoints(0.75)
            .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
            .FooterMargin = xlApp.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = Microsoft.Office.Interop.Excel.XlPrintLocation.xlPrintNoComments
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
            .Draft = False
            .PaperSize = Microsoft.Office.Interop.Excel.XlPaperSize.xlPaperA4
            .FirstPageNumber = Microsoft.Office.Core.XlConstants.xlAutomatic
            .Order = Microsoft.Office.Interop.Excel.XlOrder.xlDownThenOver
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .PrintErrors = Microsoft.Office.Interop.Excel.XlPrintErrors.xlPrintErrorsDisplayed
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True

        End With
        'xlApp.Application.PrintCommunication = True
        'xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        'xlApp.Application.PrintCommunication = True
        xlSheet.PageSetup.PrintArea = "$A$1:$bf$56"
        'xlApp.Application.PrintCommunication = False
        With xlSheet.PageSetup

            .LeftMargin = xlApp.Application.InchesToPoints(0.25)
            .RightMargin = xlApp.Application.InchesToPoints(0.25)
            .TopMargin = xlApp.Application.InchesToPoints(0.75)
            .BottomMargin = xlApp.Application.InchesToPoints(0.75)
            .HeaderMargin = xlApp.Application.InchesToPoints(0.3)
            .FooterMargin = xlApp.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = Microsoft.Office.Interop.Excel.XlPrintLocation.xlPrintNoComments
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
            .Draft = False
            .PaperSize = Microsoft.Office.Interop.Excel.XlPaperSize.xlPaperA4
            .FirstPageNumber = Microsoft.Office.Core.XlConstants.xlAutomatic
            .Order = Microsoft.Office.Interop.Excel.XlOrder.xlDownThenOver
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .PrintErrors = Microsoft.Office.Interop.Excel.XlPrintErrors.xlPrintErrorsDisplayed
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True

        End With
        'xlApp.Application.PrintCommunication = True

        xlSheet.Columns("A:bp").EntireColumn.AutoFit
        xlSheet.Rows("1:60").Entirerow.AutoFit




        xlApp = Nothing




















    End Sub

    Private Sub Frm_BG_sum_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

        'cmd.Connection = conn

        'sql = "DELETE FROM RT_BG_STOCK_SAVE "
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()




        'sql = "insert into rt_bg_stock_save(date,InProcessFM1,InProcessFM2,InProcessFM3,
        '                                       InProcessFM31,InProcessFM32,InProcessFM33,
        '                                       InProcessFM41,InProcessFM42,InProcessFM43,
        '                                       InProcessPU1,InProcessPU2,InProcessPU3,
        '                                    FinishFM1,FinishFM2,FinishFM3,
        '                                    FinishFM31,FinishFM32,FinishFM33,
        '                                    FinishFM41,FinishFM42,FinishFM43,
        '                                    FinishPU1,FinishPU2,FinishPU3,
        '                                    SentFM1,SentFM2,SentFM3,
        '                                    SentFM31,SentFM32,SentFM33,
        '                                    SentFM41,SentFM42,SentFM43,
        '                                    SentPU1,SentPU2,SentPU3) values('" & Now & "'," &
        '                  Val(fm_w(1) / 0.21 * 0.37) & "," & Val(fm_w(2) / 0.21 * 0.37) & "," & Val(fm_w(3) / 0.21 * 0.37) & "," &
        '                  Val(fm3_w(1) / 0.21 * 0.37) & "," & Val(fm3_w(2) / 0.21 * 0.37) & "," & Val(fm3_w(3) / 0.21 * 0.37) & "," &
        '                  Val(fm4_w(1) / 0.21 * 0.37) & "," & Val(fm4_w(2) / 0.21 * 0.37) & "," & Val(fm4_w(3) / 0.21 * 0.37) & "," &
        '                  Val(PU_w(1) / 0.21 * 0.37) & "," & Val(PU_w(2) / 0.21 * 0.37) & "," & Val(PU_w(3) / 0.21 * 0.37) & "," &
        '            Val(fm_w1(1)) & "," & Val(fm_w1(2)) & "," & Val(fm_w1(3)) & "," &
        '            Val(fm3_w1(1)) & "," & Val(fm3_w1(2)) & "," & Val(fm3_w1(3)) & "," &
        '            Val(fm4_w1(1)) & "," & Val(fm4_w1(2)) & "," & Val(fm4_w1(3)) & "," &
        '            Val(PU_w1(1)) & "," & Val(PU_w1(2)) & "," & Val(PU_w1(3)) & "," &
        '            Val(fm_w2(1)) & "," & Val(fm_w2(2)) & "," & Val(fm_w2(3)) & "," &
        '            Val(fm3_w2(1)) & "," & Val(fm3_w2(2)) & "," & Val(fm3_w2(3)) & "," &
        '            Val(fm4_w2(1)) & "," & Val(fm4_w2(2)) & "," & Val(fm4_w2(3)) & "," &
        '            Val(PU_w2(1)) & "," & Val(PU_w2(2)) & "," & Val(PU_w2(3)) & ")"


        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()













    End Sub

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

        If Button4.Text = "-" Then

            For z As Integer = 17 To 36

                dgv(0).Columns(z).Visible = False
                dgv(1).Columns(z).Visible = False

            Next

            Button4.Text = "+"
        Else

            For z As Integer = 17 To 36

                dgv(0).Columns(z).Visible = True
                dgv(1).Columns(z).Visible = True

            Next

            Me.Button4.Text = "-"

        End If

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click  '------单耗




        If Button5.Text = "-" Then

            For z As Integer = 2 To 11

                dgv(0).Columns(z).Visible = False
                dgv(1).Columns(z).Visible = False

            Next

            Button5.Text = "+"
            Else

            For z As Integer = 2 To 11

                dgv(0).Columns(z).Visible = True
                dgv(1).Columns(z).Visible = True

            Next

            Me.Button5.Text = "-"

            End If







    End Sub

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


        If Button6.Text = "-" Then

            For z As Integer = 56 To 82

                dgv(0).Columns(z).Visible = False
                dgv(1).Columns(z).Visible = False

            Next

            Button6.Text = "+"
        Else

            For z As Integer = 56 To 82

                dgv(0).Columns(z).Visible = True
                dgv(1).Columns(z).Visible = True

            Next

            Me.Button6.Text = "-"

        End If


    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click



        my_w = Split(TextBox1.Text, ",")    '反毛在产品1
        fm5_w(1) = my_w(0) / 0.37 * 0.21
        fm6_w(1) = my_w(1) / 0.37 * 0.21
        fm7_w(1) = my_w(2) / 0.37 * 0.21
        fm8_w(1) = my_w(3) / 0.37 * 0.21

        my_w = Split(TextBox2.Text, ",")     '反毛在产品2
        fm5_w(2) = my_w(0) / 0.37 * 0.21
        fm6_w(2) = my_w(1) / 0.37 * 0.21
        fm7_w(2) = my_w(2) / 0.37 * 0.21
        fm8_w(2) = my_w(3) / 0.37 * 0.21

        my_w = Split(TextBox11.Text, ",")    '贴膜在产品1
        PU3_w(1) = my_w(0) / 0.37 * 0.21
        PU4_w(1) = my_w(1) / 0.37 * 0.21
        PU5_w(1) = my_w(2) / 0.37 * 0.21
        PU7_w(1) = my_w(3) / 0.37 * 0.21

        my_w = Split(TextBox10.Text, ",")     '贴膜在产品2
        PU3_w(2) = my_w(0) / 0.37 * 0.21
        PU4_w(2) = my_w(1) / 0.37 * 0.21
        PU5_w(2) = my_w(2) / 0.37 * 0.21
        PU7_w(2) = my_w(3) / 0.37 * 0.21



        my_w1 = Split(TextBox4.Text, ",")  '产成品1

        fm5_w1(1) = my_w1(0)
        fm6_w1(1) = my_w1(1)
        fm7_w1(1) = my_w1(2)
        fm8_w1(1) = my_w1(3)

        my_w1 = Split(TextBox5.Text, ",") '产成品2
        fm5_w1(2) = my_w1(0)
        fm6_w1(2) = my_w1(1)
        fm7_w1(2) = my_w1(2)
        fm8_w1(2) = my_w1(3)


        my_w1 = Split(TextBox12.Text, ",")  '贴膜产成品1

        PU3_w1(1) = my_w1(0)
        PU4_w1(1) = my_w1(1)
        PU5_w1(1) = my_w1(2)
        PU7_w1(1) = my_w1(3)


        my_w1 = Split(TextBox13.Text, ",") '贴膜产成品2
        PU3_w1(2) = my_w1(0)
        PU4_w1(2) = my_w1(1)
        PU5_w1(2) = my_w1(2)
        PU7_w1(2) = my_w1(3)



        my_w2 = Split(TextBox7.Text, ",")  '已送貨1
        fm5_w2(1) = my_w2(0)
        fm6_w2(1) = my_w2(1)
        fm7_w2(1) = my_w2(2)
        fm8_w2(1) = my_w2(3)

        my_w2 = Split(TextBox8.Text, ",") '已送貨2
        fm5_w2(2) = my_w2(0)
        fm6_w2(2) = my_w2(1)
        fm7_w2(2) = my_w2(2)
        fm8_w2(2) = my_w2(3)


        my_w2 = Split(TextBox16.Text, ",")  '贴膜已送貨1
        PU3_w2(1) = my_w2(0)
        PU4_w2(1) = my_w2(1)
        PU5_w2(1) = my_w2(2)
        PU7_w2(1) = my_w2(3)

        my_w2 = Split(TextBox14.Text, ",") '贴膜已送貨2
        PU3_w2(2) = my_w2(0)
        PU4_w2(2) = my_w2(1)
        PU5_w2(2) = my_w2(2)
        PU7_w2(2) = my_w2(3)




        cmd.Connection = conn


        sql = "select count(*) from rt_bg_stock_save where date='" & String.Format("{0:d}", dtp.Value) & "'"
        cmd.CommandText = sql

        If cmd.ExecuteScalar >= 1 Then


            Dim my_a As String

            my_a = MsgBox("数据已存在, 是否覆盖?", vbYesNo)


            If my_a = vbYes Then

                sql = "DELETE FROM RT_BG_STOCK_SAVE where date='" & String.Format("{0:d}", dtp.Value) & "'"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()




            ElseIf my_a = vbNo Then
                MsgBox("存档未存档")
                Exit Sub


            End If





        Else


            '   MsgBox("")


        End If








        'sql = "DELETE FROM RT_BG_STOCK_SAVE "
        'cmd.CommandText = sql
        'cmd.ExecuteNonQuery()




        sql = "insert into rt_bg_stock_save(date,InProcessFM15,InProcessFM16,InProcessFM17,InProcessFM18,
                                                 InProcessFM25,InProcessFM26,InProcessFM27,InProcessFM28,
                                                 InProcessPU13,InProcessPU14,InProcesspu15,InProcesspu12,
                                                 InProcessPU23,InProcessPU24,InProcessPU25,InProcessPU22,
                                                 FinishFM15,FinishFM16,FinishFM17,FinishFM18,
                                                 FinishFM25,FinishFM26,FinishFM27,FinishFM28,
                                                 FinishPU13,FinishPU14,FinishPU15,FinishPU12,
                                                 FinishPU23,FinishPU24,FinishPU25,FinishPU22,
                                                 SentFM15,SentFM16,SentFM17,SentFM18,
                                                 SentFM25,SentFM26,SentFM27,SentFM28,
                                                 SentPU13,SentPU14,SENTPU15,SentPU12,
                                                 SentPU23,SentPU24,SENTPU25,SentPU22) values('" & String.Format("{0:d}", dtp.Value) & "'," &
Val(fm5_w(1) / 0.21 * 0.37) & "," & Val(fm6_w(1) / 0.21 * 0.37) & "," & Val(fm7_w(1) / 0.21 * 0.37) & "," & Val(fm8_w(1) / 0.21 * 0.37) & "," &
Val(fm5_w(2) / 0.21 * 0.37) & "," & Val(fm6_w(2) / 0.21 * 0.37) & "," & Val(fm7_w(2) / 0.21 * 0.37) & "," & Val(fm8_w(2) / 0.21 * 0.37) & "," &
Val(PU3_w(1) / 0.21 * 0.37) & "," & Val(PU4_w(1) / 0.21 * 0.37) & "," & Val(PU5_w(1) / 0.21 * 0.37) & "," & Val(PU7_w(1) / 0.21 * 0.37) & "," &
Val(PU3_w(2) / 0.21 * 0.37) & "," & Val(PU4_w(2) / 0.21 * 0.37) & "," & Val(PU5_w(2) / 0.21 * 0.37) & "," & Val(PU7_w(2) / 0.21 * 0.37) & "," &
Val(fm5_w1(1)) & "," & Val(fm6_w1(1)) & "," & Val(fm7_w1(1)) & "," & Val(fm8_w1(1)) & "," &
Val(fm5_w1(2)) & "," & Val(fm6_w1(2)) & "," & Val(fm7_w1(2)) & "," & Val(fm8_w1(2)) & "," &
Val(PU3_w1(1)) & "," & Val(PU4_w1(1)) & "," & Val(PU5_w1(1)) & "," & Val(PU7_w1(1)) & "," &
Val(PU3_w1(2)) & "," & Val(PU4_w1(2)) & "," & Val(PU5_w1(2)) & "," & Val(PU7_w1(2)) & "," &
Val(fm5_w2(1)) & "," & Val(fm6_w2(1)) & "," & Val(fm7_w2(1)) & "," & Val(fm8_w2(1)) & "," &
Val(fm5_w2(2)) & "," & Val(fm6_w2(2)) & "," & Val(fm7_w2(2)) & "," & Val(fm8_w2(2)) & "," &
Val(PU3_w2(1)) & "," & Val(PU4_w2(1)) & "," & Val(PU5_w2(1)) & "," & Val(PU7_w2(1)) & "," &
Val(PU3_w2(2)) & "," & Val(PU4_w2(2)) & "," & Val(PU5_w2(2)) & "," & Val(PU7_w2(2)) & ")"


        cmd.CommandText = sql
        cmd.ExecuteNonQuery()
        MsgBox("存档成功")

    End Sub

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


        If Button7.Text = "-" Then

            dgv(0).Columns(29).Visible = False
            dgv(0).Columns(30).Visible = False
            dgv(0).Columns(31).Visible = False
            dgv(0).Columns(32).Visible = False
            dgv(0).Columns(33).Visible = False
            dgv(0).Columns(34).Visible = False
            dgv(0).Columns(35).Visible = False


            dgv(1).Columns(29).Visible = False
            dgv(1).Columns(30).Visible = False
            dgv(1).Columns(31).Visible = False
            dgv(1).Columns(32).Visible = False
            dgv(1).Columns(33).Visible = False
            dgv(1).Columns(34).Visible = False
            dgv(1).Columns(35).Visible = False


            Button7.Text = "+"
        Else

            dgv(0).Columns(29).Visible = True
            dgv(0).Columns(30).Visible = True
            dgv(0).Columns(31).Visible = True
            dgv(0).Columns(32).Visible = True
            dgv(0).Columns(33).Visible = True
            dgv(0).Columns(34).Visible = True
            dgv(0).Columns(35).Visible = True


            dgv(1).Columns(29).Visible = True
            dgv(1).Columns(30).Visible = True
            dgv(1).Columns(31).Visible = True
            dgv(1).Columns(32).Visible = True
            dgv(1).Columns(33).Visible = True
            dgv(1).Columns(34).Visible = True
            dgv(1).Columns(35).Visible = True



            Button7.Text = "-"

        End If










    End Sub

    Private Sub dtp_ValueChanged(sender As Object, e As EventArgs) Handles dtp.ValueChanged




        sql = "SELECT   * FROM RT_BG_STOCK_SAVE where date='" & String.Format("{0:d}", dtp.Value) & "'"
        cmd.CommandText = sql
        Dim DR As SqlDataReader

        DR = cmd.ExecuteReader

        If DR.Read() Then

            TextBox1.Text = DR("INPROCESSFM15") & "," & DR("INPROCESSFM16") & "," & DR("INPROCESSFM17") & "," & DR("INPROCESSFM18")
            TextBox2.Text = DR("INPROCESSFM25") & "," & DR("INPROCESSFM26") & "," & DR("INPROCESSFM27") & "," & DR("INPROCESSFM28")

            TextBox4.Text = DR("FinishFM15") & "," & DR("FinishFM16") & "," & DR("FinishFM17") & "," & DR("FinishFM18")
            TextBox5.Text = DR("FinishFM25") & "," & DR("FinishFM26") & "," & DR("FinishFM27") & "," & DR("FinishFM28")

            TextBox7.Text = DR("sentFM15") & "," & DR("sentFM16") & "," & DR("sentFM17") & "," & DR("sentFM18")
            TextBox8.Text = DR("sentFM25") & "," & DR("sentFM26") & "," & DR("sentFM27") & "," & DR("sentFM28")



            TextBox11.Text = DR("INPROCESSPU13") & "," & DR("INPROCESSPU14") & "," & DR("INPROCESSPU15") & "," & DR("INPROCESSPU12")
            TextBox10.Text = DR("INPROCESSPU23") & "," & DR("INPROCESSPU24") & "," & DR("INPROCESSPU25") & "," & DR("INPROCESSPU22")




            TextBox12.Text = DR("FinishPU13") & "," & DR("FinishPU14") & "," & DR("FinishPU15") & "," & DR("FinishPU12")
            TextBox13.Text = DR("FinishPU23") & "," & DR("FinishPU24") & "," & DR("FinishPU25") & "," & DR("FinishPU22")


            TextBox16.Text = DR("sentPU13") & "," & DR("sentPU14") & "," & DR("sentPU15") & "," & DR("sentPU12")
            TextBox14.Text = DR("sentPU23") & "," & DR("sentPU24") & "," & DR("sentPU25") & "," & DR("sentPU12")

            DateTimePicker2.Value = DR("date")

        Else


        End If

        DR.Close()







    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

    End Sub

    Private Sub DGV_IN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_IN.CellContentClick

    End Sub
End Class