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

JJ 27.04.2016

Browse Source
This commit is contained in:
JenneJ
2016-04-27 16:50:39 +02:00
parent f48daef141
commit a573219f6f
12 changed files with 137 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -3423,7 +3423,13 @@ Public Class frmConstructor_Main
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET RESULTLIST KONFIG")
Dim ColArray As New List(Of String)
Try
'Die Icon Colum erstellen und konfigurieren
Dim colIcon As New System.Data.DataColumn()
colIcon.DataType = GetType(Image)
colIcon.ColumnName = "ICON"
colIcon.Caption = ""
DTGrid.Columns.Add(colIcon)
If Not DT Is Nothing And DT.Rows.Count = 1 Then
Dim ColCount As Integer = 1
For Each Column As DataColumn In DT.Columns
@@ -3475,7 +3481,29 @@ Public Class frmConstructor_Main
Try
Dim NewRow As DataRow
NewRow = DTGrid.NewRow()
Dim i = 0
'Icon zuweisen
Select Case extension
Case ".csv"
Case ".txt"
NewRow.Item(0) = My.Resources.text
Case ".pdf"
NewRow.Item(0) = My.Resources.pdf
Case ".doc"
Case ".docx"
NewRow.Item(0) = My.Resources.doc
Case ".xls"
Case ".xlsx"
NewRow.Item(0) = My.Resources.xls
Case ".ppt"
Case ".pptx"
NewRow.Item(0) = My.Resources.ppt
Case Else
NewRow.Item(0) = My.Resources._blank
End Select
Dim i = 1 'Fängt bei 1 an, um die ICON Column zu überspringen
For Each Column As String In ColArray
Dim Indexname = DT.Rows(0).Item(Column)
Dim idxvalue
@@ -3504,6 +3532,9 @@ Public Class frmConstructor_Main
End If
If DTGrid.Rows.Count > 0 Then
GridControlDocSearch.DataSource = DTGrid
GridViewDoc_Search.Columns.Item(0).MaxWidth = 24
GridViewDoc_Search.Columns.Item(0).MinWidth = 24
End If
Else
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"