Hallo,
ich bräuchte etwas Hilfe bei der Kommentierung meines Visual Basic Quelltextes.
Und zwar habe ich mir bei der Datenbank helfen lassen, bräuchte aber nun etwas Hilfe um das ganze besser zu verstehen.
Es wäre lieb, wenn ihr mir die wichtigsten Befehle kommentieren könntet.
Nun zum Quelltext.
Alles anzeigen
Vielen Dank für eure Hilfe.
Gruß Thomas.
ich bräuchte etwas Hilfe bei der Kommentierung meines Visual Basic Quelltextes.
Und zwar habe ich mir bei der Datenbank helfen lassen, bräuchte aber nun etwas Hilfe um das ganze besser zu verstehen.
Es wäre lieb, wenn ihr mir die wichtigsten Befehle kommentieren könntet.
Nun zum Quelltext.
Quellcode
- Private Sub Befehl14_Click()
- Dim rs As Recordset
- Dim b_arr() As String
- Dim icd_arr() As String
- Dim lv, av, ind, anzahl, slange As Integer
- Dim b_str, icd_str As String
- Dim pos, t_pos, pos_1 As Long
- Dim f_arr() As String
- Dim icd_t_str, t_str As String
- Dim tmp_str
- Liste11.RowSource = vbEmptyString
- Set rs = CurrentDb.OpenRecordset("SELECT BID FROM Diagnose WHERE DID = '" & Text0.Value & "' GROUP BY BID", dbOpenDynaset)
- Do While Not rs.EOF
- If b_str <> "" Then
- b_str = b_str & ";" & rs.Fields("BID")
- Else
- b_str = rs.Fields("BID")
- End If
- rs.MoveNext
- Loop
- rs.Close
- b_arr = Split(b_str, ";")
- b_str = ""
- For lv = 0 To UBound(b_arr)
- Set rs = CurrentDb.OpenRecordset("SELECT a.DID as IC, b.Beschreibung as INAME FROM Diagnose as a, ICD as b WHERE a.BID=" & b_arr(lv) & " AND a.DID<>'" & Text0.Value & "' AND b.Code=a.DID ORDER BY b.Beschreibung", dbOpenDynaset)
- Do While Not rs.EOF
- If icd_str <> "" Then
- icd_str = icd_str & ";" & rs.Fields("IC") & " " & Trim(rs.Fields("INAME"))
- Else
- icd_str = rs.Fields("IC") & " " & Trim(rs.Fields("INAME"))
- End If
- rs.MoveNext
- Loop
- rs.Close
- Next lv
- Erase b_arr
- icd_arr = Split(icd_str, ";")
- For av = 0 To UBound(icd_arr)
- icd_t_str = icd_arr(av) & ";"
- slange = Len(icd_arr(av))
- pos = InStr(icd_str, icd_arr(av))
- pos_1 = pos + Len(icd_t_str)
- If pos > 0 And Mid(icd_str, pos, pos_1 - pos + 1) <> Trim(icd_arr(av)) & " (" Then
- anzahl = 0
- Do While pos > 0
- anzahl = anzahl + 1
- t_pos = pos + slange
- pos = InStr(t_pos, icd_str, icd_arr(av))
- Loop
- icd_str = Replace(icd_str, icd_arr(av), "TEMP", 1, 1)
- icd_str = Replace(icd_str, icd_arr(av), vbNullString)
- icd_str = Replace(icd_str, "TEMP", icd_arr(av) & " (" & anzahl & ")")
- End If
- Next av
- Erase icd_arr
- f_arr = Split(icd_str, ";")
- icd_str = ""
- For Each tmp_str In f_arr
- If tmp_str <> vbNullString Then Liste11.AddItem tmp_str
- Next
- Liste11.Visible = True
- End Sub
Vielen Dank für eure Hilfe.
Gruß Thomas.