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

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

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

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

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

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

وشكرا مقدماً


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

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


الملفات المرفقة
.rar   دمج خلايا.rar (الحجم : 3.36 ك ب / التحميلات : 55)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 68)
الرد }}}}
تم الشكر بواسطة:
#4
آمل المساعدة فى كود توسيط خلايا MSHFlexGrid
الرد }}}}
تم الشكر بواسطة:
#5
مشروع دمج خلايا داخل msflexgrid

منقول ...


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية عرض نص موجود على الانترنت داخل اداة مربع نص (الحصول على بيانات من صفحة ويب) Mohamad Anan 10 314 10-09-17, 11:54 PM
آخر رد: Mohamad Anan
  [سؤال] ما هو الفرق بين MSFlexGrid و MSHFlexGrid suzoki 2 67 27-08-17, 11:42 PM
آخر رد: suzoki
Question [vb6.0] كيف افتح فورم داخل فورم ؟؟ Microformt 6 148 20-08-17, 07:21 PM
آخر رد: Microformt
  [vb6.0] سؤال مهم جدا بالنسبة لي ارجو المساعدة محمد حمد محمد 1 73 14-08-17, 08:14 PM
آخر رد: Amir_alzubidy
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 94 08-08-17, 03:09 AM
آخر رد: allobaed
  دمج صورة Picture داخل صورة Picture hannileo 3 106 07-08-17, 02:13 PM
آخر رد: hannileo
  كيف تجعل ملفات bas  داخل ملف  dll  مرئيه للمستخدم(public) برمجه 1 98 02-08-17, 12:37 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة في حل مشكلة في البرنامج المرفق larbihamri 2 109 23-07-17, 03:19 AM
آخر رد: larbihamri
  [vb6.0] استبدال نص في قاعدة بيانات...أرجو المساعدة فيصل علي 2 170 17-06-17, 06:40 AM
آخر رد: فيصل علي
  [سؤال] كود عدم الكتابة داخل combo box Ahmed Abdulla 11 3,616 18-05-17, 02:05 AM
آخر رد: عبد العزيز البسكري

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


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