HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/03、化料管理/FrmDye.vb

Imports System.Data.SqlClient
Public Class FrmDye
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter

    Dim sql As String
    Dim conn As New SqlConnection
    Private Sub FrmDye_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim conn As New SqlConnection
        Dim DT1 As New DataTable
        Dim DT2 As New DataTable
        Dim DT3 As New DataTable

        Me.MdiParent = FrmMDI

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn


        sql = "SELECT          RT_SYS_CHEM_MAIN.name AS 物料, RT_SYS_CHEM_MAIN.price_usd AS 美金,  " &
"                             RT_SYS_CHEM_MAIN.CLASS1 AS 分类, RT_SYS_CHEM_MAIN.new_price AS 新价, " &
"                             CAST(SUM(RT_SYS_CHEM_OUT.WEIGHT) AS numeric(10, 0)) AS 用量,        " &
"                             RT_SYS_CHEM_MAIN.supplier AS 供应商                                  " &
" FROM              RT_SYS_CHEM_MAIN LEFT OUTER JOIN                                              " &
"                             RT_SYS_CHEM_OUT ON RT_SYS_CHEM_MAIN.name = RT_SYS_CHEM_OUT.NAME     " &
" WHERE          (RT_SYS_CHEM_MAIN.CLASS1 = '染料')                                               " &
" GROUP BY   RT_SYS_CHEM_MAIN.price_usd, RT_SYS_CHEM_MAIN.new_price, RT_SYS_CHEM_MAIN.name,       " &
"                             RT_SYS_CHEM_MAIN.supplier, RT_SYS_CHEM_MAIN.CLASS1                  " &
" ORDER BY   用量 DESC"


        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)

        dgv1.DataSource = DT1
        dgv1.Columns(0).Width = 200

    End Sub
End Class