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

jj 31.05

Browse Source
This commit is contained in:
JenneJ
2016-05-31 15:19:32 +02:00
parent ecb4161e6a
commit bd4bc6b9f3
30 changed files with 613 additions and 533 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -531,15 +531,14 @@ Public Class ClassControlCommandsUI
Continue For
End If
If TypeOf ctrl Is DevExpress.XtraEditors.CheckedListBoxControl Then
Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id
UpdateMultipleValues(id, RecordID, CONTROL_VALUE)
If TypeOf ctrl Is Windows.Forms.DataGridView Then
'Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id
'UpdateMultipleValues(id, RecordID, CONTROL_VALUE)
Continue For
End If
If TypeOf ctrl Is Windows.Forms.DataGridView Then
Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id
UpdateMultipleValues(id, RecordID, CONTROL_VALUE)
' UpdateMultipleValues wird für diese Controls bereits beim CheckedChanged-Event ausgeführt
If TypeOf ctrl Is DevExpress.XtraGrid.GridControl Or TypeOf ctrl Is DevExpress.XtraEditors.CheckedListBoxControl Then
Continue For
End If
@@ -758,46 +757,63 @@ Public Class ClassControlCommandsUI
Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = chk_grid.MainView
Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID)
''TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
If IsNothing(chk_grid.DataSource) Then
Dim result As New List(Of String)
Dim result_string As String
Dim result As New List(Of String)
Dim result_string As String
For i As Integer = 0 To gridview.DataRowCount
Dim res = gridview.GetRowCellValue(i, 0)
If CBool(gridview.GetRowCellValue(i, "CHECKED")) = True Then
Dim value = gridview.GetRowCellValue(i, 1).ToString.Trim
result.Add(value)
End If
Next
' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' Überspringt den Rest der funktion
result_string = String.Join(";", result)
If Not IsNothing(result_string) Then
Return result_string
Else
Return Nothing
End If
For Each index As Integer In gridview.GetSelectedRows()
Dim fieldName As String = gridview.Columns(0).FieldName
Dim value As String = gridview.GetRowCellValue(index, fieldName)
result.Add(value)
Next
result_string = String.Join(";", result)
If Not IsNothing(result_string) Then
Return result_string
Else
Dim result As New List(Of String)
Dim result_string As String
Dim DT As DataTable = chk_grid.DataSource
For Each row As DataRow In DT.Rows
If CBool(row.Item(0)) = True Then
Dim value = row.Item(1).ToString.Trim
result.Add(value)
End If
Next
' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' Überspringt den Rest der funktion
result_string = String.Join(";", result)
If Not IsNothing(result_string) Then
Return result_string
Else
Return Nothing
End If
Return Nothing
End If
''TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
'If IsNothing(chk_grid.DataSource) Then
' Dim result As New List(Of String)
' Dim result_string As String
' For i As Integer = 0 To gridview.DataRowCount
' Dim res = gridview.GetRowCellValue(i, 0)
' If CBool(gridview.GetRowCellValue(i, "CHECKED")) = True Then
' Dim value = gridview.GetRowCellValue(i, 1).ToString.Trim
' result.Add(value)
' End If
' Next
' ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' ' Überspringt den Rest der funktion
' result_string = String.Join(";", result)
' If Not IsNothing(result_string) Then
' Return result_string
' Else
' Return Nothing
' End If
'Else
' Dim result As New List(Of String)
' Dim result_string As String
' Dim DT As DataTable = chk_grid.DataSource
' For Each row As DataRow In DT.Rows
' If CBool(row.Item(0)) = True Then
' Dim value = row.Item(1).ToString.Trim
' result.Add(value)
' End If
' Next
' ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' ' Überspringt den Rest der funktion
' result_string = String.Join(";", result)
' If Not IsNothing(result_string) Then
' Return result_string
' Else
' Return Nothing
' End If
'End If
'If SQL_COMAMND.ToString.StartsWith("SELECT [RECORD_ID]") Or SQL_COMAMND.ToString.StartsWith("SELECT [RECORD-ID]") Then
' 'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt
' 'Wenn nicht angehakt dann Record löschen