..

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