AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LookupGrid: version 0.2.0.0

Browse Source
This commit is contained in:
Jonathan Jenne
2019-08-29 11:12:59 +02:00
parent c9e0d8cec1
commit ba1806466d
6 changed files with 59 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
LookupControlGui/Form1.vb
View File

@@ -18,7 +18,7 @@
LookupControl22.ReadOnly = False
LookupControl22.MultiSelect = False
LookupControl22.SelectedValues = New List(Of String) From {"", Nothing, "LOL"}
LookupControl22.SelectedValues = New List(Of String) From {"", Nothing, "LOL", "Foo"}
AddHandler LookupControl.SelectedValuesChanged, Sub(_sender As Object, SelectedValues As List(Of String))
MsgBox("Selected Values: " & String.Join(",", SelectedValues.ToArray))
@@ -36,7 +36,8 @@
Private Function GetDatatable() As DataTable
Dim oDatatable As New DataTable
Dim oColumns As New List(Of DataColumn) From {
New DataColumn("Col1", GetType(String))
New DataColumn("Col1", GetType(String)),
New DataColumn("Col2", GetType(String))
}
oDatatable.Columns.AddRange(oColumns.ToArray)
@@ -44,6 +45,7 @@
For Each Item In _Datasource
Dim oRow = oDatatable.NewRow()
oRow.Item("Col1") = Item
oRow.Item("Col2") = Item & "_" & "SomeLong Random(String) !!!111einself"
oDatatable.Rows.Add(oRow)
Next