jj: double click to confirm, leftbound columns, fix list(obj) -> list(str) error
This commit is contained in:
@@ -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()
|
||||
|
||||
Reference in New Issue
Block a user