This commit is contained in:
Digital Data - Marlon Schreiber 2019-05-20 11:37:36 +02:00
commit 92834d89a4

View File

@ -374,13 +374,20 @@ Public Class ClassControlCreator
oControl.DataSource = oDatatable
AddHandler oView.CellValueChanged, Function(sender As Object, e As CellValueChangedEventArgs)
' TODO: Do the validation
End Function
AddHandler oView.CellValueChanged, AddressOf HandleCellValueChanged
Return oControl
End Function
Public Shared Function HandleCellValueChanged(sender As Object, e As CellValueChangedEventArgs)
' TODO: Do the validation
Dim oCurrentView As GridView = DirectCast(sender, GridView)
Dim oCurrentControl As GridControl = oCurrentView.GridControl
Dim oCurrentDatasource As DataTable = oCurrentControl.DataSource
Dim oColumn = oCurrentDatasource.Columns.Item(e.Column.FieldName)
Dim foo = 1
End Function
Public Shared Function CreateExistingLine(row As DataRow, designMode As Boolean) As LineLabel
Dim control As LineLabel = CreateBaseControl(New LineLabel(), row, designMode)