..

2023-10-27 23:05:50 +09:00
parent 0b976ad2ab
commit ec0e3013c6
50 changed files with 4751 additions and 1383 deletions
--- a/ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb
@@ -42,6 +42,7 @@ Partial Class Frm_Bunbae
        Dim Label33 As System.Windows.Forms.Label
        Dim Label34 As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Bunbae))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.bs = New System.Windows.Forms.BindingSource(Me.components)
        Me.DS = New Eco2Ar.DS()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -88,6 +89,7 @@ Partial Class Frm_Bunbae
        Me.Label21 = New System.Windows.Forms.Label()
        Me.냉동기ComboBox = New Eco2Ar.MyCmb()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Label1 = New System.Windows.Forms.Label()
        Label2 = New System.Windows.Forms.Label()
@@ -330,6 +332,7 @@ Partial Class Frm_Bunbae
        Me.bs.DataMember = "tbl_bunbae"
        Me.bs.DataSource = Me.DS
        Me.bs.Filter = "code <> '0'"
+        Me.bs.Sort = "sortkey,설명"
        '
        'DS
        '
@@ -672,8 +675,7 @@ Partial Class Frm_Bunbae
        Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dv.ColumnHeadersHeight = 30
        Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        Me.dv.ColumnHeadersVisible = False
-        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
        Me.dv.DataSource = Me.bs
        Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dv.Location = New System.Drawing.Point(0, 0)
@@ -863,6 +865,16 @@ Partial Class Frm_Bunbae
        Me.PictureBox1.TabIndex = 124
        Me.PictureBox1.TabStop = False
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.Width = 30
+        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -955,5 +967,6 @@ Partial Class Frm_Bunbae
    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
 End Class
--- a/ArinWarev1/Forms_Input/Frm_Bunbae.resx
+++ b/ArinWarev1/Forms_Input/Frm_Bunbae.resx
@@ -177,6 +177,9 @@
  <metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>286, 17</value>
  </metadata>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>353, 17</value>
  </metadata>
--- a/ArinWarev1/Forms_Input/Frm_Bunbae.vb
+++ b/ArinWarev1/Forms_Input/Frm_Bunbae.vb
@@ -259,8 +259,20 @@
    Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
        e.Row.Item("code") = GetMaxCode(DSET1.tbl_bunbae)
        e.Row.Item("설명") = "신규데이터"
+        e.Row.Item("sortkey") = GetNewSortKey()
    End Sub

+    Private Function GetNewSortKey() As String
+        AddDebug("GetNewSortKey")
+
+        Dim drows() As DS.tbl_bunbaeRow = DSET1.tbl_bunbae.Select("code <> '0'", "sortkey desc")
+        If drows.Length < 1 Then Return 1
+        Dim Dr As DS.tbl_bunbaeRow = drows(0)
+        Dim maxsortkey As Integer = Dr.sortkey
+        Return maxsortkey + 1
+
+    End Function
+
 #Region "제어버튼"
    Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
        If Not EndEdit(Me.bs) Then Return
--- a/ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb
@@ -41,6 +41,7 @@ Partial Class Frm_NaengBang
        Dim Label14 As System.Windows.Forms.Label
        Dim Label15 As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_NaengBang))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.GroupBox18 = New System.Windows.Forms.GroupBox()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.cmb_신재생 = New Eco2Ar.MyCmb()
@@ -92,6 +93,7 @@ Partial Class Frm_NaengBang
        Me.chk_개별기기적용 = New System.Windows.Forms.CheckBox()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Label215 = New System.Windows.Forms.Label()
        Label216 = New System.Windows.Forms.Label()
@@ -439,6 +441,7 @@ Partial Class Frm_NaengBang
        Me.bs.DataMember = "tbl_nangbangkiki"
        Me.bs.DataSource = Me.DS
        Me.bs.Filter = "code <> '0'"
+        Me.bs.Sort = "sortkey,설명"
        '
        'DS
        '
@@ -762,8 +765,7 @@ Partial Class Frm_NaengBang
        Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dv.ColumnHeadersHeight = 30
        Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        Me.dv.ColumnHeadersVisible = False
-        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
        Me.dv.DataSource = Me.bs
        Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dv.Location = New System.Drawing.Point(0, 0)
@@ -902,6 +904,16 @@ Partial Class Frm_NaengBang
        Me.PictureBox4.TabIndex = 167
        Me.PictureBox4.TabStop = False
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.Width = 30
+        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -1000,5 +1012,6 @@ Partial Class Frm_NaengBang
    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
 End Class
--- a/ArinWarev1/Forms_Input/Frm_NaengBang.resx
+++ b/ArinWarev1/Forms_Input/Frm_NaengBang.resx
@@ -174,6 +174,9 @@
  <metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>81, 17</value>
  </metadata>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>148, 17</value>
  </metadata>
--- a/ArinWarev1/Forms_Input/Frm_NaengBang.vb
+++ b/ArinWarev1/Forms_Input/Frm_NaengBang.vb
@@ -336,8 +336,20 @@ Public Class Frm_NaengBang
    Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
        e.Row.Item("code") = GetMaxCode(DSET1.tbl_nangbangkiki)
        e.Row.Item("설명") = "신규데이터"
+        e.Row.Item("sortkey") = GetNewSortKey()
    End Sub

+    Private Function GetNewSortKey() As String
+        AddDebug("GetNewSortKey")
+
+        Dim drows() As DS.tbl_nangbangkikiRow = DSET1.tbl_nangbangkiki.Select("code <> '0'", "sortkey desc")
+        If drows.Length < 1 Then Return 1
+        Dim Dr As DS.tbl_nangbangkikiRow = drows(0)
+        Dim maxsortkey As Integer = Dr.sortkey
+        Return maxsortkey + 1
+
+    End Function
+
    Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        If e.Delta < 0 Then
            If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
--- a/ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb
@@ -58,6 +58,7 @@ Partial Class Frm_Nanbang
        Dim Label27 As System.Windows.Forms.Label
        Dim Label28 As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Nanbang))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.Label182 = New System.Windows.Forms.Label()
        Me.Label180 = New System.Windows.Forms.Label()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -157,6 +158,7 @@ Partial Class Frm_Nanbang
        Me.PictureBox14 = New System.Windows.Forms.PictureBox()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.PictureBox13 = New System.Windows.Forms.PictureBox()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Label165 = New System.Windows.Forms.Label()
        Label166 = New System.Windows.Forms.Label()
@@ -671,6 +673,7 @@ Partial Class Frm_Nanbang
        Me.bs.DataMember = "tbl_nanbangkiki"
        Me.bs.DataSource = Me.DS
        Me.bs.Filter = "code <> '0'"
+        Me.bs.Sort = "sortkey,설명"
        '
        'DS
        '
@@ -1332,8 +1335,7 @@ Partial Class Frm_Nanbang
        Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dv.ColumnHeadersHeight = 30
        Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        Me.dv.ColumnHeadersVisible = False
-        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn})
+        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.설명DataGridViewTextBoxColumn})
        Me.dv.DataSource = Me.bs
        Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dv.Location = New System.Drawing.Point(0, 0)
@@ -1717,6 +1719,16 @@ Partial Class Frm_Nanbang
        Me.PictureBox13.TabIndex = 169
        Me.PictureBox13.TabStop = False
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.Width = 30
+        '
        '설명DataGridViewTextBoxColumn
        '
        Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -1892,5 +1904,6 @@ Partial Class Frm_Nanbang
    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents 설명DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
 End Class
--- a/ArinWarev1/Forms_Input/Frm_Nanbang.resx
+++ b/ArinWarev1/Forms_Input/Frm_Nanbang.resx
@@ -225,6 +225,9 @@
  <metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>256, 17</value>
  </metadata>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>81, 17</value>
  </metadata>
--- a/ArinWarev1/Forms_Input/Frm_Nanbang.vb
+++ b/ArinWarev1/Forms_Input/Frm_Nanbang.vb
@@ -397,7 +397,19 @@
    Private Sub AddNewDataRow_nanbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
        e.Row.Item("code") = GetMaxCode(DSET1.tbl_nanbangkiki)
        e.Row.Item("설명") = "신규데이터"
+        e.Row.Item("sortkey") = GetNewSortKey()
    End Sub
+
+    Private Function GetNewSortKey() As String
+        AddDebug("GetNewSortKey")
+
+        Dim drows() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code <> '0'", "sortkey desc")
+        If drows.Length < 1 Then Return 1
+        Dim Dr As DS.tbl_nanbangkikiRow = drows(0)
+        Dim maxsortkey As Integer = Dr.sortkey
+        Return maxsortkey + 1
+
+    End Function
 #End Region

    Private Sub 신재생연결여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox.SelectedIndexChanged
--- a/ArinWarev1/Forms_Input/Frm_New.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_New.Designer.vb
@@ -75,13 +75,13 @@ Partial Class Frm_New
        Dim Label2 As System.Windows.Forms.Label
        Dim Label46 As System.Windows.Forms.Label
        Dim Label47 As System.Windows.Forms.Label
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
        Me.NTb1 = New Eco2Ar.MyTb()
        Me.NTb2 = New Eco2Ar.MyTb()
        Me.Panel6 = New System.Windows.Forms.Panel()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
        Me.dv = New CEnergy.arindv()
-        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.bs = New System.Windows.Forms.BindingSource(Me.components)
        Me.DS = New Eco2Ar.DS()
        Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
@@ -158,6 +158,8 @@ Partial Class Frm_New
        Me.Label164 = New System.Windows.Forms.Label()
        Me.cmb_가동연료 = New Eco2Ar.MyCmb()
        Me.NTb3 = New Eco2Ar.MyTb()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Label33 = New System.Windows.Forms.Label()
        Label25 = New System.Windows.Forms.Label()
        Label26 = New System.Windows.Forms.Label()
@@ -858,8 +860,7 @@ Partial Class Frm_New
        Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dv.ColumnHeadersHeight = 30
        Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        Me.dv.ColumnHeadersVisible = False
-        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
        Me.dv.DataSource = Me.bs
        Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dv.Location = New System.Drawing.Point(0, 0)
@@ -872,19 +873,12 @@ Partial Class Frm_New
        Me.dv.Size = New System.Drawing.Size(210, 535)
        Me.dv.TabIndex = 0
        '
-        'DataGridViewTextBoxColumn1
-        '
-        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
-        Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
-        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
-        Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
-        '
        'bs
        '
        Me.bs.DataMember = "tbl_new"
        Me.bs.DataSource = Me.DS
        Me.bs.Filter = "code <> '0'"
+        Me.bs.Sort = "sortkey,설명"
        '
        'DS
        '
@@ -1769,6 +1763,24 @@ Partial Class Frm_New
        Me.NTb3.TabIndex = 59
        Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.Width = 30
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
+        Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
+        '
        'Frm_New
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -1879,7 +1891,6 @@ Partial Class Frm_New
    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
    Friend WithEvents MyTb2 As Eco2Ar.MyTb
-    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents panWind As System.Windows.Forms.Panel
    Friend WithEvents MyTb3 As Eco2Ar.MyTb
@@ -1899,4 +1910,6 @@ Partial Class Frm_New
    Friend WithEvents MyTb6 As Eco2Ar.MyTb
    Friend WithEvents MyTb12 As Eco2Ar.MyTb
    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
+    Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
 End Class
--- a/ArinWarev1/Forms_Input/Frm_New.resx
+++ b/ArinWarev1/Forms_Input/Frm_New.resx
@@ -276,6 +276,9 @@
  <metadata name="Label47.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
--- a/ArinWarev1/Forms_Input/Frm_New.vb
+++ b/ArinWarev1/Forms_Input/Frm_New.vb
@@ -351,7 +351,19 @@
        ' MsgBox("new")
        e.Row.Item("code") = GetMaxCode(DSET1.tbl_new)
        e.Row.Item("설명") = "신규데이터"
+        e.Row.Item("sortkey") = GetNewSortKey()
    End Sub
+
+    Private Function GetNewSortKey() As String
+        AddDebug("GetNewSortKey")
+
+        Dim drows() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0'", "sortkey desc")
+        If drows.Length < 1 Then Return 1
+        Dim Dr As DS.tbl_newRow = drows(0)
+        Dim maxsortkey As Integer = Dr.sortkey
+        Return maxsortkey + 1
+
+    End Function
 #End Region

    Private Sub 태양열종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_태양열시스템종류.KeyDown
--- a/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb
@@ -46,9 +46,11 @@ Partial Class Frm_kongjo
        Dim Label172 As System.Windows.Forms.Label
        Dim Label167 As System.Windows.Forms.Label
        Dim Label171 As System.Windows.Forms.Label
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongjo))
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
        Me.dv = New CEnergy.arindv()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.bs = New System.Windows.Forms.BindingSource(Me.components)
        Me.DS = New Eco2Ar.DS()
@@ -61,6 +63,13 @@ Partial Class Frm_kongjo
        Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
        Me.lb_code = New System.Windows.Forms.ToolStripLabel()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.공기식태양열적용ComboBox = New Eco2Ar.MyCmb()
+        Me.Tb_집열기면적 = New Eco2Ar.MyTb()
+        Me.집열기방위ComboBox = New Eco2Ar.MyCmb()
+        Me.Tb_집열기방사율 = New Eco2Ar.MyTb()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -79,14 +88,10 @@ Partial Class Frm_kongjo
        Me.tb_01 = New Eco2Ar.MyTb()
        Me.tb_02 = New Eco2Ar.MyTb()
        Me.tb_03 = New Eco2Ar.MyTb()
-        Me.Tb_집열기방사율 = New Eco2Ar.MyTb()
        Me.tb_13 = New Eco2Ar.MyTb()
        Me.열교환기유형ComboBox = New Eco2Ar.MyCmb()
        Me.리턴공기혼합여부ComboBox = New Eco2Ar.MyCmb()
-        Me.집열기방위ComboBox = New Eco2Ar.MyCmb()
        Me.가습기유형ComboBox = New Eco2Ar.MyCmb()
-        Me.Tb_집열기면적 = New Eco2Ar.MyTb()
-        Me.공기식태양열적용ComboBox = New Eco2Ar.MyCmb()
        Me.tb_08 = New Eco2Ar.MyTb()
        Me.외기냉방제어유무ComboBox = New Eco2Ar.MyCmb()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
@@ -95,6 +100,7 @@ Partial Class Frm_kongjo
        Me.tb_zone_cnt = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label48 = New System.Windows.Forms.Label()
+        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Label7 = New System.Windows.Forms.Label()
        Label176 = New System.Windows.Forms.Label()
        Label6 = New System.Windows.Forms.Label()
@@ -127,12 +133,15 @@ Partial Class Frm_kongjo
        CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.bn.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox2.SuspendLayout()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Label7
@@ -248,7 +257,7 @@ Partial Class Frm_kongjo
        Label11.AutoSize = True
        Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
        Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label11.Location = New System.Drawing.Point(6, 392)
+        Label11.Location = New System.Drawing.Point(8, 90)
        Label11.Name = "Label11"
        Label11.Size = New System.Drawing.Size(114, 12)
        Label11.TabIndex = 14
@@ -293,7 +302,7 @@ Partial Class Frm_kongjo
        Label9.AutoSize = True
        Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
        Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label9.Location = New System.Drawing.Point(6, 344)
+        Label9.Location = New System.Drawing.Point(8, 42)
        Label9.Name = "Label9"
        Label9.Size = New System.Drawing.Size(80, 12)
        Label9.TabIndex = 10
@@ -304,7 +313,7 @@ Partial Class Frm_kongjo
        Label8.AutoSize = True
        Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
        Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label8.Location = New System.Drawing.Point(6, 320)
+        Label8.Location = New System.Drawing.Point(8, 18)
        Label8.Name = "Label8"
        Label8.Size = New System.Drawing.Size(119, 12)
        Label8.TabIndex = 10
@@ -360,7 +369,7 @@ Partial Class Frm_kongjo
        Label10.AutoSize = True
        Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
        Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label10.Location = New System.Drawing.Point(6, 367)
+        Label10.Location = New System.Drawing.Point(8, 65)
        Label10.Name = "Label10"
        Label10.Size = New System.Drawing.Size(107, 12)
        Label10.TabIndex = 10
@@ -416,6 +425,9 @@ Partial Class Frm_kongjo
        'SplitContainer1.Panel2
        '
        Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White
+        Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Label12)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3)
        Me.SplitContainer1.Panel2.Controls.Add(Me.Label15)
        Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4)
        Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2)
@@ -437,8 +449,7 @@ Partial Class Frm_kongjo
        Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dv.ColumnHeadersHeight = 30
        Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        Me.dv.ColumnHeadersVisible = False
-        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
        Me.dv.DataSource = Me.bs
        Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dv.Location = New System.Drawing.Point(0, 0)
@@ -451,6 +462,16 @@ Partial Class Frm_kongjo
        Me.dv.Size = New System.Drawing.Size(207, 532)
        Me.dv.TabIndex = 0
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle2
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.Width = 30
+        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -464,6 +485,7 @@ Partial Class Frm_kongjo
        Me.bs.DataMember = "tbl_kongjo"
        Me.bs.DataSource = Me.DS
        Me.bs.Filter = "code <> '0'"
+        Me.bs.Sort = "sortkey,설명"
        '
        'DS
        '
@@ -551,6 +573,87 @@ Partial Class Frm_kongjo
        Me.lb_code.Size = New System.Drawing.Size(47, 37)
        Me.lb_code.Text = "[0000]"
        '
+        'GroupBox3
+        '
+        Me.GroupBox3.BackColor = System.Drawing.Color.White
+        Me.GroupBox3.Controls.Add(Me.공기식태양열적용ComboBox)
+        Me.GroupBox3.Controls.Add(Me.Tb_집열기면적)
+        Me.GroupBox3.Controls.Add(Me.집열기방위ComboBox)
+        Me.GroupBox3.Controls.Add(Label10)
+        Me.GroupBox3.Controls.Add(Label11)
+        Me.GroupBox3.Controls.Add(Label8)
+        Me.GroupBox3.Controls.Add(Me.Tb_집열기방사율)
+        Me.GroupBox3.Controls.Add(Label9)
+        Me.GroupBox3.Controls.Add(Me.PictureBox5)
+        Me.GroupBox3.Location = New System.Drawing.Point(20, 442)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(277, 115)
+        Me.GroupBox3.TabIndex = 157
+        Me.GroupBox3.TabStop = False
+        '
+        '공기식태양열적용ComboBox
+        '
+        Me.공기식태양열적용ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.공기식태양열적용ComboBox.FormattingEnabled = True
+        Me.공기식태양열적용ComboBox.Items.AddRange(New Object() {"예", "아니오"})
+        Me.공기식태양열적용ComboBox.Location = New System.Drawing.Point(152, 14)
+        Me.공기식태양열적용ComboBox.Name = "공기식태양열적용ComboBox"
+        Me.공기식태양열적용ComboBox.NectControl = Nothing
+        Me.공기식태양열적용ComboBox.Size = New System.Drawing.Size(119, 20)
+        Me.공기식태양열적용ComboBox.TabIndex = 10
+        '
+        'Tb_집열기면적
+        '
+        Me.Tb_집열기면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기면적", True))
+        Me.Tb_집열기면적.Location = New System.Drawing.Point(152, 62)
+        Me.Tb_집열기면적.Name = "Tb_집열기면적"
+        Me.Tb_집열기면적.NectControl = Nothing
+        Me.Tb_집열기면적.Size = New System.Drawing.Size(119, 21)
+        Me.Tb_집열기면적.TabIndex = 12
+        Me.Tb_집열기면적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
+        '
+        '집열기방위ComboBox
+        '
+        Me.집열기방위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.집열기방위ComboBox.FormattingEnabled = True
+        Me.집열기방위ComboBox.Items.AddRange(New Object() {"없음", "남", "남동", "남서", "동", "서", "북동", "북서", "북"})
+        Me.집열기방위ComboBox.Location = New System.Drawing.Point(152, 38)
+        Me.집열기방위ComboBox.Name = "집열기방위ComboBox"
+        Me.집열기방위ComboBox.NectControl = Nothing
+        Me.집열기방위ComboBox.Size = New System.Drawing.Size(119, 20)
+        Me.집열기방위ComboBox.TabIndex = 11
+        '
+        'Tb_집열기방사율
+        '
+        Me.Tb_집열기방사율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기방사율", True))
+        Me.Tb_집열기방사율.Location = New System.Drawing.Point(152, 87)
+        Me.Tb_집열기방사율.Name = "Tb_집열기방사율"
+        Me.Tb_집열기방사율.NectControl = Nothing
+        Me.Tb_집열기방사율.Size = New System.Drawing.Size(119, 21)
+        Me.Tb_집열기방사율.TabIndex = 13
+        Me.Tb_집열기방사율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
+        Me.Label12.ForeColor = System.Drawing.Color.White
+        Me.Label12.Location = New System.Drawing.Point(27, 421)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(132, 12)
+        Me.Label12.TabIndex = 156
+        Me.Label12.Text = "신재생: 공기식태양열"
+        '
+        'PictureBox3
+        '
+        Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
+        Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox3.Location = New System.Drawing.Point(20, 410)
+        Me.PictureBox3.Name = "PictureBox3"
+        Me.PictureBox3.Size = New System.Drawing.Size(175, 30)
+        Me.PictureBox3.TabIndex = 155
+        Me.PictureBox3.TabStop = False
+        '
        'Label15
        '
        Me.Label15.AutoSize = True
@@ -705,34 +808,26 @@ Partial Class Frm_kongjo
        Me.GroupBox1.Controls.Add(Me.tb_01)
        Me.GroupBox1.Controls.Add(Me.tb_02)
        Me.GroupBox1.Controls.Add(Me.tb_03)
-        Me.GroupBox1.Controls.Add(Label11)
-        Me.GroupBox1.Controls.Add(Me.Tb_집열기방사율)
        Me.GroupBox1.Controls.Add(Label1)
        Me.GroupBox1.Controls.Add(Me.tb_13)
        Me.GroupBox1.Controls.Add(Label174)
        Me.GroupBox1.Controls.Add(Label169)
        Me.GroupBox1.Controls.Add(Me.열교환기유형ComboBox)
-        Me.GroupBox1.Controls.Add(Label9)
-        Me.GroupBox1.Controls.Add(Label8)
        Me.GroupBox1.Controls.Add(Label175)
        Me.GroupBox1.Controls.Add(Label170)
        Me.GroupBox1.Controls.Add(Label168)
        Me.GroupBox1.Controls.Add(Label173)
-        Me.GroupBox1.Controls.Add(Label10)
        Me.GroupBox1.Controls.Add(Label172)
        Me.GroupBox1.Controls.Add(Label167)
        Me.GroupBox1.Controls.Add(Label171)
        Me.GroupBox1.Controls.Add(Me.리턴공기혼합여부ComboBox)
-        Me.GroupBox1.Controls.Add(Me.집열기방위ComboBox)
        Me.GroupBox1.Controls.Add(Me.가습기유형ComboBox)
-        Me.GroupBox1.Controls.Add(Me.Tb_집열기면적)
-        Me.GroupBox1.Controls.Add(Me.공기식태양열적용ComboBox)
        Me.GroupBox1.Controls.Add(Me.tb_08)
        Me.GroupBox1.Controls.Add(Me.외기냉방제어유무ComboBox)
        Me.GroupBox1.Controls.Add(Me.PictureBox1)
        Me.GroupBox1.Location = New System.Drawing.Point(20, 83)
        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(277, 434)
+        Me.GroupBox1.Size = New System.Drawing.Size(277, 322)
        Me.GroupBox1.TabIndex = 5
        Me.GroupBox1.TabStop = False
        '
@@ -776,16 +871,6 @@ Partial Class Frm_kongjo
        Me.tb_03.TabIndex = 3
        Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
        '
-        'Tb_집열기방사율
-        '
-        Me.Tb_집열기방사율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기방사율", True))
-        Me.Tb_집열기방사율.Location = New System.Drawing.Point(150, 389)
-        Me.Tb_집열기방사율.Name = "Tb_집열기방사율"
-        Me.Tb_집열기방사율.NectControl = Nothing
-        Me.Tb_집열기방사율.Size = New System.Drawing.Size(119, 21)
-        Me.Tb_집열기방사율.TabIndex = 13
-        Me.Tb_집열기방사율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
-        '
        'tb_13
        '
        Me.tb_13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율냉", True))
@@ -816,17 +901,6 @@ Partial Class Frm_kongjo
        Me.리턴공기혼합여부ComboBox.Size = New System.Drawing.Size(119, 20)
        Me.리턴공기혼합여부ComboBox.TabIndex = 4
        '
-        '집열기방위ComboBox
-        '
-        Me.집열기방위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.집열기방위ComboBox.FormattingEnabled = True
-        Me.집열기방위ComboBox.Items.AddRange(New Object() {"없음", "남", "남동", "남서", "동", "서", "북동", "북서", "북"})
-        Me.집열기방위ComboBox.Location = New System.Drawing.Point(150, 340)
-        Me.집열기방위ComboBox.Name = "집열기방위ComboBox"
-        Me.집열기방위ComboBox.NectControl = Nothing
-        Me.집열기방위ComboBox.Size = New System.Drawing.Size(119, 20)
-        Me.집열기방위ComboBox.TabIndex = 11
-        '
        '가습기유형ComboBox
        '
        Me.가습기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -837,27 +911,6 @@ Partial Class Frm_kongjo
        Me.가습기유형ComboBox.Size = New System.Drawing.Size(119, 20)
        Me.가습기유형ComboBox.TabIndex = 5
        '
-        'Tb_집열기면적
-        '
-        Me.Tb_집열기면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기면적", True))
-        Me.Tb_집열기면적.Location = New System.Drawing.Point(150, 364)
-        Me.Tb_집열기면적.Name = "Tb_집열기면적"
-        Me.Tb_집열기면적.NectControl = Nothing
-        Me.Tb_집열기면적.Size = New System.Drawing.Size(119, 21)
-        Me.Tb_집열기면적.TabIndex = 12
-        Me.Tb_집열기면적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
-        '
-        '공기식태양열적용ComboBox
-        '
-        Me.공기식태양열적용ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.공기식태양열적용ComboBox.FormattingEnabled = True
-        Me.공기식태양열적용ComboBox.Items.AddRange(New Object() {"예", "아니오"})
-        Me.공기식태양열적용ComboBox.Location = New System.Drawing.Point(150, 316)
-        Me.공기식태양열적용ComboBox.Name = "공기식태양열적용ComboBox"
-        Me.공기식태양열적용ComboBox.NectControl = Nothing
-        Me.공기식태양열적용ComboBox.Size = New System.Drawing.Size(119, 20)
-        Me.공기식태양열적용ComboBox.TabIndex = 10
-        '
        'tb_08
        '
        Me.tb_08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율", True))
@@ -883,7 +936,7 @@ Partial Class Frm_kongjo
        Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
        Me.PictureBox1.Location = New System.Drawing.Point(1, 9)
        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(273, 419)
+        Me.PictureBox1.Size = New System.Drawing.Size(273, 309)
        Me.PictureBox1.TabIndex = 11
        Me.PictureBox1.TabStop = False
        '
@@ -905,7 +958,7 @@ Partial Class Frm_kongjo
        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextBox1.BackColor = System.Drawing.SystemColors.GrayText
        Me.TextBox1.ForeColor = System.Drawing.Color.White
-        Me.TextBox1.Location = New System.Drawing.Point(481, 5)
+        Me.TextBox1.Location = New System.Drawing.Point(453, 5)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(99, 21)
        Me.TextBox1.TabIndex = 1
@@ -917,7 +970,7 @@ Partial Class Frm_kongjo
        Me.tb_zone_cnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tb_zone_cnt.BackColor = System.Drawing.SystemColors.GrayText
        Me.tb_zone_cnt.ForeColor = System.Drawing.Color.White
-        Me.tb_zone_cnt.Location = New System.Drawing.Point(290, 5)
+        Me.tb_zone_cnt.Location = New System.Drawing.Point(262, 5)
        Me.tb_zone_cnt.Name = "tb_zone_cnt"
        Me.tb_zone_cnt.Size = New System.Drawing.Size(58, 21)
        Me.tb_zone_cnt.TabIndex = 1
@@ -929,7 +982,7 @@ Partial Class Frm_kongjo
        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label2.AutoSize = True
        Me.Label2.ForeColor = System.Drawing.Color.DarkCyan
-        Me.Label2.Location = New System.Drawing.Point(354, 9)
+        Me.Label2.Location = New System.Drawing.Point(326, 9)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(118, 12)
        Me.Label2.TabIndex = 0
@@ -941,13 +994,22 @@ Partial Class Frm_kongjo
        Me.Label48.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label48.AutoSize = True
        Me.Label48.ForeColor = System.Drawing.Color.DarkCyan
-        Me.Label48.Location = New System.Drawing.Point(172, 9)
+        Me.Label48.Location = New System.Drawing.Point(144, 9)
        Me.Label48.Name = "Label48"
        Me.Label48.Size = New System.Drawing.Size(111, 12)
        Me.Label48.TabIndex = 0
        Me.Label48.Text = "적용된 입력존 수:"
        Me.Label48.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
+        'PictureBox5
+        '
+        Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
+        Me.PictureBox5.Location = New System.Drawing.Point(1, 9)
+        Me.PictureBox5.Name = "PictureBox5"
+        Me.PictureBox5.Size = New System.Drawing.Size(273, 102)
+        Me.PictureBox5.TabIndex = 158
+        Me.PictureBox5.TabStop = False
+        '
        'Frm_kongjo
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -971,6 +1033,9 @@ Partial Class Frm_kongjo
        CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
        Me.bn.ResumeLayout(False)
        Me.bn.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
@@ -980,6 +1045,7 @@ Partial Class Frm_kongjo
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
@@ -1026,9 +1092,14 @@ Partial Class Frm_kongjo
    Friend WithEvents Cmb_팬효율산출방식 As Eco2Ar.MyCmb
    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Tb_집열기방사율 As Eco2Ar.MyTb
    Friend WithEvents 집열기방위ComboBox As Eco2Ar.MyCmb
    Friend WithEvents Tb_집열기면적 As Eco2Ar.MyTb
    Friend WithEvents 공기식태양열적용ComboBox As Eco2Ar.MyCmb
+    Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
+    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
 End Class
--- a/ArinWarev1/Forms_Input/Frm_kongjo.resx
+++ b/ArinWarev1/Forms_Input/Frm_kongjo.resx
@@ -186,16 +186,116 @@
  <metadata name="Label171.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>222, 17</value>
+  </metadata>
+  <metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>353, 17</value>
+  </metadata>
  <metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>222, 17</value>
  </metadata>
  <metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>286, 17</value>
  </metadata>
-  <metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>353, 17</value>
-  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PictureBox3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
+        AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
+        AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
+        V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
+        AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
+        ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
+        b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
+        DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
+        DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
+        BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
+        BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
+        klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
+        1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
+        8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
+        5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
+        UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
+        zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
+        341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
+        AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
+        c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
+        WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
+        bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
+        UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
+        AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
+        81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
+        YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
+        LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
+        Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
+        b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
+        Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
+        bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
+        AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
+        AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
+        ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
+        AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
+        AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
+        AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
+        A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
+        BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
+        BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
+        CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
+        C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
+        DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
+        EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
+        FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
+        GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
+        H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
+        JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
+        KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
+        MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
+        N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
+        PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
+        RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
+        TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
+        V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
+        YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
+        a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
+        deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
+        gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
+        jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
+        mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
+        phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
+        s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
+        wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
+        0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
+        4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
+        8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
+        AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
+        AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
+        AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
+        BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
+        8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
+        hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
+        6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
+        BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
+        ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
+        qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
+        AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
+        H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
+        /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
+        AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
+        k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
+        nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
+        Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
+        UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
+        s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
+        ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
+</value>
+  </data>
  <data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
@@ -290,6 +390,12 @@
        ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
 </value>
  </data>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>286, 17</value>
+  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>45</value>
  </metadata>
--- a/ArinWarev1/Forms_Input/Frm_kongjo.vb
+++ b/ArinWarev1/Forms_Input/Frm_kongjo.vb
@@ -88,6 +88,7 @@ Public Class Frm_kongjo
        'Work_msg_timer("잠시만 기다려주세요")


+
        Me.bs.DataSource = DSET1
        '//공조처리
        AddHandler DSET1.tbl_kongjo.TableNewRow, AddressOf AddNewDataRow_kongjo
@@ -191,7 +192,20 @@ Public Class Frm_kongjo
        e.Row.Item("팬효율산출방식") = "계산치"
        e.Row.Item("설명") = "신규데이터"
        e.Row.Item("공조방식") = Me.Parameter   '//현재선택된데이터로 공조방식을 처리해준다.
+        e.Row.Item("sortkey") = GetNewSortKey()
    End Sub
+
+    Private Function GetNewSortKey() As String
+        AddDebug("GetNewSortKey")
+
+        Dim drows() As DS.tbl_kongjoRow = DSET1.tbl_kongjo.Select("code <> '0'", "sortkey desc")
+        If drows.Length < 1 Then Return 1
+        Dim Dr As DS.tbl_kongjoRow = drows(0)
+        Dim maxsortkey As Integer = Dr.sortkey
+        Return maxsortkey + 1
+
+    End Function
+
    Private Sub AddNewDataRow_Zone_Changed(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)

    End Sub
--- a/ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb
@@ -37,6 +37,7 @@ Partial Class Frm_kongkub
        Dim Label17 As System.Windows.Forms.Label
        Dim Label18 As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongkub))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.bs = New System.Windows.Forms.BindingSource(Me.components)
        Me.DS = New Eco2Ar.DS()
        Me.전기난방GroupBox = New System.Windows.Forms.GroupBox()
@@ -86,6 +87,7 @@ Partial Class Frm_kongkub
        Me.Label11 = New System.Windows.Forms.Label()
        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Label1 = New System.Windows.Forms.Label()
        Label2 = New System.Windows.Forms.Label()
@@ -275,6 +277,7 @@ Partial Class Frm_kongkub
        Me.bs.DataMember = "tbl_kongkub"
        Me.bs.DataSource = Me.DS
        Me.bs.Filter = "code <> '0'"
+        Me.bs.Sort = "sortkey, 설명"
        '
        'DS
        '
@@ -664,8 +667,7 @@ Partial Class Frm_kongkub
        Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dv.ColumnHeadersHeight = 30
        Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        Me.dv.ColumnHeadersVisible = False
-        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
        Me.dv.DataSource = Me.bs
        Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dv.Location = New System.Drawing.Point(0, 0)
@@ -812,6 +814,16 @@ Partial Class Frm_kongkub
        Me.Panel1.Size = New System.Drawing.Size(588, 30)
        Me.Panel1.TabIndex = 5
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.Width = 30
+        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -917,5 +929,6 @@ Partial Class Frm_kongkub
    Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox
    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
 End Class
--- a/ArinWarev1/Forms_Input/Frm_kongkub.resx
+++ b/ArinWarev1/Forms_Input/Frm_kongkub.resx
@@ -162,6 +162,9 @@
  <metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>286, 17</value>
  </metadata>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>353, 17</value>
  </metadata>
--- a/ArinWarev1/Forms_Input/Frm_kongkub.vb
+++ b/ArinWarev1/Forms_Input/Frm_kongkub.vb
@@ -290,8 +290,20 @@
    Private Sub AddNewDataRow_kongkub(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
        e.Row.Item("code") = GetMaxCode(DSET1.tbl_kongkub)
        e.Row.Item("설명") = "신규데이터"
+        e.Row.Item("sortkey") = GetNewSortKey()
    End Sub

+    Private Function GetNewSortKey() As String
+        AddDebug("GetNewSortKey")
+
+        Dim drows() As DS.tbl_kongkubRow = DSET1.tbl_kongkub.Select("code <> '0'", "sortkey desc")
+        If drows.Length < 1 Then Return 1
+        Dim Dr As DS.tbl_kongkubRow = drows(0)
+        Dim maxsortkey As Integer = Dr.sortkey
+        Return maxsortkey + 1
+
+    End Function
+
 #End Region

    Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
--- a/ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb
@@ -23,21 +23,19 @@ Partial Class Frm_nBunbae
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim Label11 As System.Windows.Forms.Label
-        Dim Label10 As System.Windows.Forms.Label
-        Dim Label9 As System.Windows.Forms.Label
-        Dim Label8 As System.Windows.Forms.Label
        Dim Label6 As System.Windows.Forms.Label
-        Dim Label18 As System.Windows.Forms.Label
-        Dim Label17 As System.Windows.Forms.Label
-        Dim Label16 As System.Windows.Forms.Label
+        Dim Label8 As System.Windows.Forms.Label
+        Dim Label9 As System.Windows.Forms.Label
+        Dim Label10 As System.Windows.Forms.Label
+        Dim Label11 As System.Windows.Forms.Label
        Dim Label15 As System.Windows.Forms.Label
+        Dim Label16 As System.Windows.Forms.Label
+        Dim Label17 As System.Windows.Forms.Label
+        Dim Label18 As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_nBunbae))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.bs = New System.Windows.Forms.BindingSource(Me.components)
        Me.DS = New Eco2Ar.DS()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label19 = New System.Windows.Forms.Label()
-        Me.Label225 = New System.Windows.Forms.Label()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
        Me.dv = New CEnergy.arindv()
        Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
@@ -68,19 +66,23 @@ Partial Class Frm_nBunbae
        Me.열분배PictureBox = New System.Windows.Forms.PictureBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.cmb_배관망유형 = New Eco2Ar.MyCmb()
+        Me.Label1 = New System.Windows.Forms.Label()
        Me.cmb_표준치적용 = New Eco2Ar.MyCmb()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.Label225 = New System.Windows.Forms.Label()
        Me.cmb_생산기기구분 = New Eco2Ar.MyCmb()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Label11 = New System.Windows.Forms.Label()
-        Label10 = New System.Windows.Forms.Label()
-        Label9 = New System.Windows.Forms.Label()
-        Label8 = New System.Windows.Forms.Label()
        Label6 = New System.Windows.Forms.Label()
-        Label18 = New System.Windows.Forms.Label()
-        Label17 = New System.Windows.Forms.Label()
-        Label16 = New System.Windows.Forms.Label()
+        Label8 = New System.Windows.Forms.Label()
+        Label9 = New System.Windows.Forms.Label()
+        Label10 = New System.Windows.Forms.Label()
+        Label11 = New System.Windows.Forms.Label()
        Label15 = New System.Windows.Forms.Label()
+        Label16 = New System.Windows.Forms.Label()
+        Label17 = New System.Windows.Forms.Label()
+        Label18 = New System.Windows.Forms.Label()
        CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -99,38 +101,16 @@ Partial Class Frm_nBunbae
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
-        'Label11
+        'Label6
        '
-        Label11.AutoSize = True
-        Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
-        Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label11.Location = New System.Drawing.Point(9, 42)
-        Label11.Name = "Label11"
-        Label11.Size = New System.Drawing.Size(118, 12)
-        Label11.TabIndex = 125
-        Label11.Text = "건물길이(x축)[m]:"
-        '
-        'Label10
-        '
-        Label10.AutoSize = True
-        Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
-        Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label10.Location = New System.Drawing.Point(9, 66)
-        Label10.Name = "Label10"
-        Label10.Size = New System.Drawing.Size(118, 12)
-        Label10.TabIndex = 126
-        Label10.Text = "건물너비(y축)[m]:"
-        '
-        'Label9
-        '
-        Label9.AutoSize = True
-        Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
-        Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label9.Location = New System.Drawing.Point(9, 90)
-        Label9.Name = "Label9"
-        Label9.Size = New System.Drawing.Size(124, 12)
-        Label9.TabIndex = 127
-        Label9.Text = "난방을하는 층의 수:"
+        Label6.AutoSize = True
+        Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
+        Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Label6.Location = New System.Drawing.Point(9, 138)
+        Label6.Name = "Label6"
+        Label6.Size = New System.Drawing.Size(108, 12)
+        Label6.TabIndex = 129
+        Label6.Text = "지관/연결관장소:"
        '
        'Label8
        '
@@ -143,49 +123,38 @@ Partial Class Frm_nBunbae
        Label8.TabIndex = 128
        Label8.Text = "층           고[m]:"
        '
-        'Label6
+        'Label9
        '
-        Label6.AutoSize = True
-        Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
-        Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label6.Location = New System.Drawing.Point(9, 138)
-        Label6.Name = "Label6"
-        Label6.Size = New System.Drawing.Size(108, 12)
-        Label6.TabIndex = 129
-        Label6.Text = "지관/연결관장소:"
+        Label9.AutoSize = True
+        Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
+        Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Label9.Location = New System.Drawing.Point(9, 90)
+        Label9.Name = "Label9"
+        Label9.Size = New System.Drawing.Size(124, 12)
+        Label9.TabIndex = 127
+        Label9.Text = "난방을하는 층의 수:"
        '
-        'Label18
+        'Label10
        '
-        Label18.AutoSize = True
-        Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
-        Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label18.Location = New System.Drawing.Point(9, 129)
-        Label18.Name = "Label18"
-        Label18.Size = New System.Drawing.Size(88, 12)
-        Label18.TabIndex = 24
-        Label18.Text = "배관설치장소:"
+        Label10.AutoSize = True
+        Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
+        Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Label10.Location = New System.Drawing.Point(9, 66)
+        Label10.Name = "Label10"
+        Label10.Size = New System.Drawing.Size(118, 12)
+        Label10.TabIndex = 126
+        Label10.Text = "건물너비(y축)[m]:"
        '
-        'Label17
+        'Label11
        '
-        Label17.AutoSize = True
-        Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
-        Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label17.Location = New System.Drawing.Point(9, 102)
-        Label17.Name = "Label17"
-        Label17.Size = New System.Drawing.Size(213, 12)
-        Label17.TabIndex = 23
-        Label17.Text = "단위길이 배관의 열관류율[W/mK]:"
-        '
-        'Label16
-        '
-        Label16.AutoSize = True
-        Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
-        Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Label16.Location = New System.Drawing.Point(9, 73)
-        Label16.Name = "Label16"
-        Label16.Size = New System.Drawing.Size(112, 12)
-        Label16.TabIndex = 22
-        Label16.Text = "배관구간길이[m]:"
+        Label11.AutoSize = True
+        Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
+        Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Label11.Location = New System.Drawing.Point(9, 42)
+        Label11.Name = "Label11"
+        Label11.Size = New System.Drawing.Size(118, 12)
+        Label11.TabIndex = 125
+        Label11.Text = "건물길이(x축)[m]:"
        '
        'Label15
        '
@@ -198,53 +167,51 @@ Partial Class Frm_nBunbae
        Label15.TabIndex = 17
        Label15.Text = "배관구간방식:"
        '
+        'Label16
+        '
+        Label16.AutoSize = True
+        Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
+        Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Label16.Location = New System.Drawing.Point(9, 73)
+        Label16.Name = "Label16"
+        Label16.Size = New System.Drawing.Size(112, 12)
+        Label16.TabIndex = 22
+        Label16.Text = "배관구간길이[m]:"
+        '
+        'Label17
+        '
+        Label17.AutoSize = True
+        Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
+        Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Label17.Location = New System.Drawing.Point(9, 102)
+        Label17.Name = "Label17"
+        Label17.Size = New System.Drawing.Size(213, 12)
+        Label17.TabIndex = 23
+        Label17.Text = "단위길이 배관의 열관류율[W/mK]:"
+        '
+        'Label18
+        '
+        Label18.AutoSize = True
+        Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
+        Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Label18.Location = New System.Drawing.Point(9, 129)
+        Label18.Name = "Label18"
+        Label18.Size = New System.Drawing.Size(88, 12)
+        Label18.TabIndex = 24
+        Label18.Text = "배관설치장소:"
+        '
        'bs
        '
        Me.bs.DataMember = "tbl_nbunbae"
        Me.bs.DataSource = Me.DS
        Me.bs.Filter = "code <> '0'"
+        Me.bs.Sort = "sortkey,설명"
        '
        'DS
        '
        Me.DS.DataSetName = "DS"
        Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
-        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label1.Location = New System.Drawing.Point(414, 20)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(97, 12)
-        Me.Label1.TabIndex = 121
-        Me.Label1.Text = "2. 배관망 유형:"
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
-        Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label19.Location = New System.Drawing.Point(8, 18)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(110, 12)
-        Me.Label19.TabIndex = 119
-        Me.Label19.Text = "0. 생산기기 구분:"
-        Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'Label225
-        '
-        Me.Label225.AutoSize = True
-        Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
-        Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label225.Location = New System.Drawing.Point(8, 43)
-        Me.Label225.Name = "Label225"
-        Me.Label225.Size = New System.Drawing.Size(231, 12)
-        Me.Label225.TabIndex = 119
-        Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:"
-        Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
        'SplitContainer1
        '
        Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -282,8 +249,7 @@ Partial Class Frm_nBunbae
        Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dv.ColumnHeadersHeight = 30
        Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        Me.dv.ColumnHeadersVisible = False
-        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
        Me.dv.DataSource = Me.bs
        Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dv.Location = New System.Drawing.Point(0, 0)
@@ -595,6 +561,18 @@ Partial Class Frm_nBunbae
        Me.cmb_배관망유형.Size = New System.Drawing.Size(133, 20)
        Me.cmb_배관망유형.TabIndex = 120
        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
+        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label1.Location = New System.Drawing.Point(414, 20)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(97, 12)
+        Me.Label1.TabIndex = 121
+        Me.Label1.Text = "2. 배관망 유형:"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
        'cmb_표준치적용
        '
        Me.cmb_표준치적용.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -605,6 +583,30 @@ Partial Class Frm_nBunbae
        Me.cmb_표준치적용.Size = New System.Drawing.Size(124, 20)
        Me.cmb_표준치적용.TabIndex = 1
        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
+        Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label19.Location = New System.Drawing.Point(8, 18)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(110, 12)
+        Me.Label19.TabIndex = 119
+        Me.Label19.Text = "0. 생산기기 구분:"
+        Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label225
+        '
+        Me.Label225.AutoSize = True
+        Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
+        Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label225.Location = New System.Drawing.Point(8, 43)
+        Me.Label225.Name = "Label225"
+        Me.Label225.Size = New System.Drawing.Size(231, 12)
+        Me.Label225.TabIndex = 119
+        Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:"
+        Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
        'cmb_생산기기구분
        '
        Me.cmb_생산기기구분.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -625,6 +627,16 @@ Partial Class Frm_nBunbae
        Me.PictureBox1.TabIndex = 122
        Me.PictureBox1.TabStop = False
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.Width = 30
+        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -708,5 +720,6 @@ Partial Class Frm_nBunbae
    Friend WithEvents 열분배PictureBox As System.Windows.Forms.PictureBox
    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
 End Class
--- a/ArinWarev1/Forms_Input/Frm_nBunbae.resx
+++ b/ArinWarev1/Forms_Input/Frm_nBunbae.resx
@@ -117,31 +117,31 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
-  <metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <metadata name="Label18.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <metadata name="Label17.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="Label16.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <metadata name="Label17.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label18.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -150,6 +150,9 @@
  <metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>286, 17</value>
  </metadata>
+  <metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>353, 17</value>
  </metadata>
--- a/ArinWarev1/Forms_Input/Frm_nBunbae.vb
+++ b/ArinWarev1/Forms_Input/Frm_nBunbae.vb
@@ -278,7 +278,19 @@
    Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
        e.Row.Item("code") = GetMaxCode(DSET1.tbl_nbunbae)
        e.Row.Item("설명") = "신규데이터"
+        e.Row.Item("sortkey") = GetNewSortKey()
    End Sub
+
+    Private Function GetNewSortKey() As String
+        AddDebug("GetNewSortKey")
+
+        Dim drows() As DS.tbl_nbunbaeRow = DSET1.tbl_nbunbae.Select("code <> '0'", "sortkey desc")
+        If drows.Length < 1 Then Return 1
+        Dim Dr As DS.tbl_nbunbaeRow = drows(0)
+        Dim maxsortkey As Integer = Dr.sortkey
+        Return maxsortkey + 1
+
+    End Function
 #End Region

    Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_생산기기구분.KeyDown
--- a/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb
@@ -488,7 +488,7 @@ Partial Class Frm_V20091231_Myoun
        'lbl_pos
        '
        Me.lbl_pos.Name = "lbl_pos"
-        Me.lbl_pos.Size = New System.Drawing.Size(12, 32)
+        Me.lbl_pos.Size = New System.Drawing.Size(12, 12)
        Me.lbl_pos.Text = "0"
        '
        'Arindv1