Replace Profile Combobox with SearchLookupEdit
This commit is contained in:
Jonathan Jenne
parent
8227971743
commit
ea3f898172
105
Global_Indexer/frmIndex.designer.vb
generated
105
Global_Indexer/frmIndex.designer.vb
generated
@ -31,7 +31,8 @@ Partial Class frmIndex
|
||||
Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.pnlIndex = New System.Windows.Forms.Panel()
|
||||
Me.ComboboxDoctype = New DevExpress.XtraEditors.ComboBoxEdit()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
@ -51,9 +52,10 @@ Partial Class frmIndex
|
||||
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
|
||||
Me.btnOK = New DevExpress.XtraEditors.SimpleButton()
|
||||
Me.ComboboxDoctype = New DevExpress.XtraEditors.SearchLookUpEdit()
|
||||
Me.SearchLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
|
||||
Me.MyDataset = New Global_Indexer.MyDataset()
|
||||
Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
@ -68,10 +70,11 @@ Partial Class frmIndex
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -87,8 +90,8 @@ Partial Class frmIndex
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.ComboboxDoctype)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.ComboboxDoctype)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
@ -100,17 +103,26 @@ Partial Class frmIndex
|
||||
Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight
|
||||
Me.pnlIndex.Name = "pnlIndex"
|
||||
'
|
||||
'ComboboxDoctype
|
||||
'Panel2
|
||||
'
|
||||
resources.ApplyResources(Me.ComboboxDoctype, "ComboboxDoctype")
|
||||
Me.ComboboxDoctype.MenuManager = Me.RibbonControl1
|
||||
Me.ComboboxDoctype.Name = "ComboboxDoctype"
|
||||
SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
SerializableAppearanceObject1.Options.UseBackColor = True
|
||||
Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
|
||||
Me.ComboboxDoctype.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
|
||||
Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboboxDoctype.Properties.NullText")
|
||||
Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5)
|
||||
Me.Panel2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel2.Controls.Add(Me.checkMultiindex)
|
||||
Me.Panel2.Controls.Add(Me.btnOK)
|
||||
resources.ApplyResources(Me.Panel2, "Panel2")
|
||||
Me.Panel2.Name = "Panel2"
|
||||
'
|
||||
'checkMultiindex
|
||||
'
|
||||
resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
|
||||
Me.checkMultiindex.MenuManager = Me.RibbonControl1
|
||||
Me.checkMultiindex.Name = "checkMultiindex"
|
||||
Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
|
||||
Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
|
||||
Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
|
||||
Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
|
||||
Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
@ -253,27 +265,6 @@ Partial Class frmIndex
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel2.Controls.Add(Me.checkMultiindex)
|
||||
Me.Panel2.Controls.Add(Me.btnOK)
|
||||
resources.ApplyResources(Me.Panel2, "Panel2")
|
||||
Me.Panel2.Name = "Panel2"
|
||||
'
|
||||
'checkMultiindex
|
||||
'
|
||||
resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
|
||||
Me.checkMultiindex.MenuManager = Me.RibbonControl1
|
||||
Me.checkMultiindex.Name = "checkMultiindex"
|
||||
Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
|
||||
Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
|
||||
Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
|
||||
Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
|
||||
Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
|
||||
'
|
||||
'btnOK
|
||||
'
|
||||
resources.ApplyResources(Me.btnOK, "btnOK")
|
||||
@ -282,6 +273,37 @@ Partial Class frmIndex
|
||||
Me.btnOK.ImageOptions.SvgImage = CType(resources.GetObject("btnOK.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.btnOK.Name = "btnOK"
|
||||
'
|
||||
'ComboboxDoctype
|
||||
'
|
||||
resources.ApplyResources(Me.ComboboxDoctype, "ComboboxDoctype")
|
||||
Me.ComboboxDoctype.MenuManager = Me.RibbonControl1
|
||||
Me.ComboboxDoctype.Name = "ComboboxDoctype"
|
||||
SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
SerializableAppearanceObject1.Options.UseBackColor = True
|
||||
Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
|
||||
Me.ComboboxDoctype.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
|
||||
Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboboxDoctype.Properties.NullText")
|
||||
Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5)
|
||||
Me.ComboboxDoctype.Properties.PopupSizeable = False
|
||||
Me.ComboboxDoctype.Properties.PopupView = Me.SearchLookUpEdit1View
|
||||
Me.ComboboxDoctype.Properties.ShowClearButton = False
|
||||
'
|
||||
'SearchLookUpEdit1View
|
||||
'
|
||||
Me.SearchLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName})
|
||||
Me.SearchLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
|
||||
Me.SearchLookUpEdit1View.Name = "SearchLookUpEdit1View"
|
||||
Me.SearchLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
|
||||
Me.SearchLookUpEdit1View.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.Never
|
||||
Me.SearchLookUpEdit1View.OptionsView.ShowGroupPanel = False
|
||||
Me.SearchLookUpEdit1View.OptionsView.ShowIndicator = False
|
||||
'
|
||||
'colName
|
||||
'
|
||||
resources.ApplyResources(Me.colName, "colName")
|
||||
Me.colName.FieldName = "Name"
|
||||
Me.colName.Name = "colName"
|
||||
'
|
||||
'DocumentViewer1
|
||||
'
|
||||
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
|
||||
@ -349,10 +371,11 @@ Partial Class frmIndex
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@ -403,5 +426,7 @@ Partial Class frmIndex
|
||||
Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton
|
||||
Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit
|
||||
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents ComboboxDoctype As DevExpress.XtraEditors.ComboBoxEdit
|
||||
Friend WithEvents ComboboxDoctype As DevExpress.XtraEditors.SearchLookUpEdit
|
||||
Friend WithEvents SearchLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
|
||||
End Class
|
||||
|
||||
@ -11,6 +11,7 @@ Imports DigitalData.GUIs.GlobalIndexer
|
||||
Imports DevExpress.XtraEditors.Controls
|
||||
Imports Limilabs.Mail
|
||||
Imports Limilabs.Mail.Headers
|
||||
Imports DevExpress.XtraEditors
|
||||
|
||||
Public Class frmIndex
|
||||
#Region "+++++ Variablen ++++++"
|
||||
@ -455,7 +456,7 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
If oControl.Name.StartsWith("chk") Then
|
||||
Dim chk As CheckBox = oControl
|
||||
Dim chk As CheckEdit = oControl
|
||||
Indexwert_Postprocessing(Replace(chk.Name, "chk", ""), chk.Checked)
|
||||
oResult = True
|
||||
End If
|
||||
@ -1667,20 +1668,22 @@ Public Class frmIndex
|
||||
checkItemPreselection.Checked = True
|
||||
|
||||
If CURRENT_LASTDOKART <> "" Then
|
||||
Dim oFoundDocType = ComboboxDoctype.Properties.Items.
|
||||
|
||||
|
||||
Dim oFoundDocType = ComboboxDoctype.Properties.DataSource.
|
||||
Cast(Of DocType)().
|
||||
Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
|
||||
FirstOrDefault()
|
||||
|
||||
If oFoundDocType IsNot Nothing Then
|
||||
ComboboxDoctype.SelectedItem = oFoundDocType
|
||||
ComboboxDoctype.EditValue = oFoundDocType
|
||||
End If
|
||||
|
||||
'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
|
||||
End If
|
||||
End If
|
||||
|
||||
If ComboboxDoctype.SelectedItem Is Nothing And DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
|
||||
If ComboboxDoctype.EditValue Is Nothing And DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
|
||||
For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
|
||||
Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE)
|
||||
If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then
|
||||
@ -1689,13 +1692,13 @@ Public Class frmIndex
|
||||
_Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
|
||||
'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
|
||||
|
||||
Dim oFoundDocType = ComboboxDoctype.Properties.Items.
|
||||
Cast(Of DocType)().
|
||||
Dim oDoctypes As List(Of DocType) = ComboboxDoctype.Properties.DataSource
|
||||
Dim oFoundDocType As DocType = oDoctypes.
|
||||
Where(Function(dt) dt.Guid = oRoW.Item("DOCTYPE_ID")).
|
||||
FirstOrDefault()
|
||||
|
||||
If oFoundDocType IsNot Nothing Then
|
||||
ComboboxDoctype.SelectedItem = oFoundDocType
|
||||
ComboboxDoctype.EditValue = oFoundDocType
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
@ -1717,24 +1720,23 @@ Public Class frmIndex
|
||||
'cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
|
||||
'cmbDokumentart.SelectedIndex = -1
|
||||
|
||||
ComboboxDoctype.Properties.Items.Clear()
|
||||
|
||||
|
||||
|
||||
Dim oDocTypeList As New List(Of DocType)
|
||||
For Each oRow As DataRow In oDoctypes.Rows
|
||||
Dim oDocType = New DocType With {.Guid = oRow.Item("DOCTYPE_ID"), .Name = oRow.Item("DOCTYPE")}
|
||||
ComboboxDoctype.Properties.Items.Add(oDocType)
|
||||
oDocTypeList.Add(oDocType)
|
||||
Next
|
||||
|
||||
ComboboxDoctype.SelectedIndex = -1
|
||||
ComboboxDoctype.Properties.DataSource = oDocTypeList
|
||||
|
||||
' ComboboxDoctype.SelectedIndex = -1
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex, "Refresh_Dokart")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboboxDoctype.SelectedIndexChanged
|
||||
If ComboboxDoctype.SelectedIndex <> -1 And FormLoaded = True Then
|
||||
Dim oSelectedItem As DocType = ComboboxDoctype.SelectedItem
|
||||
Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboboxDoctype.EditValueChanged
|
||||
If ComboboxDoctype.EditValue IsNot Nothing And FormLoaded = True Then
|
||||
Dim oSelectedItem As DocType = ComboboxDoctype.EditValue
|
||||
|
||||
CURRENT_DOKART_ID = oSelectedItem.Guid
|
||||
|
||||
@ -1763,7 +1765,7 @@ Public Class frmIndex
|
||||
End If
|
||||
|
||||
MsgBox(oMessage, MsgBoxStyle.Information, Text)
|
||||
ComboboxDoctype.SelectedIndex = -1
|
||||
ComboboxDoctype.EditValue = Nothing
|
||||
Else
|
||||
WDDirect = oDocType.Item("WINDREAM_DIRECT")
|
||||
CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING")
|
||||
@ -1855,7 +1857,7 @@ Public Class frmIndex
|
||||
|
||||
Select Case oDataType
|
||||
Case ClassConstants.INDEX_TYPE_BOOLEAN
|
||||
Dim chk As CheckBox = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString)
|
||||
Dim chk As CheckEdit = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString)
|
||||
If Not IsNothing(chk) Then
|
||||
pnlIndex.Controls.Add(chk)
|
||||
End If
|
||||
@ -2042,9 +2044,9 @@ Public Class frmIndex
|
||||
oLookupControl.Properties.ValueMember = oDatatable.Columns.Item(0).ColumnName
|
||||
oLookupControl.Properties.DisplayMember = oDatatable.Columns.Item(0).ColumnName
|
||||
End If
|
||||
Case GetType(ComboBox).Name
|
||||
Case GetType(Windows.Forms.ComboBox).Name
|
||||
LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
|
||||
DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
|
||||
DirectCast(oFoundControl, Windows.Forms.ComboBox).DataSource = oDatatable
|
||||
Case Else
|
||||
LOGGER.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name)
|
||||
End Select
|
||||
@ -2176,7 +2178,7 @@ Public Class frmIndex
|
||||
If oSqlResult <> String.Empty Then
|
||||
_Logger.Debug("oSqlResult after Replace [" & oSqlResult & "]")
|
||||
End If
|
||||
' Ergebnis: Es wurden alle einfachen Platzhalter ersetzt, jetzt haben wir einen SQL Befehl,
|
||||
' Ergebnis: Es wurden alle einfachen Platzhalter ersetz't, jetzt haben wir einen SQL Befehl,
|
||||
' der nur noch vektorfelder-platzhalter enthält
|
||||
|
||||
' 2. Schritt: Vektorfelder ersetzen
|
||||
@ -2259,7 +2261,7 @@ Public Class frmIndex
|
||||
_Logger.Debug("Manuelle Indexe geladen")
|
||||
|
||||
If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then
|
||||
Dim oDokart As DocType = ComboboxDoctype.SelectedItem
|
||||
Dim oDokart As DocType = ComboboxDoctype.EditValue
|
||||
|
||||
CURRENT_DOKART_ID = oDokart.Guid
|
||||
If CheckWrite_IndexeMan(oDokart.Guid) = True Then
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user