Option Strict Off Public Class 生產入庫 ReadOnly ds As New DataSet Private Sub Set_清單() DataGridView1.DataSource = Nothing : ds.Clear() DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing DataGridView1.ColumnHeadersHeight = 25 DataGridView1.AllowUserToAddRows = False SQL_生產入庫清單() da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 110 : DataGridView1.Columns(2).FillWeight = 80 : DataGridView1.Columns(3).FillWeight = 200 DataGridView1.Columns(4).FillWeight = 100 : DataGridView1.Columns(5).FillWeight = 100 : DataGridView1.Columns(6).FillWeight = 60 : DataGridView1.Columns(7).FillWeight = 100 DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).FillWeight = 40 : DataGridView1.Columns(11).FillWeight = 60 DataGridView1.Columns(12).Visible = False : DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False : DataGridView1.Columns(15).Visible = False DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).FillWeight = 40 : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).FillWeight = 80 DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0" DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(3).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True : DataGridView1.Columns(7).ReadOnly = True : DataGridView1.Columns(8).ReadOnly = True DataGridView1.Columns(9).ReadOnly = True : DataGridView1.Columns(11).ReadOnly = True : DataGridView1.Columns(17).ReadOnly = True : DataGridView1.Columns(19).ReadOnly = True For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = False : Next End Sub Private Sub 生產入庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True Set_清單() End Sub Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick If e.RowIndex = -1 Then : Else TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("單據編號").Value End If End Sub Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = DataGridView1.Rows.Count - 1 Then : Exit Sub Else If DataGridView1(1, e.RowIndex).Value.ToString <> DataGridView1(1, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0) Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub End If End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For i As Integer = 0 To DataGridView1.Rows.Count - 1 If TextBox3.Text = DataGridView1.Rows(i).Cells("單據編號").Value.ToString Then DataGridView1.Rows(i).Cells("選擇").Value = True End If Next i End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = True : Next i End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = False : Next i End Sub Private Sub Set_日期格式轉換() If CheckBox1.Checked = False Then : DTP = Format(Today(), "yyyy/MM/dd") Else : DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd") : End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Set_日期格式轉換() For i As Integer = 0 To DataGridView1.Rows.Count - 1 資料數 = DataGridView1.Rows.Count : MyModule1.進度條() If DataGridView1.Rows(i).Cells("選擇").Value = True Then PA1 = DataGridView1.Rows(i).Cells("資料流水號").Value SQL_生產入庫_倉儲明細表_組裝入庫確認() : conn.Close() PA1 = DataGridView1.Rows(i).Cells("資料流水號").Value : PA2 = DataGridView1.Rows(i).Cells("單據編號").Value : PA3 = DataGridView1.Rows(i).Cells("供應商編號").Value PA4 = DataGridView1.Rows(i).Cells("料號").Value : NU1 = DataGridView1.Rows(i).Cells("金額").Value : NU2 = DataGridView1.Rows(i).Cells("匯率").Value : NU3 = 0 NU4 = DataGridView1.Rows(i).Cells("準備入庫數量").Value : PA5 = "銷售出庫" : PA6 = DataGridView1.Rows(i).Cells("指定生產").Value : PA7 = DataGridView1.Rows(i).Cells("客戶編號").Value NU5 = DataGridView1.Rows(i).Cells("售價").Value : PA8 = DataGridView1.Rows(i).Cells("倉名編號").Value : PA9 = DataGridView1.Rows(i).Cells("客戶交期").Value SQL_倉儲明細表新增() : conn.Close() End If Next : Set_清單() : MsgBox("入庫完成。") : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------ Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click Set_清單() : DateTimePicker1.Value = Today() End Sub Private Sub 依據單號全部選擇ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 依據單號全部選擇ToolStripMenuItem.Click Me.Button1.PerformClick() End Sub Private Sub 全部選擇ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 全部選擇ToolStripMenuItem.Click Me.Button13.PerformClick() End Sub Private Sub 全部取消ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 全部取消ToolStripMenuItem.Click Me.Button12.PerformClick() End Sub Private Sub 確認收料入庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 確認收料入庫ToolStripMenuItem.Click Me.Button4.PerformClick() End Sub End Class