Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: sevGrid Summe
Autor: Raff
Datum: 21.11.07 19:41
Hallo Dieter Danke für Deine Antwort Ich habe das Beispielprojekt ausprobiert, leider klappt es nicht. Ich kann ja nicht oRs mit ADODB und DAO kombinieren. Das sevGrid öffne ich mit ADODB.Recordset Dim oRs As New ADODB.Recordset Private oRs As DAO.Recordset Beispiel: Private Sub ShowSumme() ' Summenzeile aktualisieren Dim oRs As ADODB.Recordset Dim nSumme As Currency With sevGrid1.Columns("Preis") sSQL = "SELECT SUM(Preis) FROM Rep" & IIf(sWHERE = "", "", " WHERE " & sWHERE) If oConn.BeginTrans > 0 Then If Not IsNull(oRs.Fields(0)) Then nSumme = oRs.Fields(0) End If .FooterText = FormatCurrency(nSumme) .FooterForeColor = IIf(nSumme < 0, vbRed, vbBlue) ' oRs.Close Set oRs = Nothing End With Was mache ich falsch Danke imvoraus

sevGrid Summe	820	Raff	19.11.07 22:01
Re: sevGrid Summe	445	Dieter	20.11.07 06:48
Re: sevGrid Summe	475	Raff	21.11.07 19:41
Re: sevGrid Summe	474	Dieter	21.11.07 20:20
Re: sevGrid Summe	464	Raff	22.11.07 20:21

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen