منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] سؤال في فليكس جريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] سؤال في فليكس جريد (/showthread.php?tid=45534)



سؤال في فليكس جريد - tighrmte - 18-02-23

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


RE: سؤال في فليكس جريد - Taha Okla - 18-02-23

وين الكود ؟


RE: سؤال في فليكس جريد - ahmedabdelaliem - 18-02-23

وعليكم السلام 

تفضل اخي 

كود ضع اداة فليكس جريد ولا تغير الاسم وضع هذا الكود وقم بالتعديل على مشروعك

PHP كود :
Private Sub Form_Load()
Me.MSFlexGrid1.Cols 3
Me
.MSFlexGrid1.Rows 6

With MSFlexGrid1
For 1 To .Rows 1
.TextMatrix(i0) = i
Next i

For 1 To .Rows 1
.TextMatrix(x1) = 10
Next

End With
End Sub 
بالتوفيق

الكود في الاعلى يوضح كيف تقوم بعملية التسلسل في دواره خاصه بالتسلسل

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

وهذا الكود يجمعهما معا

PHP كود :
Private Sub Form_Load()
Me.MSFlexGrid1.Cols 3
Me
.MSFlexGrid1.Rows 6

With MSFlexGrid1
For 1 To .Rows 1
.TextMatrix(i0) = i
.TextMatrix(i1) = 10
Next i
End With
End Sub 
بالتوفيق


RE: سؤال في فليكس جريد - tighrmte - 18-02-23

(18-02-23, 07:14 PM)Taha Okla كتب : وين الكود ؟

نسيت اخي شكرا

(18-02-23, 07:27 PM)ahmedabdelaliem كتب : وعليكم السلام 

تفضل اخي 

كود ضع اداة فليكس جريد ولا تغير الاسم وضع هذا الكود وقم بالتعديل على مشروعك

PHP كود :
Private Sub Form_Load()
Me.MSFlexGrid1.Cols 3
Me
.MSFlexGrid1.Rows 6

With MSFlexGrid1
For 1 To .Rows 1
.TextMatrix(i0) = i
Next i

For 1 To .Rows 1
.TextMatrix(x1) = 10
Next

End With
End Sub 
بالتوفيق

الكود في الاعلى يوضح كيف تقوم بعملية التسلسل في دواره خاصه بالتسلسل

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

وهذا الكود يجمعهما معا

PHP كود :
Private Sub Form_Load()
Me.MSFlexGrid1.Cols 3
Me
.MSFlexGrid1.Rows 6

With MSFlexGrid1
For 1 To .Rows 1
.TextMatrix(i0) = i
.TextMatrix(i1) = 10
Next i
End With
End Sub 
بالتوفيق

مشكور اخي الكريم في ميزان حسناتك