AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use constant for GUID column

Browse Source
This commit is contained in:
Jonathan Jenne
2021-11-04 11:49:49 +01:00
parent 437569919f
commit 19e2b2f62b
4 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
MultiTool.Form/frmImportMain.vb
View File

@@ -14,6 +14,7 @@ Imports MultiTool.Shared
Imports MultiTool.Shared.Documents
Imports MultiTool.Shared.Schemas
Imports MultiTool.Shared.Winline
Imports MultiTool.Shared.Constants
Public Class frmImportMain
Private LogConfig As LogConfig
@@ -212,7 +213,7 @@ Public Class frmImportMain
Dim oRow As DataRow = oView.GetDataRow(oView.FocusedRowHandle)
Dim oColumns = oView.Columns.Select(Function(c) c.FieldName).ToList()
Dim oDocumentRow = CurrentDocument.Rows.
Where(Function(r) r.Id.ToString = oRow.Item("GUID")).
Where(Function(r) r.Id.ToString = oRow.Item(COLUMN_GUID)).
SingleOrDefault()
Dim oForm As New frmRowEditor(LogConfig, oColumns, oDocumentRow, CurrentDocument.Mandator, Winline)
@@ -313,7 +314,7 @@ Public Class frmImportMain
If Not oDatasources.ContainsKey(oRow.Name) Then
Dim oTable As New DataTable()
oTable.Columns.Add(New DataColumn("GUID"))
oTable.Columns.Add(New DataColumn(COLUMN_GUID))
For Each oField In oRow.Fields
oTable.Columns.Add(New DataColumn(oField.Key))
@@ -328,7 +329,7 @@ Public Class frmImportMain
Dim oDataTable = oDatasources.Item(oRow.Name)
Dim oDataRow = oDataTable.NewRow()
oDataRow.Item("GUID") = oRow.Id.ToString
oDataRow.Item(COLUMN_GUID) = oRow.Id.ToString
For Each oField In oRow.Fields
oDataRow.Item(oField.Key) = oField.Value
@@ -453,12 +454,12 @@ Public Class frmImportMain
Exit Sub
End If
Dim oMessage As String = "Wollen Sie die ausgewählte Zeile wirklich löschen?"
Dim oMessage As String = My.Resources.frmImportMainExtra.Wollen_Sie_die_ausgewählte_Zeile_wirklich_löschen_
If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
' Get GUID of currently selected row
Dim oView As GridView = CurrentGrid.FocusedView
Dim oRow As DataRowView = oView.GetRow(oView.FocusedRowHandle)
Dim oGuid = oRow.Row.Item("GUID")
Dim oGuid = oRow.Row.Item(COLUMN_GUID)
' Get currently selected document
Dim oDocument As Document = GridViewFiles.GetRow(GridViewFiles.FocusedRowHandle)