Public Class Frm_v20091231_ResultMon

#Region "data Base 변경여부및 적용방법"

    '''변경된내용을적용한다.
    Public Overrides Function AcceptChanged() As Boolean

        Return True
    End Function

    '''변경된내용이있다면 취소한다.
    Public Overrides Function RejectChanged() As Boolean

        Return True
    End Function

    '''데이터에변형이있었는가?
    Public Overrides Function HasChanged() As Boolean
        Return False
    End Function



#End Region



    Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.bs.DataSource = DSETR1
        'BindCmbBox()
    End Sub

    ''' <summary>
    ''' 각 그리드뷰의 1번째(존콤보박스) 데이터소스결정 (디자인타임에서 할당하면 Bs를 모두 생성해야하므로 코드에서 생성)
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub BindCmbBox()
        Dim bsz01 As New BindingSource(DSET1, "tbl_zone")
        Dim Col01 As DataGridViewComboBoxColumn = CType(Me.dv01.Columns(0), DataGridViewComboBoxColumn) : Col01.DataSource = bsz01
    End Sub

    Private Sub dv01_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dv01.CellFormatting
        Dim Code As String = Me.dv01.Rows(e.RowIndex).Cells("존").Value.ToString
        If Code = "00" Then
            Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = "합계"
            Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Gainsboro
        Else    '//각존의 이름을 가져온다.

            Dim Dr As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code='" & Code & "'")(0), Eco2Ar.DS.tbl_zoneRow)
            Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = Dr.설명
            Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
        End If
    End Sub

    Private Sub dv01_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv01.DataError

    End Sub

    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        Me.bs.Filter = "월='M" & Format(Me.TabControl1.SelectedIndex + 1, "00") & "'"
    End Sub

    Private Sub dv01_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv01.CellContentClick

    End Sub
End Class