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

البحث في البرنامج غير مناسب لي اريد افضل

مغلق
بدأه wegoo في 26 نوفمبر 2001 · 2 رد · 950 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

flx1.FillStyle = flexFillRepeat

flx1.Col = 0

flx1.Row = 0

flx1.ColSel = flx1.Cols - 1

flx1.RowSel = flx1.Rows - 1

flx1.CellFontBold = False

flx1.FillStyle = flexFillSingle

For i = 0 To flx1.Cols - 1

For j = 1 To flx1.Rows - 1

If InStr(flx1.TextMatrix(j, i), _

Text4.Text) Then

flx1.Col = i

flx1.Row = j

flx1.CellFontBold = True

End If

Next j

Next i

هذا الكود يقوم بالبحث في كل الاعمده عن المدخل في مربع النص

ما اريده هو ان يبحث فقط في العمود الاول وعند وجود النتيجه يقوم بعرض السجل كامل مع اخفاء الاسجلات الاخرى

اي لا يتم عرض الا السجلات التي تحتوي المدخل في العمود الاول فقط

ولكم تحياتي

ويقوو

#2

انا لم اجرب البرنامج

ولكن فقط ضع الاتي

flx1.col =1

وتكون قبل حركة الدوران

وجرب الباقي واي سوال اخر تفضل

لك تحياتي

لا يتعلم العلم كل مستحي او مستكبر

#3

لازال البحث غير جيد

قمت بتغيير الكود الى

flx1.Clear

SQL = "select * from tb1 where Number like '" & Text1.Text & "*'"

Set tb1 = db1.OpenRecordset(SQL, dbOpenDynaset)

showdata

ولكن الان تم تحديد سجل واحد فقط وهاذا هو المطلوب

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

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

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