LookupGrid: BestFit for Value Column

This commit is contained in:
Jonathan Jenne
2021-04-12 15:51:54 +02:00
parent e7287e4b24
commit 86ec33251b
2 changed files with 17 additions and 8 deletions

View File

@@ -45,7 +45,8 @@ Public Class frmLookup
Dim oDatatable As New DataTable
Dim oColumns As New List(Of DataColumn) From {
New DataColumn("Col1", GetType(String)),
New DataColumn("Col2", GetType(String))
New DataColumn("Col2", GetType(String)),
New DataColumn("Col3", GetType(String))
}
oDatatable.Columns.AddRange(oColumns.ToArray)
@@ -54,6 +55,7 @@ Public Class frmLookup
Dim oRow = oDatatable.NewRow()
oRow.Item("Col1") = Item
oRow.Item("Col2") = Item & "_" & "SomeLong Random(String) !!!111einself"
oRow.Item("Col3") = Item & "_" & "SomeLong OTHER Random(String) !!!111einself"
oDatatable.Rows.Add(oRow)
Next