Hallo Zusammen!
Ich habe mir ein kleines Programm gschrieben, mit dem ich bestimmte Daten aus eine SQL - Datenbank in ein ListView einlese, wie z.B.:
- Artikelnummer
- Bezeichnung
- Bestelltext
- etc.
Unteranderem kann ein Artikel noch 2 Infomationen besitzen:
- Zeichnung vorhanden (DWG)
- Datenblatt vorhanden (PDF)
'---ListView Einstellungen----------------------------------------------
With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.View = lvwReport
.SmallIcons = ImageList1
End With
'---Spaltendefinition---------------------------------------------------
With ListView1.ColumnHeaders
.Add , , "DWG", 15
.Add , , "PDF", 15
.Add , , "Materialsortierung", 75
.Add , , "Artikelnummer", 70
.Add , , "Breite", 40
.Add , , "Stärke", 40
.Add , , "Länge", 40
.Add , , "Bezeichnung", 130
.Add , , "EK-Preis", 40
.Add , , "Gewicht", 40
.Add , , "Einheit", 30
.Add , , "Bestelltext", 150
.Add , , "DWG - Pfad", 150
.Add , , "PDF - Pfad", 150
End With
'---ListView mit Datenbankinformationen füllen---------------------------
Rs.MoveFirst
Do Until Rs.EOF
Set LItem = ListView1.ListItems.Add()
LItem.Text = "" 'DWG / Zeichnung
' vorhanden
LItem.SubItems(1) = "" 'PDF / Dokument
' vorhanden
LItem.SubItems(2) = (Rs!MATSORT_ID) 'Materialsortierung
LItem.SubItems(3) = (Rs!PD_NUM & "") 'Artikelnummer
LItem.SubItems(4) = (Rs!M_Breite & "") 'Breite
LItem.SubItems(5) = (Rs!M_Dicke & "") 'Stärke
LItem.SubItems(6) = (Rs!M_Laenge & "") 'Länge
LItem.SubItems(7) = (Rs!PD_BEZ & "") 'Bezeichnung
LItem.SubItems(8) = (Rs!M_EK_Preis & "") 'EK-Preis
LItem.SubItems(9) = (Rs!Gewicht & "") 'Gewicht
LItem.SubItems(10) = (Rs!M_Best_Einheit_ID & "") 'Bestelltext
LItem.SubItems(11) = (Rs!M_Bestelltext & "") 'Bestelleinheit
LItem.SubItems(12) = (Rs!M_ZNAME_DWG & "") 'DWG - Verzeichnis
LItem.SubItems(13) = (Rs!M_ZNAME_PDF & "") 'PDF - Verzeichnis
Rs.MoveNext
Loop
Rs.Close
End Sub Wenn das ListView nun gefüllt ist, soll in den Zeilen, in den die beiden Felder
LItem.SubItems(12) = (Rs!M_ZNAME_DWG & "") 'DWG - Verzeichnis
LItem.SubItems(13) = (Rs!M_ZNAME_PDF & "") 'PDF - Verzeichnis einen Inhalt haben, das entsprechende Icon vorne in den beiden ersten Spalten
angezeigt werden.
Wie bekomme ich da nun eine Abfrage hin, so daß das richtige Icon in der richtigen Spalte
und in der richtigen Zeile angezeigt wird?
Wäre schön, wenn mir da jemand auf die Sprünge helfen könnte.
Vielen Dank im voraus.
VG
Dirk |