28 lines
743 B
VB.net
28 lines
743 B
VB.net
Namespace Documents
|
|
Public Class DocumentRow
|
|
''' <summary>
|
|
''' Tabellen/Elementname aus XML
|
|
''' </summary>
|
|
Public Name As String
|
|
Public Id As New Guid
|
|
|
|
Public Fields As Dictionary(Of String, FieldValue)
|
|
|
|
Public Sub New()
|
|
Id = Guid.NewGuid()
|
|
End Sub
|
|
|
|
Public Class FieldValue
|
|
Public Original As String = ""
|
|
Public External As String = ""
|
|
Public Final As String = ""
|
|
Public Property DataType As Constants.ColumnType = Constants.ColumnType.String
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return Final
|
|
End Function
|
|
End Class
|
|
End Class
|
|
|
|
End Namespace
|