بسم الله الرحمن الرحيم

هذا شرح بسيط لكيفية تحديد مجموعة من خلايا شبكة البيانات Flexgrid ونسخها الى شبكة بيانات أخرى و بخطوات بسيطة للغاية ....فى البداية سنقوم بادراج عدد 2 شبكة بيانات Flexgrid على النافذة و عدد 2 زر أمر

_ فى حدث النقر لزر الامر الاول نكتب الكود التالى :

الكود:

Private Sub Command1_Click()
      With MSFlexGrid1  
         .Col = 0  
         .Row = 3  
         .ColSel = 1  
         .RowSel = 6  
                .TopRow = .Row  
               .SetFocus  
      End With  
        
      End Sub  

ففى الكود أعلاه قمنا بتحديد الخلايا من الصف الثالث من العامود الاول حتى الصف السادس من العامود الاول

_ فى حدث النقر للزر الثانى نقوم بكتابة الكود التالى و الذى سوف ينسخ ما تم تحديدة الى شبكة البيانات الاخر على النحو التالى :

الكود:

Private Sub Command2_Click()
With MSFlexGrid2
                .Clear
          
       If MSFlexGrid1.ColSel = MSFlexGrid1.Col Then
            .Rows = 1
            .Cols = MSFlexGrid1.Cols
            Exit Sub
        End If
              
        .FormatString = MSFlexGrid1.FormatString
                    
        .Rows = Abs(MSFlexGrid1.RowSel - MSFlexGrid1.Row) + 2
             .FixedCols = MSFlexGrid1.FixedCols
        .FixedRows = MSFlexGrid1.FixedRows
             .Row = 1
        .Col = 0
            .RowSel = .Rows - 1
        .ColSel = .Cols - 1
      
        .Clip = MSFlexGrid1.Clip
                   
    End With
End Sub


و بنظرة سريعة على الكود أعلاه نجد الاتى :

فى السطر الاول قمنا بمسح الشبكة البيانات الثانية لتهيئتها للبيانات الجديدة باستخدام الامر clear

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

فى السطر السادس استخدمنا الامر FormatString لتنسيق خلايا شبكة البيانات الثانية بمثل التنسيق المعتمد فى شبكة البيانات المصدر

اما من السطر السابع وحتى الثانى عشر قمنا بيعين عدد الصفوف المحددة في نطاق

واخير استخدمنا الامر Clip لنسخ البيانات

تمام جدا

لكن هل يمكن تحديد الخلايا من خلال الماوس ؟

شكرا لك

شكرا اخي الفاضل