..

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