53 lines
1.3 KiB
VB.net
53 lines
1.3 KiB
VB.net
Imports DevExpress.XtraGrid.Columns
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
Imports DevExpress.XtraVerticalGrid.Rows
|
|
Imports ImporterShared.Documents
|
|
|
|
Public Class frmRowEditor
|
|
Private Row As DataRow
|
|
Private Columns As List(Of String)
|
|
|
|
Public Sub New(pRow As DataRow, pColumns As List(Of String))
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
Row = pRow
|
|
Columns = pColumns
|
|
End Sub
|
|
|
|
Private Sub frmRowEditor_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Row Is Nothing Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim oDataTable As New DataTable()
|
|
Dim oDict = New Dictionary(Of String, String)
|
|
|
|
For Each oColumn As String In Columns
|
|
Dim oValue
|
|
Try
|
|
oValue = Row.Item(oColumn)
|
|
Catch ex As Exception
|
|
oValue = String.Empty
|
|
End Try
|
|
|
|
oDict.Add(oColumn, oValue)
|
|
Next
|
|
|
|
oDataTable.Columns.Add("KEY")
|
|
oDataTable.Columns.Add("VALUE")
|
|
|
|
For Each oKV In oDict
|
|
oDataTable.Rows.Add(oKV.Key, oKV.Value)
|
|
Next
|
|
|
|
GridControl1.DataSource = oDataTable
|
|
GridView1.BestFitColumns()
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|
|
|