mikrocontroller.net

Forum: PC-Programmierung Vb6 und Recordset


Autor: Der Grosse (jonnyk)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo Leute.

Ich habe ein programm geschrieben das einige werte aus einer Datenbank 
ausliest.

Funktioniert!

Jetzt habe ich eine combobox eingebaut und versuche mir aus einer zeile 
mehrere werte auszulesen.

z.b. wenn die tabelle so aussieht:

--------------------------------------------------------------------
| [ID]  | [Bezeichnung]   |  [Feld1]    | [Feld2]     | [Feld3]    |
--------------------------------------------------------------------
|  1    |  Ausgang 1      |  Fehler 1.1 | Fehler 1.2  | Fehler 1.3 |
|  2    |  Ausgang 2      |  Fehler 2.1 | Fehler 2.2  | Fehler 2.3 |
|  3    |  Ausgang 3      |  Fehler 3.1 | Fehler 3.2  | Fehler 3.3 |
|  4    |  Ausgang 4      |  Fehler 4.1 | Fehler 4.2  | Fehler 4.3 |
--------------------------------------------------------------------

So, jeztz wähle ich in meinem FlexGrid die erste zeile dann möchte ich 
alle werte angezeigt bekommen die nach Ausgang 1 stehen.

wenn ich die 3 zeile anklicke dann sollen alle werte für Ausgang 3 
angezeit werden.

bisher habe ich es mit diesem Code versucht aber es Funktioniert nicht 
richtig. Zumindest weiss ich nicht wie ich zwieschen den spalten hin und 
her springen soll.

Hier mein bisheriger code:

Private Sub VSFlexGrid1_Click()

    On Error Resume Next
    Dim col As Long
    Dim i As Integer
    i = 0
    col = VSFlexGrid1.ColSel
    If VSFlexGrid1.ColKey(col) <> "Fehlerauswahl" Then Exit Sub
        ' show and activate date picker control
        Combo1.Visible = True
        Combo1.SetFocus

        Akt_Fehler.MoveFirst
        i = 1
        For i = 1 To VSFlexGrid1.RowSel - 1
            Akt_Fehler.MoveNext
        Next i
        i = 0
        Err.Number = 0
        Do While Akt_Fehler.EOF <> True

            If IsNull(Akt_Fehler.Fields.Item(VSFlexGrid1.Row + i).Value 
Then

            Else
                Combo1.AddItem (Akt_Fehler.Fields.Item(VSFlexGrid1.Row + 
i).Value)
            End If

            If Err.Number <> 0 Then
                Exit Do
            End If
            i = i + 1
        Loop
        Akt_Fehler.MoveFirst
        Akt_Fehler.Update
        ' position date picker control over cell
        Combo1.Move VSFlexGrid1.CellLeft, VSFlexGrid1.CellTop, 
VSFlexGrid1.CellWidth ', VSFlexGrid1.CellHeight
        Akt_Fehler.Close

            DoEvents

        Akt_Fehler.Open
        ' show and activate date picker control
        Combo1.Visible = True
        Combo1.SetFocus

        VSFlexGrid1.Text = Combo1
End Sub

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.