MS Flex Grid i Excel

[ Aleksandar Vasic @ 07.01.2007. 20:49 ] @

Imam objekat Data1 koji cita bazu iz excela koja npr. ima 5 sheet-ova... meni je u objektu Data1 podeseno da DataSource bude Sheet1 recimo...a ms flexgrid cita podatke iz Data1 i prikazuje Sheet1....e sada moje pitanje kako da napisem kod da kada stisnem strelicu na Data1 da promeni DataSource na sledeci Sheet i da taj novi Sheet flex prikaze....

[ Marko_L @ 16.01.2007. 06:18 ] @

Nemoj da me držiš za reč, ali mislim da to neće ići tako. Strelice same pozivaju movement metode rekordseta (MoveNext, MoveLast...). možda da staviš da ako dođe do kraja baze pređe na sledeći sheet. Nešto tipa If Data1.Recordset.EOF Then Data1.Recordsource = "$Sheet2" ili tako nešto. Stvarno ne mogu da ti odgovorim preciznije, ne sećam se da li sam se ikad povezivao na excel dokument preko data kontrole. Lakše ide preko Excel objekta.

[ Aleksandar Vasic @ 16.01.2007. 14:14 ] @

Pazi sve sto mi treba jeste da klikom moze recimo i na dugme nije bitno samo mi treba da prebaci na sledeci sheet,jer svaki dan ubacim po jedan novi sheet u taj dokument....

[ dennycd2 @ 16.01.2007. 16:16 ] @

Nemam puno iskustva sa Excel-om, ali bih ti preporucio da napravis jedan TextBox u koji ces ubacivati broj Sheet-a i klikom na dugme potvrdjivao unos.
Kôd za to bi glasio:

Code:
Private Sub Command1_Click()

        On Error GoTo kraj

        Data1.RecordSource = "sheet" & Text1.Text & "$"
        Data1.Refresh

kraj:
        Exit Sub

End Sub

[ Aleksandar Vasic @ 17.01.2007. 15:55 ] @

Ok resio sam to drugacije,ubacio sam bazu access-a hvala u svakom slucaju

A kako mogu da napisem da mi prilikom loadiranja forme sabere sve vrednosti iz kolone 5 i upise u Label1 opet pod MSFlexGrid-om

npr.

Code:
Private Sub Form_Load()
Label1.Caption = 'kako bi dalje trebalo
End Sub

[ dennycd2 @ 18.01.2007. 15:27 ] @

Code:
Private Sub Form_Load()

        Dim x As Integer
        Dim y As Integer

        Data1.Refresh

        y = 0

        For x = 1 To MSFlexGrid1.Rows - 1
            y = y + MSFlexGrid1.TextMatrix(x, 5)
        Next

        Label1.Caption = y

End Sub

[ Aleksandar Vasic @ 18.01.2007. 20:38 ] @

Hvala