'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''' 2007-10-01 : ¼Ò½º°³¹ßÀÚ : ¾Æ¸°(tindevil.nate.com)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Class AddEpole
    '  Dim NeedIndexSort As Boolean = False
    Dim WithEvents DT As ireaDataSet.jjutableDataTable
    Dim Sorted As ESorted = ESorted.NULL
    'Dim viewTag As String = "jjun"
    Dim IsNew As Boolean = False

    Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) Handles DT.TableNewRow '//New Row Add & Setting Default Data
        Dim NewId As Integer = CInt(Me.Get_NewNumber)
        Dim NEwrow As DataRow = e.Row
        NEwrow("rowid") = System.Guid.NewGuid
        NEwrow("°ü¸®ID") = CInt(Me.h_id.Text)
        NEwrow("¹øÈ£") = NewId
        NEwrow("Ãâ·Â") = True
        '  NEwrow("Á¤·Ä¹øÈ£") = "test"

        If Me.Sorted = ESorted.CANT Then
            NEwrow("Á¤·Ä¹øÈ£") = "È÷" & "1" & NewId.ToString("00000") & "1000"
        Else
            NEwrow("Á¤·Ä¹øÈ£") = "1" & NewId.ToString("00000") & "1000"
        End If
    End Sub

    'Dim SaveFlag As Boolean = False        
    Public Sub New(ByVal maxid As Integer)    ' QRÃß°¡

        ' ÀÌ È£ÃâÀº Windows Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù.
        InitializeComponent()

        Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini")
        Me.h_date.Enabled = True
        Me.h_name.Enabled = True
        Me.h_bigo.Enabled = True
        Me.h_id.Enabled = False
        Me.h_dan.Enabled = True
        'Me.h_si.Enabled = True
        'Me.h_hom.Enabled = True
        'Me.h_kwan.Enabled = True
        'Me.h_kwan1.Enabled = True
        'Me.h_kwan2.Enabled = True
        Me.Text = "°¡°ø(ÀϹÝ) ÀÔ·Â(½Å±ÔÀÛ¾÷)"
        Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("°Å·¡Ã³¸íÀ» ÀÔ·ÂÇϼ¼¿ä", "½Å±ÔÀÔ·Â-°Å·¡Ã³¸í", "Çر¤±âȹ")
        Me.h_dan.Text = "0" 'InputBox("¼ö·®º° ´Ü°¡¸¦ ÀÔ·ÂÇϼ¼¿ä", "½Å±ÔÀÔ·Â-´Ü°¡", "0")
        Me.h_id.Text = maxid
        Me.h_bigo.Text = "°¡°ø(ÀϹÝ)¹øÈ£ÂûÁ¦ÀÛ(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")"
        Me.h_date.Text = Format(Now, "yyyy/MM/dd")
        Me.IsNew = True

    End Sub

    Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String, ByVal V_si As String, ByVal V_hom As String, ByVal V_kwan As String, ByVal V_kwan1 As String, ByVal V_kwan2 As String)

        ' ÀÌ È£ÃâÀº Windows Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù.    'QRÃß°¡
        InitializeComponent()

        Me.h_date.Text = V_DATE
        Me.h_name.Text = V_NAME
        Me.h_bigo.Text = V_BIGO
        Me.h_dan.Text = V_DAN
        'Me.h_si.Text = V_si
        'Me.h_hom.Text = V_hom
        'Me.h_kwan.Text = V_kwan
        'Me.h_kwan1.Text = V_kwan1
        'Me.h_kwan2.Text = V_kwan2
        Me.h_id.Text = v_id
        Me.h_date.Enabled = False
        Me.h_name.Enabled = False
        Me.h_bigo.Enabled = False
        Me.h_id.Enabled = False
        Me.h_id.Enabled = False
        Me.Text = "°¡°ø(ÀϹÝ) ÀÔ·Â"
        IsNew = False
    End Sub

    Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        bs.EndEdit()
        If bs.Count > 0 Then
            Dim Drv As DataRowView
            Drv = bs.Item(bs.Count - 1)
            If NVL(Drv("°ü¸®±¸"), "") = "" AndAlso NVL(Drv("ÀüÁÖ¹øÈ£"), "") = "" AndAlso NVL(Drv("¼±·Î¸í"), "") = "" AndAlso _
             NVL(Drv("¹øÈ£1"), "") = "" AndAlso NVL(Drv("¹øÈ£2"), "") = "" AndAlso NVL(Drv("¹øÈ£3"), "") = "" AndAlso NVL(Drv("¹øÈ£4"), "") = "" Then
                Drv.Delete()
            End If
        End If

        Me.CHk_Modify()

        '//Æã¼ÇÅ°°ª ³Ö±â
        Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\" & Me.Name & "_static.ini")
        INI.Write("key", "f1", tbf1.Text)
        INI.Write("key", "f2", tbf2.Text)
        INI.Write("key", "f3", tbf3.Text)
        INI.Write("key", "f4", tbf4.Text)
        INI.Write("key", "f5", tbf5.Text)
        INI.Write("key", "f6", tbf6.Text)
        INI.Write("key", "f7", tbf7.Text)
        INI.Write("key", "f8", tbf8.Text)

        Frm_Main.bt_find.PerformClick()    '//ºüÁ®³ª°¡¸é¼­ ¸ñ·ÏÀÇ °Ë»ö¹öÆ°À» ´©¸£°ÔÇÑ´Ù.(ÀúÀåµÈ ³»¿ëÀÌ ¹Ù·Îº¸ÀÌ°Ô ÇÑ´Ù)
        'If Me.SaveFlag Then Me.DialogResult = Windows.Forms.DialogResult.OK '//saveflag °¡ ¼ÂÆ®µÇ¾îÀÕÀ¸¸é °á°ú¸¦ ok¶ó ÇÑ´Ù.
    End Sub

    Private Sub AddEpole_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F1 Then
            If e.Control AndAlso e.Shift Then
                If MsgBox("¿­³Êºñ¸¦ ÃʱâÈ­ÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "È®ÀÎ") = MsgBoxResult.Ok Then
                    fp.ColSize_Init()
                End If
            End If
        End If
    End Sub

    Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.fp.ASetting_Load(False)
        Me.fp.ÇѱÛÇʵå = New String() {"¼±·Î¸íA", "¼±·Î¸íB", "½Ã°øÀÚ", "°¨µ¶ÀÚ", "ºñ°í", "Á¡°ËÀÏÀÚ"}

        Me.bt_dupchk2.Visible = IsPro

        'Me.view1.AEnterToNextItem(False)
        'Me.JjutableTableAdapter1.Connection.ConnectionString = ConString

        Me.fp.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)   '//±ÛÀÚÁ¤º¸ ºÒ·¯¿À±â
        Me.SETTOOLTIP()

        '//Æã¼ÇÅ°°ª ³Ö±â
        Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\" & Me.Name & "_static.ini")
        tbf1.Text = INI.Read("key", "f1")
        tbf2.Text = INI.Read("key", "f2")
        tbf3.Text = INI.Read("key", "f3")
        tbf4.Text = INI.Read("key", "f4")
        tbf5.Text = INI.Read("key", "f5")
        tbf6.Text = INI.Read("key", "f6")
        tbf7.Text = INI.Read("key", "f7")
        tbf8.Text = INI.Read("key", "f8")


        DT = Me.IreaDataSet1.jjutable

        Me.Show()
        Me.fp.ACheckBox_ColIndex = Me.fp.ActiveSheet.Columns("¼±ÅÃ").Index
        'MsgBox(Me.view1.ACheckBox_ColIndex)
        'Me.Refresh() Me.ta.Fill(Me.IreaDataSet1.jjutable, Me.h_id.Text)   '//°ü¸®id¸¦ ÅëÇؼ­ µ¥ÀÌÅ͸¦ ä¿î´Ù.
        If Me.IsNew Then  '//ÇöÀçid¿Í°°Àº µ¥ÀÌÅÍ´Â ¸ðµÎ»èÁ¦¸¦ ÇÏ°ÔÇÑ´Ù.
            Dim Cmd As New OleDbCommand("delete from  ÀüÁÖ¼¼ºÎ  where °ü¸®id=" & Me.h_id.Text, Me.ta.Connection)
            If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open()
            Cmd.ExecuteNonQuery()
            Me.IsNew = False
        End If
        Display_Data() ''''''''µ¥ÀÌÅͺ¸¿©ÁÖ±â

        'If Me.view1.ActiveSheet.RowCount <= 0 Then
        '    If MsgBox("µ¥ÀÌÅÍ°¡ Á¸ÀçÇÏÁö¾Ê½À´Ï´Ù" & vbCrLf & "¿¢¼¿ÆÄÀϷκÎÅÍ µ¥ÀÌÅ͸¦ °¡Á®¿É´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ÆÄÀÏ°¡Á®¿À±â") = MsgBoxResult.Ok Then
        '        Me.bt_import.PerformClick()
        '    Else
        '        Me.bt_insertrow.PerformClick()
        '    End If
        'End If
    End Sub
    Private Sub SETTOOLTIP()
        Dim TMSG As New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("¿À¸¥ÂÊ Å¬¸¯½Ã ±âŸ¸Þ´º°¡ Ç¥½ÃµË´Ï´Ù")
        TMSG.AppendLine()
        TMSG.AppendLine("<´ÜÃàÅ° : ENTER:´ÙÀ½Ä­ , SHIFT+TAB:ÀÌÀüÄ­ , ALT+ENTER:À­Ä­º¹»ç>")
        TMSG.AppendLine("<´ÜÃàÅ° : DELETE:ÇöÀçÄ­ Áö¿ì±â , SHIFT+DELETE ÇöÀçÁÙ »èÁ¦>")
        TMSG.AppendLine("<´ÜÃàÅ° : F2:ÇöÀçÄ­Áö¿ì°í ÆíÁý>")
        TMSG.AppendLine("<´ÜÃàÅ° : SPACE-BAR/F3:ÇöÀçÄ­ ÆíÁý>")
        TMSG.AppendLine("<´ÜÃàÅ° : CTRL + ¸¶¿ì½ºÈÙ : È­¸éÅ©±â¸¦ Á¶ÀýÇÕ´Ï´Ù>")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.fp, TMSG.ToString)

        'TMSG = New System.Text.StringBuilder()
        'TMSG.AppendLine()
        'TMSG.AppendLine("°Ë»ö¹®ÀÚÀÇ ¿ì¼±¼øÀ§ : ¼ýÀÚ->¿µ¹®ÀÚ->ÇѱÛ")
        'TMSG.AppendLine("    ->0  Àº 000 º¸´Ù ¿ì¼±¼øÀ§°¡ ³ô½À´Ï´Ù.")
        'Me.bt_findmenu.ToolTipText = "µ¥ÀÌÅͺ£À̽ºÀÇ ³»¿ëÀ» ´Ù½Ã ºÒ·¯¿É´Ï´Ù" & vbCrLf & "¹øÈ£Á¤·ÄÀº ¿ìÃøÀÇ ¡å ¸¦ Ŭ¸¯Çϼ¼¿ä"

    End Sub

    Private Sub SetFarPoint()
        'Me.view1.AEnterToNextItem(False)   '//¿¡µðÆ®¸ðµå¿¡¼­´Â enter ¸¦ »ç¿ëÇÏÁö ¾Ê°ÔÇÑ´Ù.
        Me.fp.DataSource = Me.bs

        'Dim A As FarPoint.Win.Spread.CellType.TextCellType = Me.view1.ActiveSheet.Columns(2).CellType
        'A.CharacterCasing = CharacterCasing.Upper
        'Me.view1.ActiveSheet.Columns(2).CellType = A
        'Me.view1.ActiveSheet.Columns(3).CellType = A
        'Me.view1.ActiveSheet.Columns(4).CellType = A
        'Me.view1.ActiveSheet.Columns(5).CellType = A
        'Me.view1.ActiveSheet.Columns(6).CellType = A
        'Me.view1.ActiveSheet.Columns(7).CellType = A
        'Me.view1.ActiveSheet.Columns(8).CellType = A
        'Me.view1.ActiveSheet.Columns(9).CellType = A
        'Me.view1.ActiveSheet.Columns(10).CellType = A
        'Me.view1.ActiveSheet.Columns(11).CellType = A
        'Me.view1.ActiveSheet.Columns(12).CellType = A
        ''A.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Numeric
        'A = Me.view1.ActiveSheet.Columns(13).CellType
        'A.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Numeric

        'Me.view1.ActiveSheet.Columns(23).DataField = "Á¤·Ä¹øÈ£"
        ''  Me.view1.ActiveSheet.Columns(22).DataField = "¼±ÅÃ"


    End Sub

    ''' <summary>
    ''' ½Å±ÔÃß°¡½Ã ¹øÈ£¸¦ »ý¼ºÇØÁÝ´Ï´Ù(ÇöÁ¸ÃÖ´ë³Ñ¹ö+1)
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function Get_NewNumber() As Integer
        Dim maxCnt As Integer = 0
        For i As Integer = 0 To Me.fp_Sheet1.RowCount - 1
            If Me.fp_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.fp_Sheet1.Cells(i, 1).Value
        Next
        Return maxCnt + 1
    End Function

    Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True)
        Me.bs.EndEdit()
        If Not Me.IreaDataSet1.HasChanges Then
            NOTICE("º¯°æµÈ ³»¿ëÀÌ ¾ø½À´Ï´Ù", Me.lb_msg)
            Return
        End If

        If prompt Then
            If MsgBox("º¯°æµÈ µ¥ÀÌÅ͸¦ ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ÀúÀåÈ®ÀÎ") <> MsgBoxResult.Ok Then Return
        End If

        Try
            Me.ta.Update(Me.IreaDataSet1.jjutable)   '//Commit insert/update/delete     '''QRÄÚµå
            Me.IreaDataSet1.jjutable.AcceptChanges()    '//Set All Green

            Try
                'Dim SQl As String = "insert into ÀüÁÖ°ü¸®(id,³¯Â¥,°Å·¡Ã³¸í,ºñ°í,ÃѼö·®,´Ü°¡,±Ý¾×,¹øÈ£Âû±¸ºÐ,½Ã°øÀÚ,ȨÆäÀÌÁö,°ü¸®,°ü¸®1,°ü¸®2) values(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,0)"
                Dim SQl As String = "insert into ÀüÁÖ°ü¸®(id,³¯Â¥,°Å·¡Ã³¸í,ºñ°í,ÃѼö·®,´Ü°¡,±Ý¾×,¹øÈ£Âû±¸ºÐ) values(:1,:2,:3,:4,:5,:6,:7,0)"
                If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open()
                Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection)
                Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text)
                Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim)
                Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text
                Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text
                Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.jjutable.Rows.Count 'Me.view1_Sheet1.RowCount
                Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text)
                Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.fp_Sheet1.RowCount
                'Cmd.Parameters.Add(":8", OleDbType.VarChar).Value = Me.h_si.Text
                'Cmd.Parameters.Add(":9", OleDbType.VarChar).Value = Me.h_hom.Text
                'Cmd.Parameters.Add(":10", OleDbType.VarChar).Value = Me.h_kwan.Text
                'Cmd.Parameters.Add(":11", OleDbType.VarChar).Value = Me.h_kwan1.Text
                'Cmd.Parameters.Add(":12", OleDbType.VarChar).Value = Me.h_kwan2.Text
                Cmd.ExecuteNonQuery()
            Catch ex As Exception

                '         Dim SQl As String = "update ÀüÁÖ°ü¸® set ³¯Â¥=:2,°Å·¡Ã³¸í=:3,ºñ°í=:4,ÃѼö·®=:5,´Ü°¡=:6,±Ý¾×=:7,½Ã°øÀÚ=:8,ȨÆäÀÌÁö=:9,°ü¸®=:10,°ü¸®1=:11,°ü¸®2=:12,¹øÈ£Âû±¸ºÐ=0 where id=:1"
                Dim SQl As String = "update ÀüÁÖ°ü¸® set ³¯Â¥=:2,°Å·¡Ã³¸í=:3,ºñ°í=:4,ÃѼö·®=:5,´Ü°¡=:6,±Ý¾×=:7,¹øÈ£Âû±¸ºÐ=0 where id=:1"
                If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open()
                Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection)
                Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim)
                Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text
                Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text
                Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.jjutable.Rows.Count 'Me.view1_Sheet1.RowCount
                Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text)
                Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.fp_Sheet1.RowCount
                '          Cmd.Parameters.Add(":8", OleDbType.VarChar).Value = Me.h_si.Text
                '         Cmd.Parameters.Add(":9", OleDbType.VarChar).Value = Me.h_hom.Text
                '        Cmd.Parameters.Add(":10", OleDbType.VarChar).Value = Me.h_kwan.Text
                '       Cmd.Parameters.Add(":11", OleDbType.VarChar).Value = Me.h_kwan1.Text
                '      Cmd.Parameters.Add(":12", OleDbType.VarChar).Value = Me.h_kwan2.Text
                Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text)
                Cmd.ExecuteNonQuery()
            Finally
                'MakeList.bt_find.PerformClick()
                'Display_Data(True)
                Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini")
                INI.Write("main", "lastkname1", Me.h_name.Text)
                NOTICE("ÀúÀåµÇ¾ú½À´Ï´Ù", Me.lb_msg)
                My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background)
                'MakeList.Display_Data() '//ÀÌ°Ç bt_find ¿¡¼­ ÀçÈ£ÃâµÈ´Ù.
            End Try

        Catch ex As Exception
            MsgBox("µ¥ÀÌÅͺ£À̽º ¾÷µ¥ÀÌÆ®Áß ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-")
            Me.IreaDataSet1.jjutable.RejectChanges()
            NOTICE("ÀúÀå ½ÇÆÐ!", Color.Red, Me.lb_msg)
        Finally
            fp.ActiveSheet.GetDataView(True) '//È­¸éÀ» °»½ÅÇÑ´Ù.
        End Try

        'Me.SaveFlag = True
        Me.bs.EndEdit()

    End Sub


    Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False)   '//ºä¿¡µ¥ÀÌÅ͸¦ Ç¥½ÃÇÑ´Ù.

        Me.bs.Sort = "Á¤·Ä¹øÈ£,¹øÈ£"   '//Á¤·ÄµÈ°ÍµéÀº Á¤·ÄµÈä·Î º¸¿©ÁØ´Ù.
        Me.ta.Fill(Me.IreaDataSet1.jjutable, Me.h_id.Text)   '//°ü¸®id¸¦ ÅëÇؼ­ µ¥ÀÌÅ͸¦ ä¿î´Ù.
        SetFarPoint()  '//¿©±â¼­ ÆÄÆ÷ÀÎÆ®¸¦ ¹ÙÀεù ¼Ò½º¿Í ¿¬°á½ÃŲ´Ù(¹ÙÀεù ¼Ò½º´Â Å×ÀÌºí¿¡ ¿¬°áµÇ¾îÀÖ´Ù)
        If Me.IreaDataSet1.jjutable.Rows.Count <= 0 Then
            Me.bt_addrow.PerformClick()
            NOTICE("µ¥ÀÌÅÍ°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù", Color.Red, Me.lb_msg)
            Return
        End If

        NOTICE(Me.fp.ActiveSheet.RowCount & "°³ÀÇ µ¥ÀÌÅÍ°¡ °Ë»öµÇ¾ú½À´Ï´Ù", Me.lb_msg)
    End Sub


    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_import.Click   '//¿¢¼¿ºÒ·¯¿À±â
        Me.bt_commit.PerformClick() '//ÀúÀåÇÒ°ÔÀÕÀ¸¸é ´Ù ÀúÀåÇÑ´Ù.
        Me.fp.SuspendLayout()
        Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 0)
        A.ShowDialog()
        Me.CHk_Modify(False)
        Me.Display_Data(False)
        Me.fp.ResumeLayout()
    End Sub


    Private Sub dupcheckoldnumoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸Àü»êÈ­¹øÈ£").Index}
        NOTICE("Áߺ¹µÇ´Â [±¸ Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[±¸ Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)

    End Sub

    Private Sub check2ipMenuItemem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles check2ipMenuItem.Click
        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸¼±·Î¸í").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸ÀüÁÖ¹øÈ£").Index}


        NOTICE("Áߺ¹µÇ´Â [±¸ ¼±·Î¸í, ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[±¸ ¼±·Î¸í, ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub dupchksunloolStripMenuItemuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dupchksunloolStripMenuItem.Click
        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("¼±·Î¸í").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£1").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£2").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£3").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£4").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£5").Index}

        NOTICE("Áߺ¹µÇ´Â [½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)

    End Sub


    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click '//ÇÑÁÙÃß°¡
        If Me.Sorted = ESorted.NULL Then Check_Sorted()

        bs.AddNew()
        fp.ActiveSheet.SetActiveCell(fp.ActiveSheet.RowCount, fp.AFirstColumn_Index) '//ùÀ§Ä¡·Î º¯°æÇÑ´Ù.

        'Me.view1.AAddNewRow()
        'SendKeys.Send("{ENTER}")
        'Me.view1.ActiveSheet.Rows.Add(Me.view1.ActiveSheet.RowCount, 1)
        ' Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount, 1)

        'Dim NewRowIndex As Integer = Me.view1.NewRowsU() '//¾ð¹Ù¿îµå ¿­ Çϳª Ãß°¡

        ''MsgBox(NewRowIndex)

        'With Me.view1.ActiveSheet
        '    .Cells(NewRowIndex, 0).Value = CInt(Me.h_id.Text)
        '    .Cells(NewRowIndex, 1).Value = CInt(Me.Get_NewNumber)
        '    '.Cells(NewRowIndex, 23).Value = "È÷È÷È÷" & Format(NewRowIndex, "000000")
        '    .ActiveRowIndex = NewRowIndex
        '    .SetActiveCell(NewRowIndex, Me.view1.FIRST_FOCUSINDEX)
        '    SendKeys.Send("{ENTER}")
        '    'Me.view1.ActiveSheet.AddRowToDataSource(NewRowIndex, True)
        'End With

    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click
        'Me.view1.Attach_Ubound(2)  '//¾ð¹Ù¿îµåµÈ ¿­À» ¿©±â¼­ ¹Ù¿îµå½ÃÄѺдÙ.
        Me.bs.EndEdit()  '//ÆíÁýÁßÀÎ µ¥ÀÌÅÍ´Â ¸ðµÎ ¸¶Å·

        If bs.Count > 0 Then
            Dim Drv As DataRowView
            Drv = bs.Item(bs.Count - 1)
            If NVL(Drv("°ü¸®±¸"), "") = "" AndAlso NVL(Drv("ÀüÁÖ¹øÈ£"), "") = "" AndAlso NVL(Drv("¼±·Î¸í"), "") = "" AndAlso _
             NVL(Drv("¹øÈ£1"), "") = "" AndAlso NVL(Drv("¹øÈ£2"), "") = "" AndAlso NVL(Drv("¹øÈ£3"), "") = "" AndAlso NVL(Drv("¹øÈ£4"), "") = "" Then
                Drv.Delete()
            End If
        End If


        If Not Me.IreaDataSet1.HasChanges Then
            NOTICE("º¯°æµÈ µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        Me.bt_find.PerformClick()

    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
        'Me.view1.Attach_Ubound(2)
        Me.bs.EndEdit()

        If Me.IreaDataSet1.HasChanges Then
            Me.IreaDataSet1.RejectChanges()
            NOTICE("º¯°æµÈ ³»¿ëÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù.", Me.lb_msg)
        Else
            NOTICE("º¯°æ³»¿ªÀÌ ¾ø½À´Ï´Ù", Me.lb_msg)
        End If
    End Sub


    Private Sub grsdfipMMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grsdfipMenuItem.Click
        For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows
            dr("ÀÎÀÔ") = True
        Next
        'Me.view1.ItemCheck_Select(22)
    End Sub

    Private Sub olStripMenipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gsfoolStripMenuItem.Click
        For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows
            dr("ÀÎÀÔ") = False
        Next
        'Me.view1.ItemCheck_Unselect(22)

    End Sub

    Private Sub gdflStripMeipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gdflStripMenuItem.Click
        For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows
            dr("ÀÎÀÔ") = Not NVL(dr("ÀÎÀÔ"), False)
        Next
        'Me.view1.ItemCheck_Reverse(22)
    End Sub

    Private Sub dStripMenutripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdStripMenuItem.Click
        For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows
            dr("±âÀÔ") = True
        Next
        'Me.view1.ItemCheck_Select(23)

    End Sub

    Private Sub lStripMenuItipMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fdlStripMenuItem1.Click
        For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows
            dr("±âÀÔ") = False
        Next
    End Sub

    Private Sub ttripMenuItipMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gttripMenuItem1.Click
        For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows
            dr("±âÀÔ") = Not NVL(dr("±âÀÔ"), False)
        Next
    End Sub

    Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles fp.Arin_AddLog
        If Admin Then Log.Show()
        If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf)
    End Sub

    Private Sub view1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles fp.EditModeOff   '//ÆíÁýÁ¾·á½Ã

    End Sub

    Private Sub sdStripMenuItemMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdStripMenuItem1.Click
        Me.fp.ASelect(Me.fp.ACheckBox_ColIndex)
    End Sub

    Private Sub folStripMenuItuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gsdfolStripMenuItem2.Click
        Me.fp.AUnselect(Me.fp.ACheckBox_ColIndex)
    End Sub

    Private Sub gwsolStripMenuIteStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gwsolStripMenuItem2.Click
        Me.fp.AReverse(Me.fp.ACheckBox_ColIndex)
    End Sub

    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        If Me.fp.ActiveSheet.Rows.Count > 0 Then
            Me.fp.ActiveSheet.ActiveRow.Remove()
            NOTICE("ÇöÀçÁÙÀÌ »èÁ¦µÇ¾ú½À´Ï´Ù", Me.lb_msg)
        Else
            MsgBox("´õÀÌ»ó »èÁ¦ÇÒ ÁÙÀÌ ¾ø½À´Ï´Ù")
        End If

    End Sub
    Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fp.KeyDown

        If (e.KeyCode = Keys.F10) Then
            e.Handled = True
            e.SuppressKeyPress = True
        End If

        view1_Arin_AddLog(sender, "¿ø·¡ºä¿¡¼­ÀÇ keydown ¿­¹øÈ£=" & Me.fp.ActiveSheet.ActiveColumnIndex)
    End Sub


    Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles fp.DragFillBlockCompleted

        For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy
            ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource
            Me.IreaDataSet1.jjutable.Rows(fp.Sheets(0).GetModelRowFromViewRow(i)).EndEdit()
        Next

    End Sub

    Private Sub view1_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles fp.Change
        '//¼±Åÿ¡ üũµÈ°ÍÀ» »ö»óÀ» ¹Ù²ãÁØ´Ù.

        If e.Column = Me.fp.ACheckBox_ColIndex AndAlso Me.fp.ActiveSheet.Cells(e.Row, Me.fp.ACheckBox_ColIndex).Value = True Then   '//¼±ÅÃ
            Me.fp.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen
        Else
            Me.fp.ActiveSheet.Rows(e.Row).BackColor = Color.White
        End If
    End Sub

    Private Sub Check_Sorted()
        If Me.Sorted = ESorted.NULL Then  '//¾ÆÁ÷ °Ë»öÀ̵ȰÇÁö È®ÀξÈÇØ”f´Ù
            Me.Sorted = ESorted.No
            For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1)
                If NVL(DT.Rows(i)("Á¤·Ä¹øÈ£")) <> "" AndAlso NVL(DT.Rows(i)("Á¤·Ä¹øÈ£")) <> "È÷È÷È÷000000000" AndAlso NVL(DT.Rows(i)("Á¤·Ä¹øÈ£")) <> "È÷" Then '//µ¥ÀÌÅÍ°¡ÀÖ´Ù¸é
                    Me.Sorted = ESorted.YES
                    Exit For
                End If
            Next
        End If
    End Sub
    Private Sub Make_Index()
        Work_Form("À妽º¸¦ »ý¼ºÇÏ°í ÀÖ½À´Ï´Ù")
        Form_Work.ProgressBar1.Minimum = 0
        Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count
        Dim Num As Short
        For i As Integer = 0 To Me.DT.Rows.Count - 1
            Form_Work.pval = i
            Num = Me.DT.Rows(i)("¹øÈ£")
            Me.DT.Rows(i)("Á¤·Ä¹øÈ£") = "1" & Format(Num, "00000") & "1000"
        Next
        Form_Work.Close()  '//ÀÛ¾÷⠴ݱâ
        Me.Sorted = ESorted.YES
    End Sub
    Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click
        ' Me.view1.AInsertNewRow()    '//¹øÈ£¹®Á¦µµÀÖ´Ù.
        '//ÇöÀçÁÙ ¹Ù·ÎÀ§¿¡ ÇÑÁÙÀ»»ðÀÔÇÑ´Ù.
        '//»õ·Î¿îID´Â ÀüÁÙÀÇID+1 À̸ç
        Me.bs.EndEdit()

        '//À§¿¡¼­ºÎÅÍ 5°³¶Ç´Â ¸¶Áö¸·±îÁö ÀÌ°Ô Á¤·ÄµÈµ¥ÀÌÅÍÀÎÁö È®ÀÎÇÕ´Ï´Ù.
        If Me.Sorted = ESorted.NULL Then Check_Sorted()
        If Me.Sorted = ESorted.No Then Make_Index() '//À妽º¸¦ »ý¼ºÇÑ´Ù.

        Dim NR As ireaDataSet.jjutableRow = Me.DT.NewjjutableRow   '//»ðÀÔÀº ÇöÀçÁÙ À§¿¡ »ðÀÔÇϴ°ÍÀÌ´Ù. ÇöÀçÁÙÀÇ À妽º¹øÈ£°¡ ¼ýÀÚÇüŶó¸é Á¤·ÄÀ̾ȵȵ¥ÀÌÅÍ´Ù
        Dim Á¤·Ä¹øÈ£ As String = bs.Current("Á¤·Ä¹øÈ£")
        Dim NÁ¤·Ä¹øÈ£ As String
        If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Á¤·Ä¹øÈ£) AndAlso Á¤·Ä¹øÈ£.Length >= 8 Then  '//¼ýÀÚ¶ó¸é À妽ºÁ¤·Ä¹ýÀÌ´Ù.
            Dim MN As String = Á¤·Ä¹øÈ£.Substring(0, 6)
            Dim SN As Short = Á¤·Ä¹øÈ£.Substring(6)
            'NR.¹øÈ£ = bs.Current("¹øÈ£") - 1 '//¹øÈ£´Â -1ÇÏ°í
            'If NR.¹øÈ£ < 1 Then NR.¹øÈ£ = 0
            NÁ¤·Ä¹øÈ£ = MN & Format(SN - 1, "0000") '//ÇöÀç ÀϷùøÈ£¿¡ -À» Çؼ­ ³Ö´À´Ù.  À̺κРº¯°æÇÏÀÚ..º¯°æÇÑÀ̸§ÀÌ ÀÖÀ»°æ¿ì ÇØ´çÀ§·ÎÀÇ ¼ýÀÚ¸¦ -1ÇؾßÇÑ´Ù.

            '//»õ·Î¿ì Á¤·Ä¹øÈ£¶û °°Àº°ÍµéÀº -1ÇØÁØ´Ù.
            For Each DR As DataRow In Me.DT.Select("Á¤·Ä¹øÈ£ like '" & MN & "%' and Á¤·Ä¹øÈ£ <= '" & NÁ¤·Ä¹øÈ£ & "'")
                MN = DR("Á¤·Ä¹øÈ£").Substring(0, 6)
                SN = DR("Á¤·Ä¹øÈ£").Substring(6)
                DR("Á¤·Ä¹øÈ£") = MN & Format(SN - 1, "0000")   '//¿ø·¡¹øÈ£-1ÇØÁØ´Ù.
            Next
            '//
            NR.Á¤·Ä¹øÈ£ = NÁ¤·Ä¹øÈ£

            Dim AR As Integer = Me.fp.ActiveSheet.ActiveRowIndex
            Me.DT.AddjjutableRow(NR)
            Me.fp.ActiveSheet.ActiveRowIndex = AR

        Else   '//ÀüÁÖ¹øÈ£Á¤·Ä¹ýÀÌ´Ù ÀÌ°ÍÀº Á¤·ÄÀÌ º°µµ·Î Á¸ÀçÇÑ´Ù.
            MsgBox("¹øÈ£Çü½ÄÀ¸·Î Á¤·ÄµÇ¾îÀÖ´Â µ¥ÀÌÅÍÀÔ´Ï´Ù" & vbCrLf & "À̵¥ÀÌÅÍ´Â [ÇÑÁÙ»ðÀÔ]ÀÌ µÇÁö¾Ê½À´Ï´Ù.", MsgBoxStyle.Information, "È®ÀÎ")
            Me.Sorted = ESorted.CANT
            'Me.bt_addrow.PerformClick()   '//ÇÑÁÙÃß°¡È­·²¤·()
        End If
    End Sub

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Text = Me.fp.ActiveSheet.ActiveRowIndex & "/" & Me.fp.ActiveSheet.ActiveColumnIndex
    End Sub



    Private Sub view1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles fp.EnterCell
        Select Case Me.fp.ActiveSheet.ActiveColumn.Label.ToUpper

            Case "D/L¸í"

                NOTICE("2ÁÙÀÏ°æ¿ì¿¡´Â  ÁÂ,³ª¼±;¿ì,³ª¼±  ÇüÅ·ΠÀÔ·ÂÇϼ¼¿ä", Color.Blue, Me.lb_msg)
        End Select
    End Sub



    Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Process.Start(HomePage)
    End Sub


    Private Sub gfsdolStripMenuItempMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdolStripMenuItem.Click
        For i As Integer = Me.fp.ActiveSheet.RowCount - 1 To 0 Step -1
            If Me.fp.ActiveSheet.Cells(i, Me.fp.ACheckBox_ColIndex).Value = True Then Me.fp.ActiveSheet.Rows(i).Remove()
        Next

        'For Each Dr As ireaDataSet.jjutableRow In Me.IreaDataSet1.jjutable.Rows
        ' If Dr.¼±Åà Then Dr.Delete()
        ' Next

        'For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows
        ' With Me.view1.ActiveSheet
        ' If .Cells(A.Index, 22).Value = True Then    '//¼±ÅõǾîÀÕÀ¸¸é ÇØ´ç ÁÙÀ» »èÁ¦ÇÑ´Ù
        ' .Rows(A.Index).Remove()
        ' End If
        ' End With
        ' Next
    End Sub



    Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Me.Close()
    End Sub


    Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click
        Dim a As New SaveFileDialog
        a.Filter = "¿¢¼¿ ¿öÅ©½ÃÆ®ÆÄÀÏ(*.XLS)|*.XLS"
        a.FilterIndex = 0
        a.Title = "[¸ðµçµ¥ÀÌÅͳ»º¸³»±â] ÀúÀåÇÒ ¿¢¼¿ ÆÄÀÏÀ» ÁöÁ¤Çϼ¼¿ä"

        If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
            Dim msg As New System.Text.StringBuilder

            '//µ¥ÀÌÅÍ´Â Á¤»ó(Ä÷³ÀÌ ¾øÀ½)
            'Me.fp.SaveExcel(a.FileName)
            ' Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed)

            '//Ä÷³ÀÌ 2ÁÙ³ª¿À¸é¼­ ½ÇÁ¦ µ¥ÀÌÅÍ2ÁÙµµ ©¸²
            Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed)
            ' Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveCustomColumnHeaders)
            '  Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders)

            msg.AppendLine("³»º¸³»Áø ÆÄÀÏÀº ±âº»°ªÀ¸·Î [½ÃÆ®º¸È£]°¡ µÇ¾îÀÖ½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£] »óÅ¿¡¼­´Â ½ÃÆ®¸¦ ÆíÁýÇÒ ¼ö ¾ø½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£]¸¦ ÇØÁ¦ÇÏ·Á¸é  ÇØ´çÆÄÀÏÀ» ¿¢¼¿¿¡¼­ ºÒ·¯¿ÂÈÄ")
            msg.AppendLine("[µµ±¸]-[º¸È£]-[½ÃÆ®º¸È£ÇØÁ¦]¸¦ Ŭ¸¯Çϼ¼¿ä")
            MsgBox(msg.ToString, MsgBoxStyle.Information, "½ÃÆ®º¸È£")
        End If
    End Sub

    Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click
        Dim a As New SaveFileDialog
        a.Filter = "¿¢¼¿ ¿öÅ©½ÃÆ®ÆÄÀÏ(*.XLS)|*.XLS"
        a.FilterIndex = 0
        a.Title = "[ÇöÀçµ¥ÀÌÅͳ»º¸³»±â] ÀúÀåÇÒ ¿¢¼¿ ÆÄÀÏÀ» ÁöÁ¤Çϼ¼¿ä"
        If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
            Dim msg As New System.Text.StringBuilder
            Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered)
            msg.AppendLine("³»º¸³»Áø ÆÄÀÏÀº ±âº»°ªÀ¸·Î [½ÃÆ®º¸È£]°¡ µÇ¾îÀÖ½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£] »óÅ¿¡¼­´Â ½ÃÆ®¸¦ ÆíÁýÇÒ ¼ö ¾ø½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£]¸¦ ÇØÁ¦ÇÏ·Á¸é  ÇØ´çÆÄÀÏÀ» ¿¢¼¿¿¡¼­ ºÒ·¯¿ÂÈÄ")
            msg.AppendLine("[µµ±¸]-[º¸È£]-[½ÃÆ®º¸È£ÇØÁ¦]¸¦ Ŭ¸¯Çϼ¼¿ä")
            MsgBox(msg.ToString, MsgBoxStyle.Information, "½ÃÆ®º¸È£")
        End If
    End Sub

    Private Sub allsavedataMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allsavedata.Click
        Me.bt_save_all.PerformClick()

    End Sub

    Private Sub currentsavedataoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles currentsavedata.Click
        Me.bt_save_current.PerformClick()
    End Sub

    Private Sub ToolStripButton6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.fp.Focus()
        Me.fp.ActiveSheet.SetActiveCell(1, 5)

    End Sub

    Private Sub AddEpole_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated
        Me.fp.Focus()
        Me.fp.Focus()
    End Sub

    Private Sub ToolStripButton6_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click
        If MsgBox("ÀüÁÖ¹øÈ£¼øÀ¸·Î µ¥ÀÌÅÍ°¡ Á¤·ÄµË´Ï´Ù" & vbCrLf & vbCrLf & "°è¼ÓÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then Return

        Dim ¹øÈ£ As String
        Dim ¹øÈ£B, ¹øÈ£b2 As System.Text.StringBuilder
        Me.pbar.Minimum = 0
        Me.pbar.Maximum = Me.IreaDataSet1.jjutable.Rows.Count - 1
        Me.pbar.Value = 0
        Dim Cidx As Int16 = 0
        Dim Carray As ArrayList
        For Each dr As ireaDataSet.jjutableRow In Me.IreaDataSet1.jjutable.Rows
            ¹øÈ£ = (dr.¹øÈ£1 & dr.¹øÈ£2 & dr.¹øÈ£3 & dr.¹øÈ£4 & dr.¹øÈ£5)
            If ¹øÈ£ <> "" Then  '// 123H1R1R2H3
                Cidx = 0
                ¹øÈ£B = New System.Text.StringBuilder
                ¹øÈ£b2 = New System.Text.StringBuilder
                Carray = New ArrayList
                For Each C As Char In ¹øÈ£.ToCharArray
                    If Char.IsLetter(C) Then
                        Carray.Add(C) '//¹®ÀÚÀ§Ä¡¿Í ¹®ÀÚ¸¦ ÀúÀåÇÑ´Ù.
                        ¹øÈ£B.Append("@")   '//¹®ÀÚ´Â @·Î º¯È¯ÇÑ´Ù.
                    Else
                        ¹øÈ£B.Append(C) '//¼ýÀÚ´Â ¹Ù·Î ÀúÀåÇعö¸°´Ù.
                    End If
                    Cidx += 1
                Next
                '// 123@1@1@2@3
                For Each ¹øÈ£s As String In ¹øÈ£B.ToString.Split("@")
                    ¹øÈ£b2.Append(Format(Val(¹øÈ£s), "000").ToString & "@")   '/3ÀÚ¸®·Î¹Ù²ÛÈÄ ¹®ÀÚ¿­À» ºÙÀδÙ
                Next
                ¹øÈ£b2.Remove(¹øÈ£b2.Length - 1, 1) '//¾²·¹±âÁ¦°Å
                ¹øÈ£ = ¹øÈ£b2.ToString '//123@001@001@002@003

                For Each c As Char In Carray  '//¹®ÀÚ¿Í À§Ä¡°¡ ÀÖ´Ù
                    Cidx = ¹øÈ£.IndexOf("@")
                    If Cidx <> -1 Then ¹øÈ£ = ¹øÈ£.Substring(0, Cidx) & c & ¹øÈ£.Substring(Cidx + 1)
                Next

                If dr.Àμâ = False Then
                    ¹øÈ£ = CStr(¹øÈ£.ToUpper.Replace("K", "C")).Replace("G", "C") & "A"
                Else
                    ¹øÈ£ = CStr(¹øÈ£.ToUpper.Replace("K", "C")).Replace("G", "C") & "B"
                End If

                ¹øÈ£ = ¹øÈ£.Replace("H", "@")
                '//H°è»ê½Ä : ¹Ù·Î¾Õ¹øÈ£¸¦ 1»©°í H??? ¸¦ 0000 À¸·Î º¯°æ
                '//H´Â º»ÁÖº¸´Ù ¸ÕÀú¿Í¾ßÇÏ°í H³¢¸®¼­·Î Á¤·ÄµÇ¾î¾ß ÇÑ´Ù.
                'If ¹øÈ£.IndexOf("H") <> -1 Then  '//H°¡Àִٴ°ÍÀÌ´Ù H´Â ¹Ù·Î¾Õ°úH¸¦ 0À¸·Î ¹Ù²Û´Ù.
                '    Dim Àü¹®ÀÚ As String = ¹øÈ£.Substring(0, ¹øÈ£.IndexOf("H") - 3)
                '    Dim ¾Õ¹øÈ£ As Short = ¹øÈ£.Substring(¹øÈ£.IndexOf("H") - 3, 3)
                '    Dim ÈĹ®ÀÚ As String = ¹øÈ£.Substring(¹øÈ£.IndexOf("H") + 4)
                '    '¹øÈ£ = Àü¹®ÀÚ & Format(¾Õ¹øÈ£ - 1, "000") & "ZZZ" & ÈĹ®ÀÚ
                '    ¹øÈ£ = Àü¹®ÀÚ & Format(¾Õ¹øÈ£ - 1, "000") & "ZZZ" & ¹øÈ£.Substring(¹øÈ£.IndexOf("H") + 1) & ÈĹ®ÀÚ
                'End If
                'If ¹øÈ£.IndexOf("H") <> -1 Then GoTo LBL_H
                dr.Á¤·Ä¹øÈ£ = dr.¼±·Î¸í & ¹øÈ£
                If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1
            Else   '//¹øÈ£¿¡ ¾Æ¹«°Íµµ ¾ø´Â°æ¿ì
                dr.Á¤·Ä¹øÈ£ = dr.¼±·Î¸í & "0"                    'If SORTNULL Then dr.Á¤·Ä¹øÈ£ = dr.¼±·Î¸í & "0"
            End If
        Next
        NOTICE("Á¤·ÄÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù", Me.lb_msg)
    End Sub


    Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click
        CHk_Modify()
        Display_Data()
    End Sub

    Private Sub MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findtextlStripMenuItem.Click
        Dim Frow, Fcol As Integer
        Me.fp.Search(Me.fp.ActiveSheetIndex, InputBox("¼±ÅÃµÈ ¿­¿¡¼­ °Ë»öÇÒ ¹®ÀÚ¸¦ ÀÔ·ÂÇϼ¼¿ä."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol)
        If Frow >= 0 AndAlso Fcol >= 0 Then '//°Ë»öµÌ´Ù¸é
            Me.fp.ActiveSheet.SetActiveCell(Frow, Fcol)
            SendKeys.Send("{ENTER}")
        End If
    End Sub

    Private Sub cm_viewoldnum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_viewoldnum.Click
        Me.fp.ActiveSheet.Columns(4).Width = 80
        Me.fp.ActiveSheet.Columns(5).Width = 80
    End Sub

    Private Sub M_OLDSUNNUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub M_ONUMEQN_NUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_ONUMEQN_NUM.Click
        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸Àü»êÈ­¹øÈ£").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸¼±·Î¸í").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸ÀüÁÖ¹øÈ£").Index}

        Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("Àü»êÈ­¹øÈ£").Index, _
                                               Me.fp.ActiveSheet.Columns("¼±·Î¸í").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£1").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£2").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£3").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£4").Index, _
                                               Me.fp.ActiveSheet.Columns("¹øÈ£5").Index}

        NOTICE("Áߺ¹µÇ´Â [1. ±¸,½Å Àü»êÈ­¹øÈ£¹× ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ¸ðµÎ ÀÏÄ¡ÇÏ´Â °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.AdupCheckSR(0, Me.fp.ActiveSheet.RowCount - 1, A, B, Me.fp.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[1. ±¸,½Å Àü»êÈ­¹øÈ£¹× ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ¸ðµÎ ÀÏÄ¡ÇÏ´Â °æ¿ì] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)

    End Sub

    Private Sub ONUMNNUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ONUMNNUM.Click
        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder
        Dim fcnt As Integer = 0

        Me.pbar.Value = 0
        Me.pbar.Minimum = 0
        Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount

        NOTICE("Áߺ¹µÇ´Â [±¸ÀüÁÖ¹øÈ£] = [½ÅÀüÁÖ¹øÈ£]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        Me.Invalidate()
        For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows
            ¿øº» = Me.fp.ActiveSheet.Cells(A.Index, 9).Value & Me.fp.ActiveSheet.Cells(A.Index, 10).Value & Me.fp.ActiveSheet.Cells(A.Index, 11).Value & _
                     Me.fp.ActiveSheet.Cells(A.Index, 12).Value & Me.fp.ActiveSheet.Cells(A.Index, 13).Value
            ´ë»ó = Me.fp.ActiveSheet.Cells(A.Index, 5).Value

            If ¿øº».ToString <> "" Then
                If ¿øº».ToString = ´ë»ó.ToString Then
                    fcnt += 1
                    Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True
                    'Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ACheckBox_ColIndex).Value = True
                End If
            End If
            If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1
            Me.Invalidate()
        Next
        NOTICE("[±¸ÀüÁÖ¹øÈ£] = [½ÅÀüÁÖ¹øÈ£] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅ͸¦ ã¾Ò½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub cm_checkjisunju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_checkjisunju.Click
        '//Áö¼±ÁÖ ¿­¹øÈ£ 21 ¹ø.
        Dim A As New System.Text.StringBuilder("ÇöÀç üũµÈ Áö¼±ÁÖ¸¦ ¹«½ÃÇÏ°í »õ·Î °Ë»öÇÕ´Ï´Ù")
        A.AppendLine()
        A.AppendLine("°è¼ÓÇϽðڽÀ´Ï±î?(¿Ï·áÈÄ Ãë¼Ò°¡´É)")
        If MsgBox(A.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then Return

        Me.pbar.Minimum = 0
        Me.pbar.Value = 0
        Me.pbar.Maximum = Me.IreaDataSet1.jjutable.Count

        Dim JN As String
        For Each Dr As DataRow In Me.IreaDataSet1.jjutable.Rows
            pbar.Value += 1
            JN = Dr("¹øÈ£1") & Dr("¹øÈ£2") & Dr("¹øÈ£3") & Dr("¹øÈ£4") & Dr("¹øÈ£5")
            If JN.IndexOf("G") > -1 OrElse JN.IndexOf("K") > -1 Then
                Dr("Àμâ") = True
            Else
                Dr("Àμâ") = False
            End If
        Next
    End Sub

    Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click
        ReNum(Me.IreaDataSet1.jjutable, "¹øÈ£", Me.pbar)
    End Sub

    Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click
        For Each A As DataRow In Me.IreaDataSet1.jjutable.Rows
            A("Ãâ·Â") = True
        Next
    End Sub

    Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click
        For Each A As DataRow In Me.IreaDataSet1.jjutable.Rows
            A("Ãâ·Â") = False
        Next
    End Sub

    Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click
        For Each A As DataRow In Me.IreaDataSet1.jjutable.Rows
            A("Ãâ·Â") = Not A("Ãâ·Â")
        Next
    End Sub


    Private Sub cmbt_hnum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbt_hnum.Click
        Dim DT As ireaDataSet.jjutableDataTable

        DT = Me.IreaDataSet1.jjutable.Copy  '//Å×À̺íÀ» Ä«ÇÇÇß´Ù.

        Dim ÀüÁÖ¹øÈ£ As String
        Dim ±¸ÀüÁÖ As String
        For Each Dr As ireaDataSet.jjutableRow In DT.Rows
            '//ÇöÅ×À̺íÀÇ ¸ðµç ·Î¿ì·ÎºÎÅÍ ÀüÁÖ¹øÈ£¿¡ HÀմ³𸸠ã¾Æ¼­ Å×À̺íÀ» ±¸¼ºÇÑ´Ù.
            ÀüÁÖ¹øÈ£ = CStr(Dr.¹øÈ£1 & Dr.¹øÈ£2 & Dr.¹øÈ£3 & Dr.¹øÈ£4 & Dr.¹øÈ£5).ToUpper
            ±¸ÀüÁÖ = CStr(Dr.±¸ÀüÁÖ¹øÈ£).ToUpper
            If ÀüÁÖ¹øÈ£.IndexOf("H") < 0 AndAlso ±¸ÀüÁÖ.IndexOf("H") < 0 Then Dr.Delete()
            MsgBox(±¸ÀüÁÖ)

        Next
        DT.AcceptChanges()

        Me.fp.DataSource = DT
        Dim a As New SaveFileDialog
        a.Filter = "¿¢¼¿ ¿öÅ©½ÃÆ®ÆÄÀÏ(*.XLS)|*.XLS"
        a.FilterIndex = 0
        a.Title = "[¸ðµçµ¥ÀÌÅͳ»º¸³»±â] ÀúÀåÇÒ ¿¢¼¿ ÆÄÀÏÀ» ÁöÁ¤Çϼ¼¿ä"
        a.FileName = "HÆ÷ÇÔ¸ñ·Ï.xls"

        If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
            Dim msg As New System.Text.StringBuilder
            Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed)
            msg.AppendLine("³»º¸³»Áø ÆÄÀÏÀº ±âº»°ªÀ¸·Î [½ÃÆ®º¸È£]°¡ µÇ¾îÀÖ½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£] »óÅ¿¡¼­´Â ½ÃÆ®¸¦ ÆíÁýÇÒ ¼ö ¾ø½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£]¸¦ ÇØÁ¦ÇÏ·Á¸é  ÇØ´çÆÄÀÏÀ» ¿¢¼¿¿¡¼­ ºÒ·¯¿ÂÈÄ")
            msg.AppendLine("[µµ±¸]-[º¸È£]-[½ÃÆ®º¸È£ÇØÁ¦]¸¦ Ŭ¸¯Çϼ¼¿ä")
            MsgBox(msg.ToString, MsgBoxStyle.Information, "½ÃÆ®º¸È£")
        End If

        Me.fp.DataSource = Me.bs

    End Sub

    Private Sub CmbtnhnumToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbtnhnumToolStripMenuItem.Click
        Dim DT As ireaDataSet.jjutableDataTable

        DT = Me.IreaDataSet1.jjutable.Copy  '//Å×À̺íÀ» Ä«ÇÇÇß´Ù.

        Dim ÀüÁÖ¹øÈ£ As String
        Dim ±¸ÀüÁÖ As String
        For Each Dr As ireaDataSet.jjutableRow In DT.Rows
            '//ÇöÅ×À̺íÀÇ ¸ðµç ·Î¿ì·ÎºÎÅÍ ÀüÁÖ¹øÈ£¿¡ HÀմ³𸸠ã¾Æ¼­ Å×À̺íÀ» ±¸¼ºÇÑ´Ù.
            ÀüÁÖ¹øÈ£ = CStr(Dr.¹øÈ£1 & Dr.¹øÈ£2 & Dr.¹øÈ£3 & Dr.¹øÈ£4 & Dr.¹øÈ£5).ToUpper
            ±¸ÀüÁÖ = CStr(Dr.±¸ÀüÁÖ¹øÈ£).ToUpper

            If ÀüÁÖ¹øÈ£.IndexOf("H") >= 0 OrElse ±¸ÀüÁÖ.IndexOf("H") >= 0 Then Dr.Delete()
        Next
        DT.AcceptChanges()

        Me.fp.DataSource = DT
        Dim a As New SaveFileDialog
        a.Filter = "¿¢¼¿ ¿öÅ©½ÃÆ®ÆÄÀÏ(*.XLS)|*.XLS"
        a.FilterIndex = 0
        a.Title = "[¸ðµçµ¥ÀÌÅͳ»º¸³»±â] ÀúÀåÇÒ ¿¢¼¿ ÆÄÀÏÀ» ÁöÁ¤Çϼ¼¿ä"
        a.FileName = "HºñÆ÷ÇÔ¸ñ·Ï.xls"

        If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
            Dim msg As New System.Text.StringBuilder
            Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed)
            msg.AppendLine("³»º¸³»Áø ÆÄÀÏÀº ±âº»°ªÀ¸·Î [½ÃÆ®º¸È£]°¡ µÇ¾îÀÖ½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£] »óÅ¿¡¼­´Â ½ÃÆ®¸¦ ÆíÁýÇÒ ¼ö ¾ø½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£]¸¦ ÇØÁ¦ÇÏ·Á¸é  ÇØ´çÆÄÀÏÀ» ¿¢¼¿¿¡¼­ ºÒ·¯¿ÂÈÄ")
            msg.AppendLine("[µµ±¸]-[º¸È£]-[½ÃÆ®º¸È£ÇØÁ¦]¸¦ Ŭ¸¯Çϼ¼¿ä")
            MsgBox(msg.ToString, MsgBoxStyle.Information, "½ÃÆ®º¸È£")
        End If

        Me.fp.DataSource = Me.bs
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Me.bt_print.PerformClick()
    End Sub

    Private Sub bt_print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.Click

        Me.bs.EndEdit()
        If Me.fp.Cells("Ãâ·Â").Value = False Then
            MsgBox("ÇöÀç ¼±ÅÃµÈ ÁÙÀº Ãâ·ÂÀÌ µÇÁö¾Êµµ·Ï ¼³Á¤µÇ¾îÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            Return
        End If
        Dim A As New printform(Me.IreaDataSet1.jjutable, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex)
        If Admin Then
            A.Show()

        Else
            A.ShowDialog()

        End If
    End Sub

    Private Sub bt_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_2.Click
        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder
        Dim fcnt As Integer = 0

        Me.pbar.Value = 0
        Me.pbar.Minimum = 0
        Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount

        NOTICE("[±¸,½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ´Ù¸¥°æ¿ì(ÀüÁÖ¹øÈ£¿¡¼­ 'H' °¡ Àִ°æ¿ì)]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        Me.Invalidate()
        For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows

            ¿øº» = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("±¸¼±·Î¸í").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("±¸ÀüÁÖ¹øÈ£").Index).Text
            ´ë»ó = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¼±·Î¸í").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£1").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£2").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£3").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£4").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£5").Index).Text

            If (¿øº».ToUpper.IndexOf("H") >= 0 OrElse ´ë»ó.ToUpper.IndexOf("H") >= 0) AndAlso ¿øº».ToString <> "" Then '//¹øÈ£¿¡ H°¡ÀÖ°í
                If ¿øº».ToString <> ´ë»ó.ToString Then '//¼­·Î´Ù¸¥°æ¿ì
                    fcnt += 1
                    Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True
                End If
            End If
            If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1
            Me.Invalidate()
        Next
        NOTICE("[±¸,½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ´Ù¸¥°æ¿ì(ÀüÁÖ¹øÈ£¿¡¼­ 'H' °¡ Àִ°æ¿ì)] °Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)

    End Sub

    Private Sub bt_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_3.Click
        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder
        Dim fcnt As Integer = 0

        Me.pbar.Value = 0
        Me.pbar.Minimum = 0
        Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount

        NOTICE("[±¸,½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ´Ù¸¥°æ¿ì(ÀüÁÖ¹øÈ£¿¡¼­ 'H' °¡ ¾ø´Â°æ¿ì)]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        Me.Invalidate()
        For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows

            ¿øº» = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("±¸¼±·Î¸í").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("±¸ÀüÁÖ¹øÈ£").Index).Text
            ´ë»ó = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¼±·Î¸í").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£1").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£2").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£3").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£4").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£5").Index).Text

            If ¿øº».ToString <> "" AndAlso ¿øº».ToUpper.IndexOf("H") = -1 AndAlso ´ë»ó.ToUpper.IndexOf("H") = -1 Then '//µÑ´Ù ¹øÈ£¿¡ ¹øÈ£¿¡ H°¡¾ø°í
                If ¿øº».ToString <> ´ë»ó.ToString Then '//¼­·Î´Ù¸¥°æ¿ì
                    fcnt += 1
                    Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True
                End If
            End If
            If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1
            Me.Invalidate()
        Next
        NOTICE("[±¸,½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ´Ù¸¥°æ¿ì(ÀüÁÖ¹øÈ£¿¡¼­ 'H' °¡ ¾ø´Â°æ¿ì)] °Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub bt_20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_20.Click
        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸Àü»êÈ­¹øÈ£").Index}

        Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("Àü»êÈ­¹øÈ£").Index}

        NOTICE("[±¸,½Å Àü»êÈ­¹øÈ£°¡ ´Ù¸¥ °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.ADupCheckSr_inBlank(0, Me.fp.ActiveSheet.RowCount - 1, A, B, Me.fp.ACheckBox_ColIndex, Me.pbar, False)
        NOTICE("[±¸,½Å Àü»êÈ­¹øÈ£°¡ ´Ù¸¥ °æ¿ì] °Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub view1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles fp.CellClick

    End Sub

    Private Sub bt_dup_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim Áö¼±1, Áö¼±2 As String
        Dim fcnt As Integer = 0
        Dim bA() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸¼±·Î¸í").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸ÀüÁÖ¹øÈ£").Index}

        NOTICE("Áߺ¹µÇ´Â [±¸ ¼±·Î¸í, ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì : Áö¼±ÁÖ¹ÌÆ÷ÇÔ]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)

        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder

        If Not pbar Is Nothing Then
            pbar.Value = 0
            pbar.Minimum = 0
            pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1
        End If

        For A As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1
            ¿øº» = ""
            Áö¼±1 = ""

            For Each T As Short In bA
                ¿øº» &= Me.fp.ActiveSheet.Cells(A, T).Value
            Next
            Áö¼±1 = Me.fp.ActiveSheet.Cells(A, Me.fp.ActiveSheet.Columns("Áö¼±").Index).Text

            If ¿øº».Trim.ToString <> "" AndAlso Áö¼±1.ToUpper = "FALSE" Then
                For B As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1
                    Áö¼±2 = ""
                    If A <> B Then   '//°°Àº¶óÀÎÀº ÇÇÇÏ°í ±×·¸Áö ¾ÊÀº ¶óÀÎÀÇ ¹øÈ£¸¦ È®ÀÎÇÑ´Ù.
                        ´ë»ó = ""
                        For Each T As Short In bA
                            ´ë»ó &= Me.fp.ActiveSheet.Cells(B, T).Value
                        Next
                        Áö¼±2 = Me.fp.ActiveSheet.Cells(B, Me.fp.ActiveSheet.Columns("Áö¼±").Index).Text
                        '//¿øº»À̳ª ´ë»óÀÌ Áö¼±ÁÖ°¡ ¾Æ´Ï¿©¾ßÇÑ´Ù.
                        '//Áö¼±ÁÖÀ¯¹«´Â Ä÷³ÅÂ±× Áö¼± À¸·Î µÇ¾îÀÖ´Ù.
                        If Áö¼±2.ToUpper = "FALSE" AndAlso ¿øº».Trim.ToString = ´ë»ó.Trim.ToString Then  '//Áö¼±ÁÖÀÏ°æ¿ì¿¡´Â –A´Ù.
                            fcnt += 1
                            Me.fp.ActiveSheet.Cells(A, Me.fp.ACheckBox_ColIndex).Value = True
                            Me.fp.ActiveSheet.Cells(B, Me.fp.ACheckBox_ColIndex).Value = True

                        End If
                    End If
                Next
            End If
            If pbar.Value < pbar.Maximum Then pbar.Value += 1
            Me.Invalidate()
        Next
        'fcnt = Me.view1.Áߺ¹°Ë»ç2(0, Me.view1.ActiveSheet.RowCount - 1, A, A, Me.view1.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[±¸ ¼±·Î¸í, ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì :  Áö¼±ÁÖ¹ÌÆ÷ÇÔ] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub bt_savecolsize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savecolsize.Click
        Me.fp.ASetting_Save(False)
    End Sub

    Private Sub view1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles fp.LeaveCell
        Select Case Me.fp.ActiveColumn.Label.ToUpper
            Case "ˌ̫"
                Dim Drv As DataRowView = Me.bs.Current
                If Me.fp.ActiveSheet.Cells(e.Row, e.Column).Text <> "" Then
                    Drv("±âÀÔ") = False
                Else
                    Drv("±âÀÔ") = True
                End If

        End Select
    End Sub

    Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fp.Arin_Before_KeyDown
        ' view1_Arin_AddLog(sender, "¿ø·¡ºä¿¡¼­ÀÇ before_keydown ¿­¹øÈ£=" & Me.view1.ActiveSheet.ActiveColumnIndex)
        Select Case e.KeyCode
            Case Keys.Insert '//»ðÀÔ
                Me.bt_insertrow.PerformClick()
            Case Keys.F5
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf1.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf1.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf1.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Value = tbf1.Text.Trim()
                    End If
                End If
            Case Keys.F6
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf2.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf2.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf2.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Text = tbf2.Text.Trim()
                    End If
                End If
            Case Keys.F7
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf3.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf3.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf3.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Text = tbf3.Text.Trim()
                    End If
                End If
            Case Keys.F8
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf4.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf4.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf4.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Text = tbf4.Text.Trim()
                    End If
                End If
            Case Keys.F9
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf5.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf5.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf5.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Text = tbf5.Text.Trim()
                    End If
                End If
            Case Keys.F10
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf6.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf6.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf6.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Text = tbf6.Text.Trim()
                    End If
                End If
            Case Keys.F11
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf7.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf7.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf7.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Text = tbf7.Text.Trim()
                    End If
                End If
            Case Keys.F12
                e.Handled = True
                e.SuppressKeyPress = True
                If tbf8.Text <> "" Then
                    If fp_Sheet1.ActiveColumn.DataField = "½Ã°ø³â¿ù" Then
                        If Not IsNumeric(tbf8.Text) Then
                            MsgBox("¼ýÀÚ°ª¸¸ ÀÔ·ÂÇÒ ¼ö ÀÖ½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
                        Else
                            fp_Sheet1.ActiveCell.Value = CInt(tbf8.Text.Trim())
                        End If
                    Else
                        fp_Sheet1.ActiveCell.Text = tbf8.Text.Trim()
                    End If
                End If
            Case Keys.Enter '/¸¶Áö¸·ÁÙ¿¡ ¸¶Áö¸· ¿­ÀÌ¿³À¸¸é bt_insertrow
                With Me.fp.ActiveSheet
                    '  Me.Text = .ActiveRowIndex & "/" & .ActiveColumnIndex
                    Select Case .ActiveColumn.Label.ToUpper
                        Case "°ü¸®±¸A", "°ü¸®±¸B", "¹øÈ£A", "¹øÈ£B", "¼±·Î¸íA", "¼±·Î¸íB", "½Ã°ø³â¿ù", "½Ã°øÀÚ", "°¨µ¶ÀÚ", "Á¡°ËÀÏÀÚ", "D/L¸í"
                            If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then
                                .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text
                            End If
                        Case "ˌ̫"   '//ˌ̫
                            If .ActiveCell.Text = "" Then
                                Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text)
                                .ActiveCell.Text = Pnum
                                '//ÀåôÀ» º¹»çÇßÀ»´ë´Ù b06 06 µîÀ» °Ë»çÇÑ´Ù
                                Select Case Pnum.ToUpper
                                    Case "B06", "B6", "06"
                                        Me.fp.Cells2("ÀÎÀÔ").Value = True
                                        Me.fp.Cells2("±âÀÔ").Value = False
                                    Case Else
                                        Me.fp.Cells2("ÀÎÀÔ").Value = False
                                        Me.fp.Cells2("±âÀÔ").Value = False
                                End Select

                            End If
                        Case "A1"  '//ÀüÁÖ¹øÈ£1(¼±·Î¸íÀÌ °°À¸¸é ÀÌ µ¥ÀÌÅÍ º¹»ç)
                            '//¸ÕÀú ÇöÀçÁÙÀÇ À§Ä¡°¡ 1ÀÌ»óÀ̾î¾ß À­ÁÙ º¹»ç¸¦ ÇÒ¼öÀÖ´Ù.
                            '//±×¸®°í ÇöÀ缿¿¡ °ªÀÌ ¾ø¾î¾ßÇÑ´Ù.
                            If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then
                                If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("¼±·Î¸íB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("¼±·Î¸íB")).Text Then '//ÀüÁÙÀÇ ¼±·Î¸í°ú °°´Ù¸é
                                    .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text
                                    If .ActiveCell.Text = "Áö¼±ÁÖ" Then Me.fp.Cells2("Áö¼±").Value = True
                                End If
                            End If
                        Case "A2"  '//¹øÈ£2
                            If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//¼±·Î¸í,ÀüÁÖ¹øÈ£1ÀÌ °°´Ù¸é 2¹ø º¹»ç
                                If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("¼±·Î¸íB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("¼±·Î¸íB")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text Then
                                    .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text
                                End If
                            End If
                        Case "A3"  '//¹øÈ£3
                            If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//¼±·Î¸í,ÀüÁÖ¹øÈ£1ÀÌ °°´Ù¸é 2¹ø º¹»ç
                                If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("¼±·Î¸íB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("¼±·Î¸íB")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A2")).Text Then
                                    .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text
                                End If
                            End If
                        Case "A4"  '//¹øÈ£4
                            If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//¼±·Î¸í,ÀüÁÖ¹øÈ£1ÀÌ °°´Ù¸é 2¹ø º¹»ç
                                If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("¼±·Î¸íB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("¼±·Î¸íB")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A2")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A3")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A3")).Text Then
                                    .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text
                                End If
                            End If
                        Case "A5"  '//¹øÈ£5
                            If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//¼±·Î¸í,ÀüÁÖ¹øÈ£1ÀÌ °°´Ù¸é 2¹ø º¹»ç
                                If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("¼±·Î¸íB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("¼±·Î¸íB")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A2")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A3")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A3")).Text AndAlso _
                                   .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A4")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A4")).Text Then
                                    .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text
                                End If
                            End If
                    End Select
                End With

                'If Me.view1.ActiveSheet.ActiveRowIndex = Me.view1.ActiveSheet.RowCount - 1 Then '//¸¶Áö¸·ÁÙ¿¡
                '    If Me.view1.ANextRow_ColIndex = Me.view1.ActiveSheet.ActiveColumnIndex Then '//´ÙÀ½Áٷΰ¡¾ÆÁl °æ¿ì¶ó¸é
                '        Me.bt_addrow.PerformClick()
                '        Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount - 1, Me.view1.AFirstColumn_Index)
                '        e.Handled = True
                '    ElseIf Me.view1.ActiveSheet.ActiveColumnIndex = Me.view1.ActiveSheet.ColumnCount - 1 Then   '//¸¶Áö¸·¿­À̶ó¸é
                '        Me.bt_addrow.PerformClick()
                '        Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount - 1, Me.view1.AFirstColumn_Index)
                '        e.Handled = True
                '    End If
                'End If

        End Select
    End Sub

    Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles fp.Arin_Before_EditModeOff
        ' Me.view1_Arin_AddLog(sender, "¿ø·¡ºäÀÇ befoer_editmodeoff")
        With Me.fp.ActiveSheet
            Select Case .ActiveColumn.Label.ToUpper
                Case "Àåô" 'ÀåôÀÏ°æ¿ì 
                    If .ActiveCell.Text.Length = 1 Then .ActiveCell.Text = "0" & .ActiveCell.Text '//1ÀÚ¸®´Â ¾Õ¿¡ 0À» ä¿öÁØ´Ù.
                    Select Case .ActiveCell.Text.ToString.ToUpper
                        Case "B06", "B6", "06", "6"
                            Me.fp.Cells2("ÀÎÀÔ").Value = True    '//ÀÎÀÔ
                            Me.fp.Cells2("±âÀÔ").Value = False    '//±âÀÔ
                        Case ""   '3¿ù6ÀÏ ´Ù½Ã ºÎÈ°
                            Me.fp.Cells2("±âÀÔ").Value = True
                            Me.fp.Cells2("ÀÎÀÔ").Value = False
                        Case Else
                            Me.fp.Cells2("ÀÎÀÔ").Value = False
                            Me.fp.Cells2("±âÀÔ").Value = False
                    End Select
                Case "A1" '//ÀüÁÖ¹øÈ£1
                    If .ActiveCell.Text = "Áö¼±ÁÖ" OrElse .ActiveCell.Text = "Áö¼±" Then Me.fp.Cells2("Áö¼±").Value = True '//Áö¼±ÁÖÈ°¼ºÈ­

                Case "D/L¸í"   '//dl
                    If .ActiveCell.Value <> "" Then
                        If .ActiveCell.Value.ToString.IndexOf(";") = -1 Then '//d/l ¾øÀÌ ´Ù¸¥°Ô ÀÔ·ÂµÇ¸é ¾Õ¿¡ d/lÀ» ºÙ¿©ÁØ´Ù.
                            .ActiveCell.Value = "D/L;" & .ActiveCell.Value.ToString
                        End If
                    End If
            End Select
        End With
    End Sub

    Private Sub bt_datasort_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_datasort.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If MsgBox("Á¤·Äµ¥ÀÌÅ͸¦ ¸ðµÎ »èÁ¦ÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "È®ÀÎ") = MsgBoxResult.Ok Then
                For Each dr As ireaDataSet.jjutableRow In Me.IreaDataSet1.jjutable.Rows
                    dr.Á¤·Ä¹øÈ£ = ""
                Next
                NOTICE("Á¤·Äµ¥ÀÌÅÍ°¡ ÃʱâÈ­µÇ¾ú½À´Ï´Ù.", Me.lb_msg)
            End If
        End If
    End Sub

    Private Sub bt_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_11.Click
        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder
        Dim fcnt As Integer = 0

        Me.pbar.Value = 0
        Me.pbar.Minimum = 0
        Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount

        NOTICE("[±¸,½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ´Ù¸¥°æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        Me.Invalidate()
        For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows

            ¿øº» = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("±¸¼±·Î¸í").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("±¸ÀüÁÖ¹øÈ£").Index).Text
            ´ë»ó = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¼±·Î¸í").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£1").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£2").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£3").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£4").Index).Text & _
                     Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("¹øÈ£5").Index).Text

            If ¿øº».ToString <> "" Then '//µÑ´Ù ¹øÈ£¿¡ ¹øÈ£¿¡ H°¡¾ø°í
                If ¿øº».ToString <> ´ë»ó.ToString Then '//¼­·Î´Ù¸¥°æ¿ì
                    fcnt += 1
                    Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True
                End If
            End If
            If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1
            Me.Invalidate()
        Next
        NOTICE("[±¸,½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ ´Ù¸¥°æ¿ì] °Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub bt_201_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_201.Click
        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸°ü¸®±¸").Index,
                                               Me.fp.ActiveSheet.Columns("±¸Àü»êÈ­¹øÈ£").Index}

        Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("Àü»êÈ­¹øÈ£").Index}

        NOTICE("[±¸,½Å Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.AdupCheckSR(0, Me.fp.ActiveSheet.RowCount - 1, A, B, Me.fp.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[±¸,½Å Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì] °Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)


    End Sub

    Private Sub ToolStripMenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ToolStripMenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click
        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("Àü»êÈ­¹øÈ£").Index}

        NOTICE("Áߺ¹µÇ´Â [½Å Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[½Å Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
        Dim Áö¼±1, Áö¼±2 As String
        Dim fcnt As Integer = 0
        Dim ba() As Short = New Short() {Me.fp.ActiveSheet.Columns("¼±·Î¸í").Index, _
                                             Me.fp.ActiveSheet.Columns("¹øÈ£1").Index, _
                                             Me.fp.ActiveSheet.Columns("¹øÈ£2").Index, _
                                             Me.fp.ActiveSheet.Columns("¹øÈ£3").Index, _
                                             Me.fp.ActiveSheet.Columns("¹øÈ£4").Index, _
                                             Me.fp.ActiveSheet.Columns("¹øÈ£5").Index}

        NOTICE("Áߺ¹µÇ´Â [½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì : Áö¼±ÁÖ¹ÌÆ÷ÇÔ]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)

        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder

        If Not pbar Is Nothing Then
            pbar.Value = 0
            pbar.Minimum = 0
            pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1
        End If

        For A As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1
            ¿øº» = ""
            Áö¼±1 = ""

            For Each T As Short In ba
                ¿øº» &= Me.fp.ActiveSheet.Cells(A, T).Value
            Next
            Áö¼±1 = Me.fp.ActiveSheet.Cells(A, Me.fp.ActiveSheet.Columns("Áö¼±").Index).Text

            If ¿øº».Trim.ToString <> "" AndAlso Áö¼±1.ToUpper = "FALSE" Then
                For B As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1
                    Áö¼±2 = ""
                    If A <> B Then   '//°°Àº¶óÀÎÀº ÇÇÇÏ°í ±×·¸Áö ¾ÊÀº ¶óÀÎÀÇ ¹øÈ£¸¦ È®ÀÎÇÑ´Ù.
                        ´ë»ó = ""
                        For Each T As Short In ba
                            ´ë»ó &= Me.fp.ActiveSheet.Cells(B, T).Value
                        Next
                        Áö¼±2 = Me.fp.ActiveSheet.Cells(B, Me.fp.ActiveSheet.Columns("Áö¼±").Index).Text
                        '//¿øº»À̳ª ´ë»óÀÌ Áö¼±ÁÖ°¡ ¾Æ´Ï¿©¾ßÇÑ´Ù.
                        '//Áö¼±ÁÖÀ¯¹«´Â Ä÷³ÅÂ±× Áö¼± À¸·Î µÇ¾îÀÖ´Ù.
                        If Áö¼±2.ToUpper = "FALSE" AndAlso ¿øº».Trim.ToString = ´ë»ó.Trim.ToString Then  '//Áö¼±ÁÖÀÏ°æ¿ì¿¡´Â –A´Ù.
                            fcnt += 1
                            Me.fp.ActiveSheet.Cells(A, Me.fp.ACheckBox_ColIndex).Value = True
                            Me.fp.ActiveSheet.Cells(B, Me.fp.ACheckBox_ColIndex).Value = True
                        End If
                    End If
                Next
            End If
            If pbar.Value < pbar.Maximum Then pbar.Value += 1
            If (pbar.Value Mod 100) = 0 Then My.Application.DoEvents()

            Me.Invalidate()
        Next
        'fcnt = Me.view1.Áߺ¹°Ë»ç2(0, Me.view1.ActiveSheet.RowCount - 1, A, A, Me.view1.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[½Å ¼±·Î¸í,ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì :  Áö¼±ÁÖ¹ÌÆ÷ÇÔ] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub ToolStripMenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem12.Click

        Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸Àü»êÈ­¹øÈ£").Index}
        NOTICE("Áߺ¹µÇ´Â [±¸ Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[±¸ Àü»êÈ­¹øÈ£°¡ °°Àº °æ¿ì] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)

    End Sub

    Private Sub ToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem13.Click
        Dim Áö¼±1, Áö¼±2 As String
        Dim fcnt As Integer = 0
        Dim bA() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸¼±·Î¸í").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸ÀüÁÖ¹øÈ£").Index}

        NOTICE("Áߺ¹µÇ´Â [±¸ ¼±·Î¸í, ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì : Áö¼±ÁÖ¹ÌÆ÷ÇÔ]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)

        '''''°Ë»ö¹æ¹ýÀº 1¹ø°³Ã¼ºÎÅÍ ¸¶Áö¸·°³Ã¼±îÁö Ç®·çÇÁ¸¦ µ¹¸é¼­ µ¿ÀÏÇÑ ³ðÀ» ã´Â´Ù.
        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder

        If Not pbar Is Nothing Then
            pbar.Value = 0
            pbar.Minimum = 0
            pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1
        End If

        For A As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1
            ¿øº» = ""
            Áö¼±1 = ""

            For Each T As Short In bA
                ¿øº» &= Me.fp.ActiveSheet.Cells(A, T).Value
            Next
            Áö¼±1 = Me.fp.ActiveSheet.Cells(A, Me.fp.ActiveSheet.Columns("Áö¼±").Index).Text

            If ¿øº».Trim.ToString <> "" AndAlso Áö¼±1.ToUpper = "FALSE" Then
                For B As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1
                    Áö¼±2 = ""
                    If A <> B Then   '//°°Àº¶óÀÎÀº ÇÇÇÏ°í ±×·¸Áö ¾ÊÀº ¶óÀÎÀÇ ¹øÈ£¸¦ È®ÀÎÇÑ´Ù.
                        ´ë»ó = ""
                        For Each T As Short In bA
                            ´ë»ó &= Me.fp.ActiveSheet.Cells(B, T).Value
                        Next
                        Áö¼±2 = Me.fp.ActiveSheet.Cells(B, Me.fp.ActiveSheet.Columns("Áö¼±").Index).Text
                        '//¿øº»À̳ª ´ë»óÀÌ Áö¼±ÁÖ°¡ ¾Æ´Ï¿©¾ßÇÑ´Ù.
                        '//Áö¼±ÁÖÀ¯¹«´Â Ä÷³ÅÂ±× Áö¼± À¸·Î µÇ¾îÀÖ´Ù.
                        If Áö¼±2.ToUpper = "FALSE" AndAlso ¿øº».Trim.ToString = ´ë»ó.Trim.ToString Then  '//Áö¼±ÁÖÀÏ°æ¿ì¿¡´Â –A´Ù.
                            fcnt += 1
                            Me.fp.ActiveSheet.Cells(A, Me.fp.ACheckBox_ColIndex).Value = True
                            Me.fp.ActiveSheet.Cells(B, Me.fp.ACheckBox_ColIndex).Value = True

                        End If
                    End If
                Next
            End If
            If pbar.Value < pbar.Maximum Then pbar.Value += 1
            Me.Invalidate()
        Next
        'fcnt = Me.view1.Áߺ¹°Ë»ç2(0, Me.view1.ActiveSheet.RowCount - 1, A, A, Me.view1.ACheckBox_ColIndex, Me.pbar)
        NOTICE("[±¸ ¼±·Î¸í, ÀüÁÖ¹øÈ£°¡ °°Àº °æ¿ì :  Áö¼±ÁÖ¹ÌÆ÷ÇÔ] Áߺ¹°Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)

    End Sub

    Private Sub ToolStripButton4_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton4.Click

    End Sub

    Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs)
        bs.AddNew()
        '//ùÀ§Ä¡·Î º¯°æÇÑ´Ù.
        fp.ActiveSheet.SetActiveCell(fp.ActiveSheet.RowCount, fp.AFirstColumn_Index)

    End Sub

    Private Sub ±¸½ÅÀü»êÈ­¹øÈ£°¡µ¿ÀÏÇÑ°æ¿ìToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ±¸½ÅÀü»êÈ­¹øÈ£°¡µ¿ÀÏÇÑ°æ¿ìToolStripMenuItem.Click
        'Dim fcnt As Integer = 0
        Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("±¸°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("±¸Àü»êÈ­¹øÈ£").Index}

        Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("°ü¸®±¸").Index, _
                                               Me.fp.ActiveSheet.Columns("Àü»êÈ­¹øÈ£").Index}

        NOTICE("[±¸,½Å Àü»êÈ­¹øÈ£°¡ µ¿ÀÏÇÑ °æ¿ì(ÁÙÀÌ ´Ù¸§)]¸¦ ã´ÂÁßÀÔ´Ï´Ù...", Me.lb_msg)
        'fcnt = Me.view1.AdupCheckSR(0, Me.view1.ActiveSheet.RowCount - 1, A, B, Me.view1.ACheckBox_ColIndex, Me.pbar)


        Dim ¿øº», ´ë»ó As String 'New System.Text.StringBuilder
        Dim fcnt As Integer = 0
        Dim Can As Boolean = False

        pbar.Value = 0
        pbar.Minimum = 0
        pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1

        ''//±âÁ¸¼±ÅÃÀڷḦ ĵ½½ÇÑ´Ù.
        'For RowIndex As Integer = 0 To Me.view1.ActiveSheet.RowCount - 1
        '    Me.view1.ActiveSheet.Cells(RowIndex, Me.view1.ACheckBox_ColIndex).Value = False
        'Next

        For RowIndex As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1
            ¿øº» = ""

            '//±âÁ¸¼±ÅÃÀ» ¸ðµÎ ÇØÁ¦¸¦ ÇØÁØ´Ù.
            ' Me.view1.ActiveSheet.Cells(RowIndex, Me.view1.ACheckBox_ColIndex).Value = False

            '//¿øº»ÀÇ ±¸ Àü»êÈ­¹øÈ£
            For Each T As Short In A
                ¿øº» &= Me.fp.ActiveSheet.Cells(RowIndex, T).Value
            Next

            'If ¿øº» = "9593E421" Then
            '    Debug.WriteLine("dsf")
            'End If

            '//¿øº»Ç¥½Ã
            If ¿øº» = "" Then Continue For

            '//¼¼ºÎ³»¿ªÃß°¡·Î È®ÀÎ
            For RowIndex2 As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1

                If RowIndex = RowIndex2 Then Continue For '//µ¿ÀÏÇÑ ÁÙÀº Á¦¿Ü  170308

                ´ë»ó = ""

                '//¿©±â´Â ½Å Àü»êÈ­¹øÈ£
                For Each T As Short In B
                    ´ë»ó &= Me.fp.ActiveSheet.Cells(RowIndex2, T).Value
                Next
                If ´ë»ó = "" Then Continue For

                If ¿øº» = ´ë»ó Then
                    fcnt += 1
                    Me.fp.ActiveSheet.Cells(RowIndex, Me.fp.ACheckBox_ColIndex).Value = True
                    Me.fp.ActiveSheet.Cells(RowIndex2, Me.fp.ACheckBox_ColIndex).Value = True
                End If

            Next


            If pbar.Value < pbar.Maximum Then
                pbar.Value += 1
                pbar.Refresh()
            End If
        Next

        NOTICE("[±¸,½Å Àü»êÈ­¹øÈ£°¡ µ¿ÀÏÇÑ °æ¿ì(ÁÙÀÌ ´Ù¸§)] °Ë»ç ¿Ï·á(" & fcnt & "°³ÀÇ µ¥ÀÌÅÍ°¡ ¼±ÅõǾú½À´Ï´Ù)", Me.lb_msg)
    End Sub

    Private Sub ºä»óÅÂÃʱâÈ­ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ºä»óÅÂÃʱâÈ­ToolStripMenuItem.Click
        For c As Integer = 1 To fp_Sheet1.ColumnCount
            fp_Sheet1.Columns(c - 1).Width = 100
        Next
        Application.DoEvents()
    End Sub
End Class