jj: double click to confirm, leftbound columns, fix list(obj) -> list(str) error

This commit is contained in:
Jonathan Jenne
2018-10-30 11:02:36 +01:00
parent ddd98522cc
commit 159c8a6924
2 changed files with 37 additions and 11 deletions

View File

@@ -597,7 +597,7 @@ Public Class frmIndex
Dim result = frm.ShowDialog()
If result = DialogResult.OK Then
Dim values As List(Of Object) = frm.SelectedValues
Dim values As List(Of String) = frm.SelectedValues
gridLookup.Properties.DataSource = values
gridLookup.Properties.NullText = IIf(values.Count = 0, LOOKUP_NO_RECORDS, String.Format(LOOKUP_N_RECORDS, values.Count))
End If
@@ -620,7 +620,7 @@ Public Class frmIndex
frm.MultiSelect = False
frm.DataSource = table
frm.StartPosition = FormStartPosition.Manual
frm.SelectedValues = New List(Of Object) From {textBox.Text}
frm.SelectedValues = New List(Of String) From {textBox.Text}
frm.Location = pnlIndex.PointToScreen(New Point(340, y))
Dim result = frm.ShowDialog()