AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_21.10.2015

Browse Source
This commit is contained in:
SchreiberM
2015-10-21 11:58:58 +02:00
parent be7347af13
commit bab4910c44
18 changed files with 1885 additions and 1781 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/frmWD_Index_Dokart.vb
View File

@@ -265,6 +265,7 @@ Public Class frmWD_Index_Dokart
CURRENT_DOKARTID = 0
If cmbDokumentart.SelectedIndex <> -1 Then
CURRENT_DOKARTID = cmbDokumentart.SelectedValue
CURRENT_DOKARTSTRING = cmbDokumentart.Text
Refresh_indices()
End If
@@ -285,7 +286,16 @@ Public Class frmWD_Index_Dokart
lvwIndices.Items.Clear()
For Each row As DataRow In dt.Rows
lvwIndices.Items.Add(row.Item("INDEXNAME").ToString)
lvwIndices.Items(Count).SubItems.Add(row.Item("VALUE"))
Dim Value As String
Dim _case = row.Item("VALUE").ToString.ToUpper
Select Case row.Item("VALUE").ToString.ToUpper
Case "@DOKART"
Value = CURRENT_DOKARTSTRING
Case "@RECORD-ID"
Value = CURRENT_RECORD_ID
End Select
lvwIndices.Items(Count).SubItems.Add(Value)
Count += 1
Next
End If