Springen naar inhoud


Cel(len) inlezen in MSFlexgrid


  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:31

Hallo

Normaal indien men op een cel klikt in een msflexgrid, vindt men onmiddelijk de rij, kolom en inhoud van de cel op de volgende manier:

Code:
Private Sub flxGrid1_Click()

Dim Rij as Integer, Kolom as Integer

Dim Inhoud as String

  Rij = flxGrid1.Row
  Kolom = flxGrid1.Col

  Inhoud = flxGrid1.TextMatrix(Rij, Kolom)  

End Sub




Hopelijks voldoet aan uw vraag.

Greetz

#2 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:30

Ik heb via een access-tabel een msflexgrid ingelezen. Doordat een gebruiker op een bepaalde cel klikt (bv Rij 3 en Kolom 2) . Deze cel bevat een bepaalde waarde die ik graag zou uitlezen, zodat ik ook de volgende cel kan uitlezen. Hoe kan ik dat doen?
Indien ik deze code heb kan ik verdergaan met het oplossen van mijn probleempje.

Ik heb bijgaand broncode gemaakt op te bepalen welke rijnr en kolomnr is geklikt.
Broncode luidt:

Code:
 SelektRow = MSFlexGrid1.Row
SelektCol = MSFlexGrid1.Col
Row = -1
Do While Not DataPrinttabel.Recordset.EOF = True
On Error GoTo verder
Row = Row + 1
MSFlexGrid1.Row = Row
MSFlexGrid1.SetFocus
MSFlexGrid1.CellBackColor = 0
Loop
verder:
MSFlexGrid1.Col = SelektCol
MSFlexGrid1.Row = SelektRow
MSFlexGrid1.SetFocus
MSFlexGrid1.CellBackColor = &HC0FFFF

Indien meer info gewenst dan zal ik deze gaarne vermelden.
Wie kan deze beginner helpen?
Bvd Frans


PS:  Access DB wordt dmv ODBC-koppeling gevuld met data uit oracle DB




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)