كيفية كتابة أسماء الحقول في MSHFlexGrid ؟

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

أسماء الحقول تكتب هكذا

MSFlexGrid1.TextMatrix(0, 0) = "م"
MSFlexGrid1.TextMatrix(0, 1) = "الاسم"
MSFlexGrid1.TextMatrix(0, 2) = "الهاتف"

جزاك الله خيرا

لكن هل عندك طريقة لإخفاء عمود معين منه ؟

كيف يعني حقل من الجدول لاتريده يظهر ؟؟

لا تذكر اسمه :)

أخي الكريم

أنا لو لم أخفي الحقل الذي أريده فسوف يظهر تلقائيا باسم الحقل الذي في قاعدة البيانات

بمعنى أنه لا بد من طريقة لإخفائه وإلا لابد أن يظهر , وهذا عن تجربة

أخي يمكنك اخفاء الكود عن طريق جملةالاسكيو ال فمثلا

بدلا من تستخدم :

SQL = "Select * from MyTable "

استخدم التحديد المباشر

SQL= " Select Field1,field2,Field4 From MyTable"

لو لاحظت أنني هنا قمت بتحديد الخانه الاولى والثانية والرابعة بدون ان احدد الخانة الثالة من الجدول وبذلك أكون قد أخفيتها

أتمنى أن يكون هذا حل مناسب علما بأنني أستخدم هذه الطريقة للتعامل مع الفليكس المذكور

تحياتي

محمد زغلول كتب:

أخي الكريم

أنا لو لم أخفي الحقل الذي أريده فسوف يظهر تلقائيا باسم الحقل الذي في قاعدة البيانات

بمعنى أنه لا بد من طريقة لإخفائه وإلا لابد أن يظهر , وهذا عن تجربة

←

السلام عليكم عفوا كلامك غير صحيح

الحقل الذي لا تريده لا تذكر اسمه حتى لو كنت ذكرت اسمه في جملة البحث أو استخدمت علامة ( * )

فرضا لو كان عندي جدول فيه خمسة حقول ( name - age - phone - city - work ) ولا اريد ان يظهر حقل ( age ) في الفليكس جريد ، اكتب الكود التالي :

rs.Open "select * from Table1", cn, adOpenStatic, adLockOptimistic
MSFlexGrid1.TextMatrix(0, 0) = "م"
MSFlexGrid1.TextMatrix(0, 1) = "الاسم"
MSFlexGrid1.TextMatrix(0, 2) = "الهاتف"
MSFlexGrid1.TextMatrix(0, 3) = "المدينة"
MSFlexGrid1.TextMatrix(0, 4) = "العمل"

الان تم تسمية الحقول ( مع إغفال حقل age ) والان نكتب عرض الحقول

MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 2150
MSFlexGrid1.ColWidth(2) = 1900
MSFlexGrid1.ColWidth(3) = 900
MSFlexGrid1.ColWidth(4) = 900

ثم نكتب الكود الذي يظهر البيانات على الفليكس جريد

     Do While Not rs.EOF
      i = i + 1



        MSFlexGrid1.Rows = i + 1
        MSFlexGrid1.TextMatrix(i, 0) = i
        MSFlexGrid1.TextMatrix(i, 1) = rs!name
        MSFlexGrid1.TextMatrix(i, 2) = rs!city
        MSFlexGrid1.TextMatrix(i, 3) = rs!phone
        MSFlexGrid1.TextMatrix(i, 3) = rs!work

        rs.MoveNext
    Loop

ولتوسيط البيانات داخل الاعمدة نستخدم الكود التالي

For i = 0 To 8
MSFlexGrid1.ColAlignment(i) = flexAlignCenterCenter
Next i

الأخ الكريم omani

الأخ الكريم المتميز

جزاكم الله خيرا على المساعدة

أخي الكريم المتميز

بدون أن تقوم بكل هذه الخطوات يمكنك فقط كتابة سطر واحد من خلال جملة الاسكيوال ألا وهي كالتالي :

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

Set MSHFlexGrid.DataSource= RS

وهذه سوف تظهر البيانات في MSHFlexGrid بدون أن تعمل لووب أو غيره

تحياتي

أخي المتميز

على فكرة الطريقة التي ذكرتها أنا تنفع مع MSHFlexGrid ولا تنفع مع MSFlexGrid والتي بلا شك أنك تقصدها فهناك فرق بين الاداتين .

أرجو أن لا تزعل مني يا أستاذي فما أنا إلا أحد طلابك

تحياتي

عفوا اخي الكريم العماني الطريقة للأداة MSFlexgrid

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

عفوا اخواني الكرام الان لاحظت ان السؤال عن الاداة MSHFlexGrid المعذرة

مشكور أخى المتميز ولكن جربت الكودك ولم ينفذ وتظهر هذه الرسالة

Object Variable or with Block Variable is not set

 Set Me.flex5.DataSource = TBL

    flex5.TextMatrix(0, 0) = "م "
    flex5.TextMatrix(0, 1) = "عنوان الكتاب "
    flex5.TextMatrix(0, 2) = "عنوان الكتاب"
    flex5.TextMatrix(0, 3) = "المؤلف"
    flex5.TextMatrix(0, 13) = "الطبعة"
لعمل التسلسل للفلكس
    Dim i As Integer
    For i = 1 To flex5.Rows - 1
        flex5.TextMatrix(i, 0) = i
    Next
عرض العمود واخفائه بجعل القيمو = 0
    flex5.ColWidth(0) = 500
    flex5.ColWidth(1) = 0
    flex5.ColWidth(2) = 2800
    flex5.ColWidth(3) = 2900
    flex5.ColWidth(4) = 0
    flex5.ColWidth(5) = 0
    flex5.ColWidth(6) = 0
    flex5.ColWidth(7) = 0
    flex5.ColWidth(8) = 0
    flex5.ColWidth(9) = 0
    flex5.ColWidth(10) = 0
    flex5.ColWidth(11) = 0
    flex5.ColWidth(12) = 0
    flex5.ColWidth(13) = 1000
    flex5.ColWidth(14) = 0
    flex5.ColWidth(15) = 0
    flex5.ColWidth(16) = 0
    flex5.ColWidth(17) = 0
    flex5.ColWidth(18) = 0
    flex5.ColWidth(19) = 0
    flex5.ColWidth(20) = 0
    flex5.ColWidth(21) = 0
    flex5.ColWidth(22) = 0
    flex5.ColWidth(23) = 0
    flex5.ColWidth(24) = 0
    flex5.ColWidth(25) = 0
    flex5.ColWidth(26) = 0
    flex5.ColWidth(27) = 0
    flex5.ColWidth(28) = 0
    flex5.ColWidth(29) = 0
    flex5.ColWidth(30) = 0
    flex5.ColWidth(31) = 0
    flex5.ColWidth(32) = 0
    flex5.ColWidth(33) = 0
    flex5.ColWidth(34) = 0
    flex5.ColWidth(35) = 0
    flex5.ColWidth(36) = 0
    flex5.ColWidth(37) = 0
    flex5.ColWidth(38) = 0
    flex5.ColWidth(39) = 0
    flex5.ColWidth(40) = 0
    flex5.ColWidth(41) = 0
    flex5.ColWidth(42) = 0
    flex5.ColWidth(43) = 0
    flex5.ColWidth(44) = 0