Option Strict Off Public Class 一般物料請購單核准 Private ReadOnly ds, ds1, ds3 As New DataSet Dim 已超出 As Boolean Private Sub Set_使用者清單() 明細_dgv.DataSource = Nothing : ds.Clear() 明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 明細_dgv.ColumnHeadersHeight = 25 明細_dgv.AllowUserToAddRows = False 明細_dgv.RowTemplate.Height = 35 SQL_一般物料請購單明細表1() da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close() 明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 200 : 明細_dgv.Columns(3).FillWeight = 200 明細_dgv.Columns(5).FillWeight = 80 : 明細_dgv.Columns(6).FillWeight = 80 : 明細_dgv.Columns(7).FillWeight = 80 : 明細_dgv.Columns(8).FillWeight = 305 明細_dgv.Columns(4).FillWeight = 200 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" 明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter 明細_dgv.Columns("項次").ReadOnly = True : 明細_dgv.Columns("金額").ReadOnly = True 總金額_tb.Text = "0.00" For i As Integer = 0 To 明細_dgv.Rows.Count - 1 總金額_tb.Text = Val(總金額_tb.Text) + 明細_dgv.Rows(i).Cells("金額").Value Next i 總金額_tb.Text = Format(Val(總金額_tb.Text), "#,##0.00") End Sub Private Sub Set_清單1() 未審核_dgv.DataSource = Nothing : ds1.Clear() 未審核_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 未審核_dgv.ColumnHeadersHeight = 25 未審核_dgv.AllowUserToAddRows = False SQL_未審核清單() da.Fill(ds1) : 未審核_dgv.DataSource = ds1.Tables(0) : conn.Close() 未審核_dgv.Columns(0).FillWeight = 150 : 未審核_dgv.Columns(1).FillWeight = 115 : 未審核_dgv.Columns(2).FillWeight = 115 未審核_dgv.Columns(3).Visible = False : 未審核_dgv.Columns(4).Visible = False End Sub Private Sub Set_清單3() 作廢_dgv.DataSource = Nothing : ds3.Clear() 作廢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 作廢_dgv.ColumnHeadersHeight = 25 作廢_dgv.AllowUserToAddRows = False SQL_未核准清單() da.Fill(ds3) : 作廢_dgv.DataSource = ds3.Tables(0) : conn.Close() 作廢_dgv.Columns(0).FillWeight = 150 : 作廢_dgv.Columns(1).FillWeight = 115 : 作廢_dgv.Columns(2).FillWeight = 115 作廢_dgv.Columns(3).Visible = False : 作廢_dgv.Columns(4).Visible = False End Sub Private Sub Set_日期格式轉換() DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "hh:mm:ss") : DTP1 = Format(Today(), "yyyyMMdd") End Sub Private Sub 一般物料請購單核准_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True Set_清單1() : Set_清單3() 明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) 未審核_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) 作廢_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) End Sub Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未審核_dgv.CellClick If e.RowIndex = -1 Then : Else 一般物料請購單號_tb.Text = 未審核_dgv(0, e.RowIndex).Value.ToString 申請人_tb.Text = 未審核_dgv(1, e.RowIndex).Value.ToString 申請日期_dtp.Value = 未審核_dgv(2, e.RowIndex).Value.ToString 請購單核准_bt.Enabled = True : 請購單作廢_bt.Enabled = True : Set_使用者清單() End If End Sub Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 作廢_dgv.CellClick If e.RowIndex = -1 Then : Else 一般物料請購單號_tb.Text = 作廢_dgv(0, e.RowIndex).Value.ToString 申請人_tb.Text = 作廢_dgv(1, e.RowIndex).Value.ToString 申請日期_dtp.Value = 作廢_dgv(2, e.RowIndex).Value.ToString 請購單核准_bt.Enabled = False : 請購單作廢_bt.Enabled = False : Set_使用者清單() End If End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 請購單核准_bt.Click Set_日期格式轉換() If 一般物料請購單號_tb.Text = "" Then MsgBox("沒有選擇請購單據") Else SQL_一般物料核准() : conn.Close() MsgBox("單據 " & 一般物料請購單號_tb.Text & " 核准完成") Set_清單1() : Set_清單3() 一般物料請購單號_tb.Text = "" : 總金額_tb.Text = "" : 申請人_tb.Text = "" 明細_dgv.DataSource = Nothing : ds.Clear() End If End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 請購單作廢_bt.Click Set_日期格式轉換() If 一般物料請購單號_tb.Text = "" Then MsgBox("沒有選擇請購單據") Else Dim aa As MsgBoxResult aa = MsgBox("確定要作廢該筆資料?", MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then SQL_一般物料作廢() : conn.Close() MsgBox("單據 " & 一般物料請購單號_tb.Text & " 已作廢") Set_清單1() : Set_清單3() 一般物料請購單號_tb.Text = "" : 總金額_tb.Text = "" : 申請人_tb.Text = "" 明細_dgv.DataSource = Nothing : ds.Clear() End If End If End Sub Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp If 明細_dgv.SelectedCells.Count = 1 Then 已超出 = False End If If 明細_dgv.SelectedCells.Count > 0 Then '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算 If 明細_dgv.SelectedCells(0).ColumnIndex = 5 Or 明細_dgv.SelectedCells(0).ColumnIndex = 7 Then If 已超出 = False Then Dim x As Double = 0 For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1 '明細_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。 x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value) Next i '將計算好的資料放置到指定的控件中 WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0") Else WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") End If Else 已超出 = True WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") End If End If End Sub End Class