GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/06.業務管理系統/公廟/排序選擇.vb

Public Class 排序選擇
    Private Sub 排序選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_清單1()
    End Sub
    Private Sub Set_清單1()
        Dim ds1 As New DataSet : 控制表_dgv.DataSource = Nothing : ds1.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25 : 控制表_dgv.AllowUserToAddRows = False : 控制表_dgv.RowTemplate.Height = 25
        SQL_燈價格()
        da.Fill(ds1) : 控制表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
        控制表_dgv.RowsDefaultCellStyle.Font = newFont
        控制表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        控制表_dgv.Columns(0).ReadOnly = True : 控制表_dgv.Columns(1).ReadOnly = True : 控制表_dgv.Columns(2).Visible = False
        控制表_dgv.Columns(3).Visible = False : 控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).ReadOnly = True
    End Sub
    Private Sub 控制表_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellDoubleClick
        ' 檢查是否點擊了指定的欄位，這裡假設該欄位的索引為 5
        If e.ColumnIndex = 5 AndAlso e.RowIndex >= 0 Then
            Dim cellValue As String = 控制表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()

            ' 檢查儲存格的值，根據不同的值進行處理
            If cellValue = "順排" Then
                控制表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "逆排"
            ElseIf cellValue = "逆排" Then
                控制表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "順排"
            End If
        End If
    End Sub

    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            PA9 = 控制表_dgv("年度", i).Value.ToString : PA7 = 控制表_dgv("燈種", i).Value.ToString
            PA8 = 控制表_dgv("排序", i).Value.ToString : SQL_點燈_排序修改()
        Next : Set_清單1() : MsgBox("存檔完成!!")
    End Sub
End Class