سؤال في اداة الفليكس للخبراء

بسم الله الرحمن الرحيم

يا اخوان في عندي مشكلة في اداة فليكس جارد وهي كالتالي

عندي اداة فليكس له الكود التالي

i = i + 1

MSFlexGrid1.Rows = i + 1

MSFlexGrid1.TextMatrix(i, 0) = Val(Text1.Text)

MSFlexGrid1.TextMatrix(i, 1) = (Text2.Text)

MSFlexGrid1.TextMatrix(i, 2) = Val(Text3.Text)

MSFlexGrid1.TextMatrix(i, 3) = Val(Text4.Text)

MSFlexGrid1.TextMatrix(i, 4) = Val(Text5.Text)

وعندي كود الحذف سطر معين احدده عن طريق رقم اضعه في تكست

Dim c As Long

For c = 1 To MSFlexGrid1.Rows - 1

If Val(Text1) = MSFlexGrid1.TextMatrix(c, 0) Then

Text1.Text = ""

Exit For

end if

next c

والمشكلة هي عند حذف صف معين واضغط انتر لاضافة سطر جديد يظهر سطر فارغ محل الذي تم حذفه مع السطر الجديد اي عند حذف ثلاث صفوف يظهر ثلاث صفوف فارغة محلها

ارجوا المساعدة وشكراً

عدد الزوار حالياً