jj 03.04 kampf mit net framework

This commit is contained in:
Digital Data
2017-04-03 13:01:57 +02:00
parent cb12278936
commit e24ce1d4bd
26 changed files with 1247 additions and 196 deletions

View File

@@ -312,7 +312,7 @@ Public Class frmGeodataNavigation
Dim frm As New frmGeodataSelect(point)
Dim result = frm.ShowDialog()
If result = Windows.Forms.DialogResult.OK Then
If result = System.Windows.Forms.DialogResult.OK Then
Dim SelectedPoint As GeoPoint = frm.SelectedPoint
txtLat.Text = SelectedPoint.Latitude
@@ -397,7 +397,7 @@ Public Class frmGeodataNavigation
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
If result = System.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