update 20231114

DPM2016/Database/clsDB.vb

@@ -458,6 +458,16 @@ Public Class clsDB
 #Region "Suche"
     Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
         Select Case Type
+            Case "Behandlungsgrund"
+
+                Searchstring = Searchstring.Replace("'", "''")
+                Get_Tabledata("privat", "", "Select distinct * from privat where nrprivat in (select nrpatient from behandlu where behandlungsgrund like '%" + Searchstring + "%')" + " order by name, vorname, ort")
+                If dsDaten.Tables(0).Rows.Count = 0 Then
+                    ' MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
+                    Return Search("Patient", Searchstring)
+                    Exit Function
+                End If
+                Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
             Case "Patient"
                 Searchstring = Searchstring.Replace("'", "''")
                 If IsNumeric(Searchstring) Then