HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/07、金蝶/Frm_00_k3_realtime_stock.vb

Public Class Frm_00_k3_realtime_stock
    Private Sub Frm_00_k3_realtime_stock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmMDI : Me.WindowState = 2 : Me.AutoScroll = True
    End Sub
    Private Sub Frm_00_k3_realtime_stock_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Dim ds1 As New DataSet
        主表_dgv.DataSource = Nothing : ds1.Clear()
        主表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表_dgv.ColumnHeadersHeight = 30 : 主表_dgv.AllowUserToAddRows = False : 主表_dgv.RowTemplate.Height = 25
        SQL_即時庫存主表()
        da.Fill(ds1) : 主表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        主表_dgv.Columns(1).FillWeight = 200
        主表_dgv.Columns("即时库存").DefaultCellStyle.Format = "#,##0"
        主表_dgv.Columns("即时库存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    End Sub
    Private Sub 主表_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 主表_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 讀取明細(e.RowIndex) : End If
    End Sub
    Private Sub 讀取明細(位置 As Integer)
        Dim ds1 As New DataSet
        明細_dgv.DataSource = Nothing : ds1.Clear()
        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細_dgv.ColumnHeadersHeight = 30 : 明細_dgv.AllowUserToAddRows = False : 明細_dgv.RowTemplate.Height = 25
        SQL_即時庫存明細(主表_dgv.Rows(位置).Cells("物料代码").Value)
        da.Fill(ds1) : 明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
        明細_dgv.Columns(0).FillWeight = 200
        明細_dgv.Columns("即时库存").DefaultCellStyle.Format = "#,##0"
        明細_dgv.Columns("即时库存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        If 關鍵字_tb.Text = "" Then : MsgBox("請輸入關鍵字!!") : Else : 查詢DGV中的關鍵字_自動(主表_dgv, 關鍵字_tb) : 讀取明細(lastFoundRowIndex) : End If
    End Sub
    Private Sub 關鍵字_tb_TextChanged(sender As Object, e As EventArgs) Handles 關鍵字_tb.TextChanged
        lastFoundRowIndex = -1 : lastFoundColIndex = -1
    End Sub
    Private Sub 關鍵字_tb_KeyDown(sender As Object, e As KeyEventArgs) Handles 關鍵字_tb.KeyDown
        If e.KeyCode = Keys.Enter Then : 查詢_bt.PerformClick() : End If
    End Sub
End Class