jj: update firebird

TestGUI/Form1.vb

@@ -51,6 +51,35 @@ Public Class Form1
         SecondLogger.Warn("WANRING!!!")
         SecondLogger.Info("INFO!!!")
         SecondLogger.Debug("DEBUG!!!")
+
+
+
+        Dim datatable As New DataTable("FOO")
+        datatable.Columns.Add(New DataColumn("TEST1", GetType(String)))
+        datatable.Columns.Add(New DataColumn("TEST2", GetType(String)))
+        datatable.Columns.Add(New DataColumn("TEST3", GetType(String)))
+
+        Dim dr As DataRow = datatable.NewRow()
+        dr.Item("TEST1") = "foo"
+        dr.Item("TEST2") = "bar"
+        dr.Item("TEST3") = "baz"
+
+        Dim dr2 As DataRow = datatable.NewRow()
+        dr2.Item("TEST1") = "foo2"
+        dr2.Item("TEST2") = "bar2"
+        dr2.Item("TEST3") = "baz2"
+
+        Dim dr3 As DataRow = datatable.NewRow()
+        dr3.Item("TEST1") = "foo3"
+        dr3.Item("TEST2") = "bar3"
+        dr3.Item("TEST3") = "baz3"
+
+        datatable.Rows.Add(dr)
+        datatable.Rows.Add(dr2)
+        datatable.Rows.Add(dr3)
+
+        LookupControl1.DataSource = datatable
+        LookupControl1.SelectedValues = New List(Of String) From {"foo"}
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles GetValue.Click