Dim sayac As Integer
sayac = 0


For sayac = 0 To VSFlexGrid11.Rows - 1
sayac = sayac + 1
Next
Label4.Caption = sayac




vsflex girdde kayıt saydırıcam ama bir fazla sayıyor başlığıda ekliyor napmam lazım ?

---

Dim sayac As Integer
sayac = 0


For sayac = 0 To VSFlexGrid11.Rows - 1
sayac = sayac + 1
Next
Label4.Caption = sayac




vsflex girdde kayıt saydırıcam ama bir fazla sayıyor başlığıda ekliyor napmam lazım ?

0 dan başladığınız için 1 tane fazla sayıyor.

Sn:sedat76
Aşağıdaki kod işinizi görecektir.

Lblkayitadet.Caption = Adodc1.Recordset.RecordCount

Aa evet oğulcan abi oda mantıklı aslında teşekkür ederim .