VB.NET-Quellcode
- Private Sub Form_Load()
- If Not IsNull(Forms!FRM_Bestellung2016!Artikelnummer) Then
- ArtNr = Forms!FRM_Bestellung2016!Artikelnummer & "%"
- MsgBox (ArtNr)
- sql = "SELECT dbo_Artikel.Matchcode, dbo_Artikel.Artikelnummer from dbo_Artikel where dbo_Artikel.Artikelnummer like '" & ArtNr & "' "
- Else
- ArtBez = Forms!FRM_Bestellung2016!Produktname & "%"
- sql = "SELECT dbo_Artikel.Matchcode, dbo_Artikel.Artikelnummer from dbo_Artikel where dbo_Artikel.Matchcode = '" & ArtBez & "'"
- End If
- Me.ListeProdukt.RowSource = sql
- End Sub
- Private Sub ListeProdukt_DblClick(Cancel As Integer)
- MsgBox (ListeProdukt.Column(1))
- 'Forms!FRM_Bestellung2016!Liste128.RowSource = Me.ListeProdukt.Column(1)
Soweit alles schön und gut. Jedoch gibt es ein paar Sachen die ich nicht verstehe.
ListeProdukt zeigt nur den Matchcode an, was anfürsich gut ist, aber wenn ich den Wert in Column 1 in Liste128 schreibe schreibt er mir die Artikelnr. rein und Column 2 ist null.
Das optimale Ergebniss wäre, bei Doppelklick wird Artikelnr und Matchcode von ListeProdukt in Liste128 in Column 1 und 2 geschrieben.