vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Fußzeile Summe 
Autor: sufkb
Datum: 07.04.20 14:52

Hallo,
ich möchte im sevGrid in der Fußzeile die Summe darstellen.
Allerdings komme ich bei der Erstellung des recorsets nicht weiter.
Ich erhalte die Fehlermeldung "Objekt erforderlich"



Private Sub ShowFooter()
' alle numerischen Spalten aufsummieren  Dim sSQL As String
  Dim i As Long
  Dim oRst As DAO.Recordset
  Dim sSQL As String
  Dim nSumme As Long
 
With GridMehl
' zunächst alle Betragsspalten ermitteln
    For i = 1 To .Cols
        With .Columns(i)
        If .DataType = dtNumeric Then
        sSQL = sSQL & "SUM(" & GridMehl.Recordset.Fields(i - 1).Name & "), "
        End If
        End With
    Next i
If Len(sSQL) > 0 Then
' temporäres Recordset erstellen
sSQL = Left$(sSQL, Len(sSQL) - 2)
Set oRs = db.OpenRecordset("SELECT " & sSQL & " FROM qryMehlfutter" & sWhere)
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fußzeile Summe329sufkb07.04.20 14:52
Re: Fußzeile Summe204ModeratorDieter08.04.20 06:35
Re: Fußzeile Summe181sufkb08.04.20 08:24

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 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