jj 21.09 classwindreamdocgrid

app/DD-Record-Organiser/frmRecordView.vb

@@ -89,6 +89,14 @@ Public Class frmRecordView
         'Perform your actions
     End Sub
 
+    Private Sub OnDateSelectedValueChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub OnTextSelectedValueChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
     Private Sub RUN_WDSEARCH_GRID()
         Me.Cursor = Cursors.WaitCursor
         Try
@@ -111,12 +119,14 @@ Public Class frmRecordView
                 tslblWindreamView.Text = msg
 
                 If DT_RESULT.Rows.Count > 0 Then
-                    ClassWindreamDocGrid.FormatColumns(
+                    ClassWindreamDocGrid.FillColumns(
                         GridViewDoc_Search,
                         DT_RESULT,
                         DT_WINDREAM_RESULTLIST,
                         DT_DOCRESULT_DROPDOWN_ITEMS,
-                        AddressOf OnCBSelectedValueChanged)
+                        AddressOf OnCBSelectedValueChanged,
+                        AddressOf OnDateSelectedValueChanged,
+                        AddressOf OnTextSelectedValueChanged)
                 End If
             Else
                 Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden"