Partial Public Class dtsBrille
    Private InformationColumn As Data.DataColumn
 
    Public ReadOnly Property Information() As Data.DataColumn
        Get
            Return InformationColumn
        End Get
    End Property
 
    Partial Class ArztDataTable
 
        Private Sub ArztDataTable_ColumnChanging(ByVal sender As System.Object, _
          ByVal e As System.Data.DataColumnChangeEventArgs) Handles _
          Me.ColumnChanging
            If e.Column.ColumnName = "InformationColumn" Then
                'Add user code here
                CType(e.Row, ArztRow).Item("Information") = _
                    CType(e.Row, ArztRow).akadGrad & vbCrLf & _
                    CType(e.Row, ArztRow).ArztNName & " " & _
                    CType(e.Row, ArztRow).ArztVName
            End If
 
        End Sub
 
        Private Sub ArztDataTable_Initialized(ByVal sender As Object, ByVal e _
          As System.EventArgs) Handles Me.Initialized
            Dim InformationColumn As New System.Data.DataColumn("Information", _
                GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(InformationColumn)
 
        End Sub
 
 
    End Class