AdditionalSearches
This commit is contained in:
Digital Data - Marlon Schreiber
@@ -104,264 +104,267 @@ Public Class frmValidatorSearch
|
||||
End If
|
||||
End Sub
|
||||
Sub Refresh_Load_GridSQL(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
|
||||
'Try
|
||||
Dim myGridControl As DevExpress.XtraGrid.GridControl
|
||||
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Select Case TabIndex
|
||||
Case 0
|
||||
GridControlSearch1.DataSource = Nothing
|
||||
GridViewSearch1.Columns.Clear()
|
||||
myGridview = GridViewSearch1
|
||||
myGridControl = GridControlSearch1
|
||||
Case 1
|
||||
GridControlSearch2.DataSource = Nothing
|
||||
GridViewSearch2.Columns.Clear()
|
||||
myGridview = GridViewSearch2
|
||||
myGridControl = GridControlSearch2
|
||||
Case 2
|
||||
GridControlSearch3.DataSource = Nothing
|
||||
GridViewSearch3.Columns.Clear()
|
||||
myGridview = GridViewSearch3
|
||||
myGridControl = GridControlSearch3
|
||||
Case 3
|
||||
GridControlSearch4.DataSource = Nothing
|
||||
GridViewSearch4.Columns.Clear()
|
||||
myGridview = GridViewSearch4
|
||||
myGridControl = GridControlSearch4
|
||||
Case 4
|
||||
GridControlSearch5.DataSource = Nothing
|
||||
GridViewSearch5.Columns.Clear()
|
||||
myGridview = GridViewSearch5
|
||||
myGridControl = GridControlSearch5
|
||||
End Select
|
||||
myGridControl.ContextMenuStrip = ContextMenuStripSQL
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
|
||||
If Not IsNothing(oDatatable) Then
|
||||
XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
|
||||
Try
|
||||
Dim myGridControl As DevExpress.XtraGrid.GridControl
|
||||
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Select Case TabIndex
|
||||
Case 0
|
||||
GridControlSearch1.DataSource = oDatatable
|
||||
GridViewSearch1.BestFitColumns(True)
|
||||
GridControlSearch1.DataSource = Nothing
|
||||
GridViewSearch1.Columns.Clear()
|
||||
myGridview = GridViewSearch1
|
||||
myGridControl = GridControlSearch1
|
||||
Case 1
|
||||
GridControlSearch2.DataSource = oDatatable
|
||||
GridViewSearch2.BestFitColumns(True)
|
||||
GridControlSearch2.DataSource = Nothing
|
||||
GridViewSearch2.Columns.Clear()
|
||||
myGridview = GridViewSearch2
|
||||
myGridControl = GridControlSearch2
|
||||
Case 2
|
||||
GridControlSearch3.DataSource = oDatatable
|
||||
GridViewSearch3.BestFitColumns(True)
|
||||
GridControlSearch3.DataSource = Nothing
|
||||
GridViewSearch3.Columns.Clear()
|
||||
myGridview = GridViewSearch3
|
||||
myGridControl = GridControlSearch3
|
||||
Case 3
|
||||
GridControlSearch4.DataSource = oDatatable
|
||||
GridViewSearch4.BestFitColumns(True)
|
||||
GridControlSearch4.DataSource = Nothing
|
||||
GridViewSearch4.Columns.Clear()
|
||||
myGridview = GridViewSearch4
|
||||
myGridControl = GridControlSearch4
|
||||
Case 4
|
||||
GridControlSearch5.DataSource = oDatatable
|
||||
GridViewSearch5.BestFitColumns(True)
|
||||
|
||||
GridControlSearch5.DataSource = Nothing
|
||||
GridViewSearch5.Columns.Clear()
|
||||
myGridview = GridViewSearch5
|
||||
myGridControl = GridControlSearch5
|
||||
End Select
|
||||
tsslblSQL.Text = $"Tab {TabCaption} refreshed - {Now}"
|
||||
End If
|
||||
' Catch ex As Exception
|
||||
myGridControl.ContextMenuStrip = ContextMenuStripSQL
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
|
||||
If Not IsNothing(oDatatable) Then
|
||||
XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
|
||||
Select Case TabIndex
|
||||
Case 0
|
||||
GridControlSearch1.DataSource = oDatatable
|
||||
GridViewSearch1.BestFitColumns(True)
|
||||
Case 1
|
||||
GridControlSearch2.DataSource = oDatatable
|
||||
GridViewSearch2.BestFitColumns(True)
|
||||
Case 2
|
||||
GridControlSearch3.DataSource = oDatatable
|
||||
GridViewSearch3.BestFitColumns(True)
|
||||
Case 3
|
||||
GridControlSearch4.DataSource = oDatatable
|
||||
GridViewSearch4.BestFitColumns(True)
|
||||
Case 4
|
||||
GridControlSearch5.DataSource = oDatatable
|
||||
GridViewSearch5.BestFitColumns(True)
|
||||
|
||||
'End Try
|
||||
End Select
|
||||
tsslblSQL.Text = $"Tab {TabCaption} refreshed - {Now}"
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Refresh_Load_GridDoc(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
|
||||
'Try
|
||||
Dim myGridControl As DevExpress.XtraGrid.GridControl
|
||||
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Select Case TabIndex
|
||||
Case 0
|
||||
GridControlDocSearch1.DataSource = Nothing
|
||||
GridViewDocSearch1.Columns.Clear()
|
||||
myGridview = GridViewDocSearch1
|
||||
myGridControl = GridControlDocSearch1
|
||||
Case 1
|
||||
GridControlDocSearch2.DataSource = Nothing
|
||||
GridViewDocSearch2.Columns.Clear()
|
||||
myGridview = GridViewDocSearch2
|
||||
myGridControl = GridControlDocSearch2
|
||||
Case 2
|
||||
GridControlDocSearch3.DataSource = Nothing
|
||||
GridViewDocSearch3.Columns.Clear()
|
||||
myGridview = GridViewDocSearch3
|
||||
myGridControl = GridControlDocSearch3
|
||||
Case 3
|
||||
GridControlDocSearch4.DataSource = Nothing
|
||||
GridViewDocSearch4.Columns.Clear()
|
||||
myGridControl = GridControlDocSearch4
|
||||
myGridview = GridViewDocSearch4
|
||||
Case 4
|
||||
GridControlDocSearch5.DataSource = Nothing
|
||||
GridViewDocSearch5.Columns.Clear()
|
||||
myGridControl = GridControlDocSearch5
|
||||
myGridview = GridViewDocSearch5
|
||||
End Select
|
||||
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
|
||||
If Not IsNothing(oDatatable) Then
|
||||
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
|
||||
clsWMDocGrid.DTDocuments = oDatatable
|
||||
'Select Case TabIndex
|
||||
' Case 0
|
||||
' GridControlDocSearch1.DataSource = oDatatable
|
||||
' Case 1
|
||||
' GridControlDocSearch2.DataSource = oDatatable
|
||||
' Case 2
|
||||
' GridControlDocSearch3.DataSource = oDatatable
|
||||
' Case 3
|
||||
' GridControlDocSearch4.DataSource = oDatatable
|
||||
' Case 4
|
||||
' GridControlDocSearch5.DataSource = oDatatable
|
||||
Try
|
||||
Dim myGridControl As DevExpress.XtraGrid.GridControl
|
||||
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Select Case TabIndex
|
||||
Case 0
|
||||
GridControlDocSearch1.DataSource = Nothing
|
||||
GridViewDocSearch1.Columns.Clear()
|
||||
myGridview = GridViewDocSearch1
|
||||
myGridControl = GridControlDocSearch1
|
||||
Case 1
|
||||
GridControlDocSearch2.DataSource = Nothing
|
||||
GridViewDocSearch2.Columns.Clear()
|
||||
myGridview = GridViewDocSearch2
|
||||
myGridControl = GridControlDocSearch2
|
||||
Case 2
|
||||
GridControlDocSearch3.DataSource = Nothing
|
||||
GridViewDocSearch3.Columns.Clear()
|
||||
myGridview = GridViewDocSearch3
|
||||
myGridControl = GridControlDocSearch3
|
||||
Case 3
|
||||
GridControlDocSearch4.DataSource = Nothing
|
||||
GridViewDocSearch4.Columns.Clear()
|
||||
myGridControl = GridControlDocSearch4
|
||||
myGridview = GridViewDocSearch4
|
||||
Case 4
|
||||
GridControlDocSearch5.DataSource = Nothing
|
||||
GridViewDocSearch5.Columns.Clear()
|
||||
myGridControl = GridControlDocSearch5
|
||||
myGridview = GridViewDocSearch5
|
||||
End Select
|
||||
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
|
||||
If Not IsNothing(oDatatable) Then
|
||||
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
|
||||
clsWMDocGrid.DTDocuments = oDatatable
|
||||
'Select Case TabIndex
|
||||
' Case 0
|
||||
' GridControlDocSearch1.DataSource = oDatatable
|
||||
' Case 1
|
||||
' GridControlDocSearch2.DataSource = oDatatable
|
||||
' Case 2
|
||||
' GridControlDocSearch3.DataSource = oDatatable
|
||||
' Case 3
|
||||
' GridControlDocSearch4.DataSource = oDatatable
|
||||
' Case 4
|
||||
' GridControlDocSearch5.DataSource = oDatatable
|
||||
|
||||
'End Select
|
||||
Create_GridControl(myGridview, oDatatable)
|
||||
Dim oxmlPath As String = ""
|
||||
oxmlPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
|
||||
'End Select
|
||||
Create_GridControl(myGridview, oDatatable)
|
||||
Dim oxmlPath As String = ""
|
||||
oxmlPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
|
||||
|
||||
If File.Exists(oxmlPath) Then
|
||||
myGridview.RestoreLayoutFromXml(oxmlPath)
|
||||
myGridview.GuessAutoFilterRowValuesFromFilter()
|
||||
If File.Exists(oxmlPath) Then
|
||||
myGridview.RestoreLayoutFromXml(oxmlPath)
|
||||
myGridview.GuessAutoFilterRowValuesFromFilter()
|
||||
End If
|
||||
tslblState.Text = $"Tab {TabCaption} refreshed - {Now}"
|
||||
Else
|
||||
clsWMDocGrid.DTDocuments = Nothing
|
||||
End If
|
||||
tslblState.Text = $"Tab {TabCaption} refreshed - {Now}"
|
||||
Else
|
||||
clsWMDocGrid.DTDocuments = Nothing
|
||||
End If
|
||||
'Catch ex As Exception
|
||||
|
||||
'End Try
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
Private Function Create_GridControl(MyGridView As GridView, _datatable As DataTable) As GridView
|
||||
Dim oMyDocDatatable As New DataTable
|
||||
' Try
|
||||
'Die Icon Colum erstellen und konfigurieren
|
||||
Dim oColIcon As New System.Data.DataColumn()
|
||||
oColIcon.DataType = GetType(Image)
|
||||
oColIcon.ColumnName = "ICON"
|
||||
oColIcon.Caption = ""
|
||||
oMyDocDatatable.Columns.Add(oColIcon)
|
||||
Try
|
||||
'Die Icon Colum erstellen und konfigurieren
|
||||
Dim oColIcon As New System.Data.DataColumn()
|
||||
oColIcon.DataType = GetType(Image)
|
||||
oColIcon.ColumnName = "ICON"
|
||||
oColIcon.Caption = ""
|
||||
oMyDocDatatable.Columns.Add(oColIcon)
|
||||
|
||||
Dim oColPath As New System.Data.DataColumn()
|
||||
oColPath.DataType = GetType(String)
|
||||
oColPath.ColumnName = "FULL_FILENAME"
|
||||
oColPath.Caption = "Fullpath"
|
||||
oMyDocDatatable.Columns.Add(oColPath)
|
||||
Dim oColDocID As New System.Data.DataColumn()
|
||||
oColDocID.DataType = GetType(Int32)
|
||||
oColDocID.ColumnName = "DocID"
|
||||
oColDocID.Caption = "DocID"
|
||||
oMyDocDatatable.Columns.Add(oColDocID)
|
||||
Dim oRestColArray As New List(Of String)
|
||||
For Each oCol As DataColumn In _datatable.Columns
|
||||
Dim onewColumn As New System.Data.DataColumn()
|
||||
If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
|
||||
Dim oColPath As New System.Data.DataColumn()
|
||||
oColPath.DataType = GetType(String)
|
||||
oColPath.ColumnName = "FULL_FILENAME"
|
||||
oColPath.Caption = "Fullpath"
|
||||
oMyDocDatatable.Columns.Add(oColPath)
|
||||
Dim oColDocID As New System.Data.DataColumn()
|
||||
oColDocID.DataType = GetType(Int32)
|
||||
oColDocID.ColumnName = "DocID"
|
||||
oColDocID.Caption = "DocID"
|
||||
oMyDocDatatable.Columns.Add(oColDocID)
|
||||
Dim oRestColArray As New List(Of String)
|
||||
For Each oCol As DataColumn In _datatable.Columns
|
||||
Dim onewColumn As New System.Data.DataColumn()
|
||||
If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
|
||||
|
||||
onewColumn.DataType = GetType(String)
|
||||
onewColumn.ColumnName = oCol.ColumnName
|
||||
onewColumn.Caption = oCol.Caption
|
||||
oMyDocDatatable.Columns.Add(onewColumn)
|
||||
oRestColArray.Add(onewColumn.ColumnName)
|
||||
onewColumn.DataType = GetType(String)
|
||||
onewColumn.ColumnName = oCol.ColumnName
|
||||
onewColumn.Caption = oCol.Caption
|
||||
oMyDocDatatable.Columns.Add(onewColumn)
|
||||
oRestColArray.Add(onewColumn.ColumnName)
|
||||
End If
|
||||
|
||||
Next
|
||||
For Each FILE_ROW As DataRow In _datatable.Rows
|
||||
Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
|
||||
Dim oDocID = FILE_ROW.Item("DocID")
|
||||
'Dim Folderpath = Path.GetDirectoryName(fullpath)
|
||||
Dim oFilename = Path.GetFileName(oFullpath)
|
||||
Dim oFileextension = Path.GetExtension(oFullpath)
|
||||
Dim oNewRow As DataRow
|
||||
oNewRow = oMyDocDatatable.NewRow()
|
||||
'Icon zuweisen
|
||||
Select Case oFileextension.ToUpper
|
||||
Case ".csv".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.doc_excel_csv
|
||||
Case ".txt".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.txt
|
||||
Case ".pdf".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.pdf
|
||||
Case ".doc".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.doc
|
||||
Case ".docx".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.doc
|
||||
Case ".xls".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsx".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsm".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.xls
|
||||
Case ".ppt".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.ppt
|
||||
Case ".pptx".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.ppt
|
||||
Case ".dwg".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.dwg
|
||||
Case ".dxf".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.dxf
|
||||
Case ".msg".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.email_go
|
||||
Case ".msg".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.email_go
|
||||
Case Else
|
||||
oNewRow.Item(0) = My.Resources._blank
|
||||
End Select
|
||||
'Den Filepath mitgeben
|
||||
oNewRow.Item(1) = oFullpath
|
||||
oNewRow.Item(2) = oDocID
|
||||
|
||||
Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
|
||||
For Each Colname As String In oRestColArray
|
||||
Dim oRowValue
|
||||
oRowValue = FILE_ROW.Item(Colname)
|
||||
oNewRow.Item(i) = oRowValue.ToString
|
||||
i += 1
|
||||
Next
|
||||
oMyDocDatatable.Rows.Add(oNewRow)
|
||||
Next
|
||||
Dim sdsd As String = ""
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim oGridControl As GridControl = MyGridView.GridControl
|
||||
oGridControl.DataSource = oMyDocDatatable
|
||||
oGridControl.ForceInitialize()
|
||||
Try
|
||||
MyGridView.Columns.Item("DocID").Visible = False
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Try
|
||||
MyGridView.Columns.Item("FULL_FILENAME").Visible = False
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Dim created, changed As String
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
changed = "Changed"
|
||||
created = "Created"
|
||||
Else
|
||||
changed = "Geändert"
|
||||
created = "Erstellt"
|
||||
End If
|
||||
|
||||
Next
|
||||
For Each FILE_ROW As DataRow In _datatable.Rows
|
||||
Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
|
||||
Dim oDocID = FILE_ROW.Item("DocID")
|
||||
'Dim Folderpath = Path.GetDirectoryName(fullpath)
|
||||
Dim oFilename = Path.GetFileName(oFullpath)
|
||||
Dim oFileextension = Path.GetExtension(oFullpath)
|
||||
Dim oNewRow As DataRow
|
||||
oNewRow = oMyDocDatatable.NewRow()
|
||||
'Icon zuweisen
|
||||
Select Case oFileextension.ToUpper
|
||||
Case ".csv".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.doc_excel_csv
|
||||
Case ".txt".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.txt
|
||||
Case ".pdf".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.pdf
|
||||
Case ".doc".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.doc
|
||||
Case ".docx".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.doc
|
||||
Case ".xls".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsx".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsm".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.xls
|
||||
Case ".ppt".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.ppt
|
||||
Case ".pptx".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.ppt
|
||||
Case ".dwg".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.dwg
|
||||
Case ".dxf".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.dxf
|
||||
Case ".msg".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.email_go
|
||||
Case ".msg".ToUpper
|
||||
oNewRow.Item(0) = My.Resources.email_go
|
||||
Case Else
|
||||
oNewRow.Item(0) = My.Resources._blank
|
||||
End Select
|
||||
'Den Filepath mitgeben
|
||||
oNewRow.Item(1) = oFullpath
|
||||
oNewRow.Item(2) = oDocID
|
||||
Dim createdColumn = MyGridView.Columns(created)
|
||||
If Not IsNothing(createdColumn) Then
|
||||
createdColumn.DisplayFormat.FormatType = FormatType.DateTime
|
||||
createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
|
||||
End If
|
||||
|
||||
Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
|
||||
For Each Colname As String In oRestColArray
|
||||
Dim oRowValue
|
||||
oRowValue = FILE_ROW.Item(Colname)
|
||||
oNewRow.Item(i) = oRowValue.ToString
|
||||
i += 1
|
||||
Dim changedColumn = MyGridView.Columns(changed)
|
||||
If Not IsNothing(changedColumn) Then
|
||||
changedColumn.DisplayFormat.FormatType = FormatType.DateTime
|
||||
changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
|
||||
End If
|
||||
' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
|
||||
For Each column As GridColumn In MyGridView.Columns
|
||||
column.OptionsColumn.AllowEdit = False
|
||||
Next
|
||||
oMyDocDatatable.Rows.Add(oNewRow)
|
||||
Next
|
||||
Dim sdsd As String = ""
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim oGridControl As GridControl = MyGridView.GridControl
|
||||
oGridControl.DataSource = oMyDocDatatable
|
||||
oGridControl.ForceInitialize()
|
||||
Try
|
||||
MyGridView.Columns.Item("DocID").Visible = False
|
||||
MyGridView.Columns.Item("ICON").MaxWidth = 24
|
||||
MyGridView.Columns.Item("ICON").MinWidth = 24
|
||||
MyGridView.OptionsView.BestFitMaxRowCount = -1
|
||||
MyGridView.BestFitColumns(True)
|
||||
Return MyGridView
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
Try
|
||||
MyGridView.Columns.Item("FULL_FILENAME").Visible = False
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Dim created, changed As String
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
changed = "Changed"
|
||||
created = "Created"
|
||||
Else
|
||||
changed = "Geändert"
|
||||
created = "Erstellt"
|
||||
End If
|
||||
|
||||
Dim createdColumn = MyGridView.Columns(created)
|
||||
If Not IsNothing(createdColumn) Then
|
||||
createdColumn.DisplayFormat.FormatType = FormatType.DateTime
|
||||
createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
|
||||
End If
|
||||
|
||||
Dim changedColumn = MyGridView.Columns(changed)
|
||||
If Not IsNothing(changedColumn) Then
|
||||
changedColumn.DisplayFormat.FormatType = FormatType.DateTime
|
||||
changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
|
||||
End If
|
||||
' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
|
||||
For Each column As GridColumn In MyGridView.Columns
|
||||
column.OptionsColumn.AllowEdit = False
|
||||
Next
|
||||
MyGridView.Columns.Item("ICON").MaxWidth = 24
|
||||
MyGridView.Columns.Item("ICON").MinWidth = 24
|
||||
MyGridView.OptionsView.BestFitMaxRowCount = -1
|
||||
MyGridView.BestFitColumns(True)
|
||||
Return MyGridView
|
||||
End Function
|
||||
Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Try
|
||||
|
||||
Reference in New Issue
Block a user