|
| |
Visual-Basic Einsteiger| Problem.. | |  | | Autor: Junior Proggi | | Datum: 10.07.02 14:36 |
| Irgendwie funktioniert es bei mir einfach nicht.....
Hier mal der komplette Code...
Mit der Prozedur "przAusgeben", lasse ich die Daten in das Listview einfügen.
Mit der Prozedur przZeit möchte ich nun die Überprüfung machen, er färbt mir
aber immer nur den ersten Datensatz !
Mit dem Click Ereigniss rufe ich dann alles auf, nun weiß ich aber nicht wo ich przZeit einfügen soll ?
Irgendwie bin ich am verzweifeln ....
Private Sub osPresales_Click()
mSQL = "SELECT ID,Kurzbez_Angebot,Firmenname,Umsatz_über_Laufzeit,Vertragsbeginn,soll_abgabetermin FROM tbl_smd_angebote WHERE Vertrag IS NULL ORDER BY ID Desc "
przAusgeben
End Sub
Private Sub przAusgeben()
Dim itemX As ListItem
Dim iCols As Integer
Dim i As Integer
Dim oField As DAO.Field
Dim oItem As ListItem
Set dyS = mdbSMD.OpenRecordset(mSQL, dbOpenDynaset)
With ListView1
.ColumnHeaders.Clear
.ListItems.Clear
.View = lvwReport
For Each oField In dyS.Fieldsw
.ColumnHeaders.Add , oField.Name, oField.Name
Next
If dyS.RecordCount > 0 Then
dyS.MoveFirst
Do
For Each oField In dyS.Fields
If oItem Is Nothing Then
Set oItem = .ListItems.Add(, , oField.Value)
Else
oItem.SubItems _
(.ColumnHeaders.Item(oField.Name).Index - 1) _
= IIf(Not IsNull(oField.Value), oField.Value, "")
End If
Next
Set oItem = Nothing
dyS.MoveNext
Loop Until dyS.EOF
.ColumnHeaders(1).Text = "ID"
.ColumnHeaders(2).Text = "Kurzbezeichnung d. Angebots"
.ColumnHeaders(3).Text = "Firmenname"
.ColumnHeaders(4).Text = "Umsatz über Laufzeit"
.ColumnHeaders(5).Text = "Vertragsbeginn"
.ColumnHeaders(6).Text = "Soll Abgabetermin"
End If
End With
LVColumnWidth ListView1, True
Set dyS = mdbSMD.OpenRecordset("tbl_smd_angebote", dbOpenDynaset)
End Sub
Private Sub przZeit()
Dim lDays As Long
Dim iDay As Integer
Dim iMonth As Integer
Dim iYear As Integer
iDay = Val(left$(dyS!Soll_Abgabetermin, 2))
iMonth = Val(Mid$(dyS!Soll_Abgabetermin, 4, 2))
iYear = Val(Mid$(dyS!Soll_Abgabetermin, 7, 4))
lDays = DateDiff("d", DateSerial(iYear, iMonth, iDay), Date)
If lDays >= -1 Then
lvw_SetColor ListView1, vbRed, 0, 1
ElseIf lDays >= -3 Then
lvw_SetColor ListView1, vbYellow, 0, 1
Else
lvw_SetColor ListView1, vbBlack, 0, 1
End If
End Sub
Gruß JP | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
.. danke (oT)