dynamisk array til sammentælling

puha, det kommer da lidt an på hvordan du henter data fra hvorhen ...

@Sum kan passende anvendes på formularer ...
Totaler og kategorier kan bruges i Views og "Copy Selected as Table" til export ...

I Lotusscript kan man bruge en ViewNavigator. Hvis du er heldig kan den nemt vise dig totaler ...

bare nogle forslag ...

Hvordan foregår eksporten til Excell?

Eksporten gør jeg sådan her:
Set xlApp = CreateObject("Excel.Application")  'start Excel with OLE Automation
xlApp.StatusBar = "Creating WorkSheet. Please be patient..."
xlApp.Visible = True
xlApp.Workbooks.Add
xlApp.ReferenceStyle = 2
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)  'select first worksheet

Umiddelbart prøver jeg sådan noget her, men skal nok på en eller anden vis have lagt det i et array!
Dim vc As NotesViewEntryCollection
    Set db = session.CurrentDatabase
    Set view = db.GetView("(AppLookupTimeSheetsForOperationNo)")
    Set vc = view.AllEntries   
    Set entry = vc.GetFirstEntry()
    Set doc = entry.Document
   
   
    While (Not Doc Is Nothing)
        If ( oprno = Doc.GetItemValue("SalaryOperaNo")(0)) Then
            oprquantity = oprquantity +  Doc.GetItemValue("SalaryQuantity")(0) 
        Else
            oprno = Doc.GetItemValue("SalaryOperaNo")(0)
           
        End If

Den slags løkker du har gang i er lidt mere komplekse end som så.
Du skal holde bedre øje med "forrige" oprno og sammenligne.

Men det kan være at en af de punkter jeg nævnte foroven kan hjælpe dig.

Kategoriser dokumenterne på SalaryOperaNo
Tilføj en Totaler på kolonnen der har SalaryQuantity
Nu vil du se en sum i oversigten ved siden af kategorien


prøv nu at oprette en ViewNavigator.
Det burde være muligt at traversere oversigten med denne viewnavigator og hente totalerne ud af kolonnen for hver kategori.

Ok, jeg har nu fået det til at virke på en anden måde :-) Nu skal jeg hbare have tilføjet alle min udvalgskriterier!

While (Not Doc Is Nothing)
        If ( oprno = Doc.GetItemValue("SalaryOperaNo")(0)) Then
            oprtext = Doc.GetItemValue("SalaryOperaText")(0)
            oprquantity = oprquantity +  Doc.GetItemValue("SalaryQuantity")(0) 
            Set entry = vc.GetNextEntry(entry)
            Set doc = entry.Document
        Else
            R = R+1
            rows=rows+1
            SB = oprno
            SC=  oprtext
            SD = oprquantity 
            'Print "----------------------------------" & SA
            xlsheet.Range("A" & R ).Value = SA
            xlsheet.Range("B" & R ).Value = SB
            xlsheet.Range("C" & R ).Value = SC
            xlsheet.Range("D" & R ).Value = SD
            xlsheet.Range("E" & R ).Value = SD
            xlsheet.Range("F" & R ).Value = SD
            xlsheet.Range("G" & R ).Value = SD
            xlsheet.Range("H" & R ).Value = SD
           
            oprno = Doc.GetItemValue("SalaryOperaNo")(0)
            Set entry = vc.GetNextEntry(entry)
            Set doc = entry.Document
        End If
    Wend

Husk bare den sidste skrivning til Excel.
Så vidt jeg kan se kommer din sidste kategori ikke med over i Excel. Men ellers havde du jo allerede styr på "sidste". Det overså jeg.

Hej smid et svar

kastet...