الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة في كود ترقيم تلقائي لحقول FlexGrid

مغلق
بدأه المهنا في 3 مارس 2005 · 4 رد · 641 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذا الكود هو عبارة عن ترقيم تلقائي لحقول الفلكس جريد

كيف اجعل الترقيم يكون لنتائج البحث المعروضة فلو عرضت نتائج البحث 10 اصناف يعرضها في الفلكس مرقمة من 1 - 10

Dim i As Integer
i = 0
FLEX1.Rows = 1

Do Until RS.EOF
    i = i + 1
    FLEX1.Rows = i + 1
    FLEX1.TextMatrix(i, 0) = i
#2

أخي الكريم لعمل ترقيم تلقائي للفلكس استخدم الكود التالي :

Dim i As Integer
i = 0
FLEX1.Rows = 1

Do Until RS.EOF
  'زيادة عدد السطور 
   FLEX1.Rows = FLEX1.Rows + 1
   'تحديد السطر المراد ترقيمة برقم السجل ووضع رقم السجل عليه 
FLEX1.TextMatrix(flex1.row, 0) = rs.AbsolutePosition 
'نقل الجدول للسجل التالي 
Rs.Movenext

Loop

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

هذا الموضوع مغلق.

مواضيع مشابهة