jj 07.12 3

app/DD-Record-Organiser/frmGeodataNavigation.vb

@@ -106,9 +106,13 @@ Public Class frmGeodataNavigation
     End Sub
 
     Private Sub LoadData()
+        Dim rowhandle As Integer = grvwMain.FocusedRowHandle
+
         EntityDataTable = ClassDatabase.Return_Datatable(EntitySql)
         LoadItemList()
         LoadGridData()
+
+        grvwMain.FocusedRowHandle = rowhandle
     End Sub
 
 
@@ -222,8 +226,11 @@ Public Class frmGeodataNavigation
             Dim LATITUDE = row.Item("LATITUDE")
             Dim LONGITUDE = row.Item("LONGITUDE")
 
-            If LATITUDE Is Nothing Or LONGITUDE Is Nothing Then
+            Console.WriteLine(LATITUDE.ToString())
+
+            If IsDBNull(LATITUDE) Or IsDBNull(LONGITUDE) Then
                 e.Appearance.BackColor = Color.Red
+                e.HighPriority = True
             End If
         End If
     End Sub
@@ -316,11 +323,7 @@ Public Class frmGeodataNavigation
                 conn.Close()
             End If
 
-            ' Markierte Zeile speichern, um diese beim neu laden wieder zu setzen
-            Dim rowhandle As Integer = grvwMain.FocusedRowHandle
             LoadData()
-            grvwMain.FocusedRowHandle = rowhandle
-
         Catch ex As Exception
             MsgBox("Error while saving Coordinates: " & vbNewLine & ex.Message)
         End Try
@@ -339,4 +342,26 @@ Public Class frmGeodataNavigation
         End If
 
     End Function
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles btnReload.Click
+        LoadData()
+    End Sub
+
+    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
+        Try
+            Dim result As DialogResult = MessageBox.Show("Wollen Sie die Koordinaten für diesen Datensatz löschen?", "Koordinaten löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+
+            If result = Windows.Forms.DialogResult.Yes Then
+                Dim currentRow As DataRowView = grvwMain.GetFocusedRow()
+                Dim RecordId As Integer = currentRow.Item("Record-ID")
+                Dim sql = "DELETE FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = " & RecordId
+
+                ClassDatabase.Execute_Scalar(sql)
+
+                LoadData()
+            End If
+        Catch ex As Exception
+            MsgBox("Error while deleting Coordinates:" & vbNewLine & ex.Message)
+        End Try
+    End Sub
 End Class