GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/06.業務管理系統/公廟/查看燈位.vb

Public Class 查看燈位
    ReadOnly ds As New DataSet
    Private Sub 查看燈位_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_清單()
    End Sub
    Private Sub Set_清單()
        人員表_dgv.DataSource = Nothing : ds.Clear()
        人員表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員表_dgv.ColumnHeadersHeight = 25
        人員表_dgv.AllowUserToAddRows = False
        人員表_dgv.RowTemplate.Height = 30
        SQL_個人燈位查詢()
        da.Fill(ds) : 人員表_dgv.DataSource = ds.Tables(0)
        人員表_dgv.Columns(1).ReadOnly = True : 人員表_dgv.Columns(2).ReadOnly = True : 人員表_dgv.Columns(3).Visible = False : 人員表_dgv.Columns(4).ReadOnly = True
        人員表_dgv.Columns(0).Visible = False : 人員表_dgv.Columns(5).ReadOnly = True : 人員表_dgv.Columns(6).ReadOnly = True
        人員表_dgv.Columns(1).FillWeight = 80 : 人員表_dgv.Columns(2).FillWeight = 80 : 人員表_dgv.Columns(4).FillWeight = 80
        人員表_dgv.Columns(5).FillWeight = 80 : 人員表_dgv.Columns(6).FillWeight = 120
        For i As Integer = 0 To 人員表_dgv.Rows.Count - 1
            Dim str As String = 人員表_dgv.Rows(i).Cells("位置").Value
            Dim parts As String() = str.Split("-"c)
            人員表_dgv.Rows(i).Cells("座標").Value = parts(0) & "-" & parts(2) & "-" & parts(3) & "列-" & parts(4) & "層"
        Next

    End Sub
    Private Sub 人員表_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 人員表_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else
            Dim selectedData As String = 人員表_dgv.Rows(e.RowIndex).Cells(0).Value.ToString()
            Dim selectedData1 As String = 人員表_dgv.Rows(e.RowIndex).Cells(1).Value.ToString()
            Dim selectedData2 As String = 人員表_dgv.Rows(e.RowIndex).Cells(2).Value.ToString()
            Dim selectedData3 As String = 人員表_dgv.Rows(e.RowIndex).Cells(3).Value.ToString()
            Dim selectedData4 As String = 人員表_dgv.Rows(e.RowIndex).Cells(4).Value.ToString()
            Dim selectedData5 As String = 人員表_dgv.Rows(e.RowIndex).Cells(5).Value.ToString()
            燈位基本資料.ReceiveDataFromPageC(selectedData4, selectedData3)
            Me.Close()
        End If
    End Sub
End Class