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

Imports System.Data.SqlClient
Imports System.Reflection
Imports Microsoft.Office.Interop.Excel.XlPaperSize
Imports Microsoft.Office.Interop.Excel.XlPageOrientation
Imports Microsoft.Office.Interop.Excel.XlOrder
Imports Microsoft.Office.Interop.Excel.XlPrintErrors
Imports Microsoft.Office.Core.XlHAlign
Public Class Frm_BG_FM_MEASURE
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim sql As String
    Dim colorArray(10) As Color
    Dim conn As New SqlConnection
    Private Sub Frm_BG_FM_MEASURE_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' Me.MdiParent = FrmMDI


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


        Dim DT1 As New DataTable
        Dim DT2 As New DataTable
        Dim DT3 As New DataTable

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn








    End Sub

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

        Dim dt As New DataTable
        sql = "select cust as 客户 from rt_ship_detail where date between '" & dtp1.Value & "' And '" & dtp2.Value & "' group by cust"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)


        Dim CheckBoxColumn As New DataGridViewCheckBoxColumn()

        CheckBoxColumn.Name = "选取"





        '    DataGridView1.Columns("") = CheckBoxCell;
        'this.dataGridView1[0, 2].Value = True;
        '    dt.Columns.Add("")


        Dgv_Cust.DataSource = dt
        Dgv_Cust.Columns.Insert（1, CheckBoxColumn）

        Dgv_Cust.Columns(1).Width = 40

        Dgv_Cust.Columns(0).Width = 150



        sql = "SELECT   RT_MEASURE_DAILY.date as 日期, CAST(SUM(RT_MEASURE_DAILY.SF) AS numeric(10, 1)) AS 尺数, RT_RETAN_RECORD.THICKNESS AS 厚度, CASE WHEN thickness = '1.24' THEN CAST(SUM(RT_MEASURE_DAILY.SF / 10.4) AS numeric(10, 1))              ELSE CAST(SUM(RT_MEASURE_DAILY.SF) / 9.6 AS numeric(10, 1)) END AS 重量 FROM      RT_MEASURE_DAILY INNER JOIN                 RT_RETAN_RECORD ON RT_MEASURE_DAILY.CARD = RT_RETAN_RECORD.CARD where rt_measure_daily.date between '" & dtp1.Value & "' And '" & dtp2.Value & "' AND 
                (RT_RETAN_RECORD.CUST NOT LIKE N'%许宝%') AND (RT_RETAN_RECORD.CUST NOT LIKE N'%极路%') AND 
                (RT_RETAN_RECORD.CUST NOT LIKE N'%志捷%') AND (RT_RETAN_RECORD.CUST NOT LIKE N'%广东%')AND 
                (RT_RETAN_RECORD.CUST NOT LIKE N'%三元%') GROUP BY RT_MEASURE_DAILY.DATE, RT_RETAN_RECORD.THICKNESS  ORDER BY RT_MEASURE_DAILY.DATE DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        dt = New DataTable
        da.Fill(dt)






        Dim myDataRow As DataRow
        myDataRow = dt.NewRow


        ' myDataRow(0) = "合计"
        myDataRow(1) = dt.Compute("sum(尺数)", "")

        dt.Rows.InsertAt(myDataRow, 0)


















        dgv_FM.DataSource = dt

        sql = "SELECT   date AS 量尺日期, CAST(SUM(sf) AS numeric(10, 1)) AS 尺数, CAST(SUM(sf) / 9.2 AS numeric(10, 1)) AS 重量 FROM      RT_PU_MEASURE2_TEMP where date between '" & dtp1.Value & "' And '" & dtp2.Value & "' GROUP BY date ORDER BY 量尺日期 DESC"


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



        myDataRow = dt.NewRow


        'myDataRow(0) = "合计"
        myDataRow(1) = dt.Compute("sum(尺数)", "")

        dt.Rows.InsertAt(myDataRow, 0)


        dgv_PU.DataSource = dt



    End Sub
End Class