MS ColumnWidth

This commit is contained in:
2020-01-30 10:38:39 +01:00
parent 39921824b8
commit 7ffe030d0e
11 changed files with 410 additions and 408 deletions

View File

@@ -252,11 +252,10 @@ Public Class frmFormDesigner
SetMovementHandlers(dgv)
Case "TABLE"
Dim findControlColumnsQuery = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE
Where r.CONTROL_ID = guid
Select r)
Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = findControlColumnsQuery.ToList()
Dim table = ClassControlCreator.CreateExistingGridControl(row, columns, True)
Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {guid} ORDER BY [SEQUENCE]")
Dim table = ClassControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True)
AddHandler table.MouseClick, AddressOf gridControl_MouseClick
' AddHandler table.ColumnHeaderMouseClick, AddressOf table_ColumnHeaderMouseClick