FlexGrid Hatası

[ssomar]

İyi Günler Arkadaşlar.

Excelde hazırladığım bir programda liste olarak FlexGrid kullanıyorum. Gride veri çekip yine o verileri grid üzerinden güncelleştiriyorum.

Verileri gride çekerken öncelikle listeyi temizliyorum,Satır sayısını 1 yapıyorum. Ve her yeni veri geldiğinde satır sayısını artırıyorum

Ancak form ilk açıldığında çalışan kod,grid üzerinde değişiklik yaptıktan sonra verileri yenilemek isteyince hata veriyor...Sorunu bulamadım..

Küçük bir örnek hazırladım.Ekte mevcut
Hata:
Run time error '-2147417848 (80010108)'
Method 'Rows' of object 'IVSFlexGrid' failed

Sub VeriCek()
With AnaForm.Uretim_Son_Listesi
.Clear
Basliklar
.Rows = 1   'Kod burada hata veriyor
i = 0
    Do
    i = i + 1
    ID = Sayfa1.Range("A1").Offset(i, 0).Value
    If i >= .Rows Then .Rows = .Rows + 1   'burada hata veriyor
    If ID = "" Then Exit Sub
        For k = 0 To 6
        .TextMatrix(i, k) = Trim(Sayfa1.Range("A1").Offset(i, k).Value)
        Next
    Loop
End With
End Sub

 

[ssomar]

Güncelleme