AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add logging for vector index loading in grid

Browse Source
This commit is contained in:
Jonathan Jenne 2021-01-13 12:01:32 +01:00
parent 917bacfba4
commit 6c81a24785
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -3265,18 +3265,26 @@ Public Class frmValidator
Dim oDataSource As DataTable = oMyGridControl.DataSource Dim oDataSource As DataTable = oMyGridControl.DataSource
oDataSource.Rows.Clear() oDataSource.Rows.Clear()
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
LOGGER.Debug("ValueFromSource contains {0} items", oValueFromSource)
For Each Zeile As Object In oValueFromSource For Each Zeile As Object In oValueFromSource
LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") LOGGER.Debug($"vektorrow Value {Zeile.ToString}...")
oColValuesfromSource = Split(Zeile, PMDelimiter) oColValuesfromSource = Split(Zeile, PMDelimiter)
Dim oNewRow = oDataSource.NewRow() Dim oNewRow = oDataSource.NewRow()
LOGGER.Debug("Creating new row..")
For index = 0 To oDTColumnsPerDevExGrid.Rows.Count - 1 For index = 0 To oDTColumnsPerDevExGrid.Rows.Count - 1
LOGGER.Debug("Column Index {0}", index)
If oColValuesfromSource.Length > index Then If oColValuesfromSource.Length > index Then
LOGGER.Debug("Value: {0}", oColValuesfromSource(index))
oNewRow.Item(index) = oColValuesfromSource(index) oNewRow.Item(index) = oColValuesfromSource(index)
Else Else
LOGGER.Debug("Value: String.Empty")
oNewRow.Item(index) = String.Empty oNewRow.Item(index) = String.Empty
End If End If
Next Next
LOGGER.Debug("Adding row to grid..")
oDataSource.Rows.Add(oNewRow) oDataSource.Rows.Add(oNewRow)
'Select Case oDTColumnsPerDevExGrid.Rows.Count 'Select Case oDTColumnsPerDevExGrid.Rows.Count
@ -3433,7 +3441,7 @@ Public Class frmValidator
' RestoreDevExpressGridControl_Layout(CURRENT_CLICKED_PROFILE_ID, oControlId, oMyGridView) ' RestoreDevExpressGridControl_Layout(CURRENT_CLICKED_PROFILE_ID, oControlId, oMyGridView)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex)
End Try End Try
End If End If
Case "System.Windows.Forms.CheckBox" Case "System.Windows.Forms.CheckBox"