MS 2.8.2 Fehlerhandling und Column-Formel Test bei Henning

app/TaskFlow/frmColumn_Detail.vb

@@ -206,4 +206,22 @@ Public Class frmColumn_Detail
     Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
 
     End Sub
+
+    Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
+        ' Alle verfügbaren Spalten für dieses Control laden
+        Dim availableColumns As DataTable = GetAvailableColumnsForControl()
+
+        ' Expression Designer öffnen
+        Using designer As New frmExpression_Designer(availableColumns, FORMULA_EXPRESSIONTextBox.Text)
+            If designer.ShowDialog() = DialogResult.OK Then
+                FORMULA_EXPRESSIONTextBox.Text = designer.Expression
+            End If
+        End Using
+    End Sub
+    Private Function GetAvailableColumnsForControl() As DataTable
+        ' Spalten aus der aktuellen Control-Definition laden
+        Dim oSQL = "SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID  = " & CURRENT_CONTROL_ID & " ORDER BY SEQUENCE"
+        Dim dt As DataTable = DatabaseFallback.GetDatatableECM(oSQL)
+        Return dt
+    End Function
 End Class