Partial Public Class dtsBrille
 
    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 = Me.InformationColumn.ColumnName) 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
 
    End Class
 
End Class