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....
MS Flex Grid i Excel
Zaključano
Zakačeno
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.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
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....
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:
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
Private Sub Command1_Click()
On Error GoTo kraj
Data1.RecordSource = "sheet" & Text1.Text & "$"
Data1.Refresh
kraj:
Exit Sub
End Sub
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.
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
Private Sub Form_Load()
Label1.Caption = 'kako bi dalje trebalo
End Sub
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
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
Hvala