From 4898d253887a6be30427a5de2085109a13f42681 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Tue, 10 Feb 2026 17:40:15 +0100 Subject: [PATCH] Berechnung Spalten start --- app/TaskFlow/ControlCreator/GridControl.vb | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/app/TaskFlow/ControlCreator/GridControl.vb b/app/TaskFlow/ControlCreator/GridControl.vb index 02593a9..d6747e4 100644 --- a/app/TaskFlow/ControlCreator/GridControl.vb +++ b/app/TaskFlow/ControlCreator/GridControl.vb @@ -57,7 +57,16 @@ Namespace ControlCreator Case Else oColumn.DataType = GetType(String) End Select - + Dim oFormulaExpression = ObjectEx.NotNull(oRow.Item("FORMULA_EXPRESSION"), String.Empty) + If oFormulaExpression <> String.Empty Then + Try + oColumn.Expression = oFormulaExpression + oColumn.ReadOnly = True + Catch ex As Exception + _Logger.Warn("⚠️ Invalid FORMULA_EXPRESSION for column {0}: {1}", oColumn.ColumnName, oFormulaExpression) + _Logger.Error(ex) + End Try + End If oDataTable.Columns.Add(oColumn) Next @@ -179,6 +188,13 @@ Namespace ControlCreator Dim oReadOnlyInt As Integer oIsReadOnly = Integer.TryParse(oReadOnlyValue.ToString(), oReadOnlyInt) AndAlso oReadOnlyInt = 1 End If + + Dim oFormulaExpression = ObjectEx.NotNull(oColumnData.Item("FORMULA_EXPRESSION"), String.Empty) + If oFormulaExpression <> String.Empty Then + oIsReadOnly = True + End If + + oCol.OptionsColumn.AllowEdit = Not oIsReadOnly Dim oColumnType As String = oColumnData.Item("TYPE_COLUMN")