From 073ecb90845c9cf49f74f475e6acf22b932aa5a6 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 23 Aug 2018 16:45:38 +0200 Subject: [PATCH] jj: fix bug in CheckWrite_IndexeMan --- Global_Indexer/frmIndex.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 5526930..16540ed 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -544,6 +544,7 @@ Public Class frmIndex Const LOOKUP_CONTROL_HEIGHT As Integer = 24 Dim lookupButton As New Button() + lookupButton.Name = "btnLookup" & indexname lookupButton.Location = New Point(311, y - 1) lookupButton.Size = New Size(LOOKUP_CONTROL_HEIGHT, LOOKUP_CONTROL_HEIGHT) lookupButton.Image = My.Resources.gear_32xSM @@ -905,7 +906,7 @@ Public Class frmIndex End If End If If ctrl.Name.StartsWith("cmbMulti") Then - Dim cmbMulti As DevExpress.XtraEditors.LookUpEdit = ctrl + Dim cmbMulti As DevExpress.XtraEditors.GridLookUpEdit = ctrl If cmbMulti.Text = "" Then Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(cmbMulti.Name, "cmbMulti", "") & "'", MyConnectionString, True)