تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة فى دمج خلايا داخل msflexgrid
#1
السلام عليكم ورحمة الله وبركاته

اخوانى الاعزاء

ارجوا المساعدة فى دمج خلايا داخل msflexgrid

مرفق صورة للجدول المراد دمج خلايا له

الرجاء تزويدنا بكود دمج خليتين الفترة والمادة والتاريخ كما هو موضح بالصورة المرفقة ، وكيفية ربط قاعدة البيانات داخل msflexgrid

باى طريقة ربط ....

وشكرا مقدماً


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
Exclamation 
مرفق مشروع للعمل عليه

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


الملفات المرفقة
.rar   دمج خلايا.rar (الحجم : 3.36 ك ب / التحميلات : 83)
الرد
تم الشكر بواسطة:
#3
Big Grin 
الحمد لله تم الوصول الى بداية الخيط ولكن مع MSHFlexGrid
PHP كود :
Private Sub Command1_Click()
End
End Sub



Private Sub Form_Load()
 
With Grid
       
' Set some basic settings.
     
       .AllowUserResizing = flexResizeColumns
       .Cols = 11
       .Rows = 9
       .FixedCols = 1
       .FixedRows = 3
        
      
       ' 
Allow cells to merge if it is similiarwhether is by row or col.
       .
MergeCells flexMergeFree
       
       
' Sample 1: Merge fixed rows.
       
        .TextMatrix(0, 0) = "ÇáæÞÊ"
       .TextMatrix(1, 0) = "Çáíæã"
       .TextMatrix(2, 0) = "Çáíæã"
       .MergeCol(0) = True     ' 
Enable col 0 to merge if next row has same data.
       
        
' Sample 2: Merge fixed rows.
       
        .TextMatrix(3, 0) = "ÇáÓÈÊ"
       .TextMatrix(4, 0) = "ÇáÃÍÏ"
       .TextMatrix(5, 0) = "ÇáÇËäíä"
       .TextMatrix(6, 0) = "ÇáËáÇËÇÁ"
       .TextMatrix(7, 0) = "ÇáÇÑÈÚÇÁ"
       .TextMatrix(8, 0) = "ÇáÎãíÓ"
       .MergeCol(0) = True     ' 
Enable col 0 to merge if next row has same data.
       
       
       
' Sample 3: Merge fixed cols.
       .TextMatrix(0, 1) = "ÇáÝÊÑÉ ÇáÇæáí"
        .TextMatrix(0, 2) = "ÇáÝÊÑÉ ÇáÇæáí"
        .TextMatrix(0, 3) = "ÇáÝÊÑÉ ÇáÇæáí"
       .MergeRow(0) = True     ' 
Enable row 0 to merge if next col has same data.
       
           
       
' Sample 4: Merge fixed cols.
       .TextMatrix(0, 4) = "ÇáÝÊÑÉ ÇáËÇäíÉ"
        .TextMatrix(0, 5) = "ÇáÝÊÑÉ ÇáËÇäíÉ"
       .TextMatrix(0, 6) = "ÇáÝÊÑÉ ÇáËÇäíÉ"
       .MergeRow(0) = True     ' 
Enable row 0 to merge if next col has same data.
       
             
       
' Sample 5: Merge fixed cols.
       .TextMatrix(0, 7) = "ÇáÝÊÑÉ ÇáËÇáËÉ"
       .TextMatrix(0, 8) = "ÇáÝÊÑÉ ÇáËÇáËÉ"
       .TextMatrix(0, 9) = "ÇáÝÊÑÉ ÇáËÇáËÉ"
       .MergeRow(0) = True     ' 
Enable row 0 to merge if next col has same data.
       
              
       
' Sample 6: Merge fixed cols.
       .TextMatrix(0, 10) = "ãáÇÍÙÇÊ"
        .TextMatrix(1, 10) = "ãáÇÍÙÇÊ"
       .TextMatrix(2, 10) = "ãáÇÍÙÇÊ"
       .MergeCol(10) = True     ' 
Enable Col 10 to merge if next col has same data.
       
       
       
     
' Sample 7: Merge fixed rows.
       
       .TextMatrix(1, 1) = "ÇáãÇÏÉ"
       .TextMatrix(2, 1) = "ÇáãÇÏÉ"
       .MergeCol(1) = True     ' 
Enable col 1 to merge if next row has same data.
       
        
       
' Sample 8: Merge fixed rows.
       .TextMatrix(1, 2) = "ÇáæÞÊ"
       .TextMatrix(1, 3) = "ÇáæÞÊ"
       .MergeRow(1) = True     ' 
Enable Row 1 to merge if next row has same data.
       
       
' Sample 9: Merge fixed rows.
       
       .TextMatrix(2, 2) = "ãä"
        
         ' 
Sample 9Merge fixed rows.
        .
TextMatrix(23) = "Çáì"
       
       
     ' Sample 10: Merge fixed rows.
       
       .TextMatrix(1, 4) = "ÇáãÇÏÉ"
       .TextMatrix(2, 4) = "ÇáãÇÏÉ"
       .MergeCol(4) = True     ' 
Enable col 4 to merge if next row has same data.
       
        
       
' Sample 11: Merge fixed rows.
       .TextMatrix(1, 5) = "ÇáæÞÊ"
       .TextMatrix(1, 6) = "ÇáæÞÊ"
       .MergeCol(6) = True     ' 
Enable col 6 to merge if next row has same data.
       
       
' Sample 12: Merge fixed rows.
       
       .TextMatrix(2, 5) = "ãä"
        
               
       ' 
Sample 13Merge fixed rows.
        .
TextMatrix(26) = "Çáì"
              
       
        ' Sample 14: Merge fixed rows.
       .TextMatrix(1, 7) = "ÇáãÇÏÉ"
       .TextMatrix(2, 7) = "ÇáãÇÏÉ"
       .MergeCol(5) = True     ' 
Enable col 5 to merge if next row has same data.
       
        
       
' Sample 15: Merge fixed rows.
       .TextMatrix(1, 8) = "ÇáæÞÊ"
       .TextMatrix(1, 9) = "ÇáæÞÊ"
       .MergeCol(5) = True     ' 
Enable col 5 to merge if next row has same data.
       
       
' Sample 16: Merge fixed rows.
       
       .TextMatrix(2, 8) = "ãä"
                      
       ' 
Sample 17Merge fixed rows.
        .
TextMatrix(29) = " Çáì"
       
.MergeCol(7) = True     ' Enable col 7 to merge if next row has same data.
        
      
   End With
End Sub


 
Private Sub Grid_Click()

End Sub 


الملفات المرفقة
.rar   KING1.rar (الحجم : 6.12 ك ب / التحميلات : 95)
الرد
تم الشكر بواسطة:
#4
آمل المساعدة فى كود توسيط خلايا MSHFlexGrid
الرد
تم الشكر بواسطة:
#5
مشروع دمج خلايا داخل msflexgrid

منقول ...


الملفات المرفقة
.zip   EditGrid.zip (الحجم : 3.02 ك ب / التحميلات : 82)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس وادي العوضي 8 91 18-02-19, 12:09 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في طباعة شريط وزن تخرج رسالة خطا وادي العوضي 6 139 12-02-19, 12:47 AM
آخر رد: وادي العوضي
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 95 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  من فضلكم طريقة رجو الكتابة الى اليمين في msflexgrid tighrmte 3 76 04-02-19, 05:48 PM
آخر رد: tighrmte
  عرض عدد الحقول المملوؤه في عمود MSHFLEXGRID داخل مربع نص دهشوش1 1 162 25-01-19, 05:20 AM
آخر رد: عبدالله الصافي
  [سؤال] ارجو المساعدة التقارير تفتح فاضية وعندما اقوم بتعطيل الكود لمعرفة الخطوات اجد التقرير mohamed elbery 4 139 22-01-19, 10:43 PM
آخر رد: mohamed elbery
  السلام عليكم احبابى فى الله ارجو المساعدة بخصوص متفح الانتر نت mhareek 19 483 29-12-18, 05:24 PM
آخر رد: mhareek
  [vb6.0] نامل المساعدة يوجد خطاء في برنامج التاريخ الهجري المرفق يحث انه يعرض كل الشهور 30 ؟ Microformt 4 167 21-12-18, 08:16 PM
آخر رد: حريف برمجة
  عرض التاريخ داخل MSHFLEXGRID دهشوش1 4 234 13-12-18, 05:05 AM
آخر رد: Ahmed_Mansoor
Question [سؤال] امل المساعدة في أداة Ribbon Example allayl 5 984 18-11-18, 04:43 AM
آخر رد: allo5_800

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم