HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/99、未分類/Frm_PU_CEHM_DETAIL.vb

Imports System.Data.SqlClient
Imports System.Reflection
Public Class Frm_PU_CEHM_DETAIL
    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_PU_CEHM_DETAIL_Load(sender As Object, e As EventArgs) Handles MyBase.Load






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

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn

        sql = " Select * from rt_pu_measure2 where serial='" & Frm_PU.dgv1.Rows(Frm_PU.dgv1.CurrentCell.RowIndex).Cells("serial").Value & "'"
        cmd.CommandText = sql
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)
        ' DGV_use.DataSource = DT1  '----领料


        sql = "SELECT          YEAR(RT_CHEM_STOCK_MONTH2.date) AS 年, MONTH(RT_CHEM_STOCK_MONTH2.date) AS 月,          " &
"                             CAST(SUM(RT_CHEM_STOCK_MONTH2.stock1 * RT_SYS_CHEM_MAIN.price)                           " &
"                             + SUM(RT_CHEM_STOCK_MONTH2.stock2 * RT_SYS_CHEM_MAIN.price)                              " &
"                             + SUM(RT_CHEM_STOCK_MONTH2.stock3 * RT_SYS_CHEM_MAIN.price) AS numeric(10, 0)) AS 库存金额,  " &
"                             CAST(SUM(RT_CHEM_STOCK_MONTH2.stock1) + SUM(RT_CHEM_STOCK_MONTH2.stock2)                 " &
"                             + SUM(RT_CHEM_STOCK_MONTH2.stock3) AS numeric(10, 0)) AS 库存重量                            " &
" FROM              RT_CHEM_STOCK_MONTH2 LEFT OUTER JOIN                                                               " &
"                             RT_SYS_CHEM_MAIN ON RT_CHEM_STOCK_MONTH2.name = RT_SYS_CHEM_MAIN.name                    " &
" GROUP BY   YEAR(RT_CHEM_STOCK_MONTH2.date), MONTH(RT_CHEM_STOCK_MONTH2.date)                                         " &
" ORDER BY   年 DESC, 月 DESC"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT2)
        ' dgv_stock.DataSource = DT2 '---盘点库存







    End Sub
End Class