MS Push
This commit is contained in:
@@ -469,9 +469,6 @@ Public Class frmWM_IndexFile
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Dim oeditvalue = LookUpEdit1.EditValue
|
||||
Dim otext = LookUpEdit1.Text
|
||||
|
||||
If cmbDokumentart.SelectedIndex <> -1 Then
|
||||
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
|
||||
My.Settings.Save()
|
||||
@@ -1231,9 +1228,7 @@ Public Class frmWM_IndexFile
|
||||
cmbDokumentart.DataSource = DTVWPMO_DOKUMENTTYPES
|
||||
cmbDokumentart.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName
|
||||
cmbDokumentart.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName
|
||||
LookUpEdit1.Properties.DataSource = DTVWPMO_DOKUMENTTYPES
|
||||
LookUpEdit1.Properties.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName
|
||||
LookUpEdit1.Properties.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName
|
||||
|
||||
If DTVWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
|
||||
cmbDokumentart.SelectedIndex = 0
|
||||
CURRENT_DOKARTID = cmbDokumentart.SelectedValue
|
||||
|
||||
Reference in New Issue
Block a user