diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb index 2e85bb3..7686fd6 100644 --- a/app/DD-Record-Organiser/ClassControlBuilder.vb +++ b/app/DD-Record-Organiser/ClassControlBuilder.vb @@ -1127,7 +1127,8 @@ Public Class ClassControlBuilder _new As Boolean, read_only As Boolean, required As Boolean, - Optional parent As GroupBox = Nothing, + columnTitle As String, + Optional parent As GroupBox = Nothing, Optional _designMode As Boolean = False) Dim control As New DataGridView @@ -1149,7 +1150,7 @@ Public Class ClassControlBuilder control.Parent = _master_panel control.ReadOnly = read_only - column.HeaderText = "Data" + column.HeaderText = columnTitle column.Name = "column1" control.Columns.Add(column) diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organiser/ClassControlCommandsUI.vb index 68fdcd2..3843641 100644 --- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb +++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb @@ -148,6 +148,7 @@ Public Class ClassControlCommandsUI False, dr.Item("CONTROL_READ_ONLY"), dr.Item("CONTROL_REQUIRED"), + dr.Item("CONTROL_COL_NAME"), parent) Case 10 ' Checkbox Dim Checked As Boolean = False diff --git a/app/DD-Record-Organiser/frmLevel_Designer.vb b/app/DD-Record-Organiser/frmLevel_Designer.vb index 7c564f5..5e3f285 100644 --- a/app/DD-Record-Organiser/frmLevel_Designer.vb +++ b/app/DD-Record-Organiser/frmLevel_Designer.vb @@ -129,7 +129,7 @@ ' Aktuelles Control in die Datenbank speichern ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) Case "dgv" - CtrlBuilder.AddDataGridView(0, "dgv" & random, 0, 0, 0, 0, True, False, False, Parent) + CtrlBuilder.AddDataGridView(0, "dgv" & random, 0, 0, 0, 0, True, False, False, "dgv" & random, Parent) ' Aktuelles Control in die Datenbank speichern ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) Case "chk" @@ -407,6 +407,7 @@ False, dr.Item("CONTROL_READ_ONLY"), dr.Item("CONTROL_REQUIRED"), + dr.Item("CONTROL_COL_NAME"), parent, True) Case 10 ' Checkbox