تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين MSFlexGrid
#1
طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين وعدد الصفوف التي بيه بيانات في MSFlexGrid  من لديه خبر يساعدني وجزاكم الله الف خير وبارك الله فيكم


الملفات المرفقة
.rar   sv.rar (الحجم : 214.7 ك ب / التحميلات : 17)
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد }}}
تم الشكر بواسطة: سعود
#2
بعد اجراء filldata  أكتب
PHP كود :
If rs.RecordCount 0 Then
Dim emptycount 
As Integer
Dim noempty 
As Integer
emptycount 
0
noempty 
0
rs
.MoveFirst
For 1 To rs.RecordCount
On Error 
GoTo nxt
If IsNull(rs!n1Then
emptycount 
emptycount 1
Else
noempty noempty 1
End 
If

rs.MoveNext
nxt
:
Next
Text1
.Text emptycount
Text2
.Text noempty
End 
If 

تعديل بسيط في حلقة for جعلته يبدأ من رقم 1 غيره ليبدأ من رقم 0

التعديل مرفق


الملفات المرفقة
.zip   sv.zip (الحجم : 529.13 ك ب / التحميلات : 46)
الرد }}}
تم الشكر بواسطة: ahmed201
#3
(08-01-21, 01:19 AM)سعود كتب : بعد اجراء filldata  أكتب
PHP كود :
If rs.RecordCount 0 Then
Dim emptycount 
As Integer
Dim noempty 
As Integer
emptycount 
0
noempty 
0
rs
.MoveFirst
For 1 To rs.RecordCount
On Error 
GoTo nxt
If IsNull(rs!n1Then
emptycount 
emptycount 1
Else
noempty noempty 1
End 
If

rs.MoveNext
nxt
:
Next
Text1
.Text emptycount
Text2
.Text noempty
End 
If 

تعديل بسيط في حلقة for جعلته يبدأ من رقم 1 غيره ليبدأ من رقم 0

التعديل مرفق

جزاك الله الف خير وبارك الله فيك
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد }}}
تم الشكر بواسطة: سعود
#4
(08-01-21, 07:57 AM)ahmed201 كتب : جزاك الله الف خير وبارك الله فيك

و اياك اخي الكريم و كل من يقرا هذا التعليق.
الرد }}}
تم الشكر بواسطة: ahmed201
#5
(08-01-21, 08:02 AM)سعود كتب :
(08-01-21, 07:57 AM)ahmed201 كتب : جزاك الله الف خير وبارك الله فيك

و اياك اخي الكريم و كل من يقرا هذا التعليق.

اخي الغالي ممكن سؤال في حال عملت هذه الطريقه علي MSFlexGrid هل تعمل معاي ام لا لاني هذه طريقه اريده علي بيانات موظف معين اي موظف اختاره يعطيني عدد الخانة الفراغه وعدد الخانات التي بيه بيانات
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد }}}
تم الشكر بواسطة:
#6
(08-01-21, 09:09 AM)ahmed201 كتب : اخي الغالي ممكن سؤال في حال عملت هذه الطريقه علي MSFlexGrid هل تعمل معاي ام لا لاني هذه طريقه اريده علي بيانات موظف معين اي موظف اختاره يعطيني عدد الخانة الفراغه وعدد الخانات التي بيه بيانات

ممكن لكن الافضل بحدث آخر غير حدث الـ Form_Load

الاجراء التالي يقوم بالعملية المطلوبة:
PHP كود :
Private Sub other()
If 
MSFlexGrid1.Rows 0 Then
Dim emptycount 
As Integer
Dim noempty 
As Integer
emptycount 
0
noempty 
0
For 1 To (MSFlexGrid1.Rows 1)
Dim t As String
MSFlexGrid1.TextMatrix(i0)
If 
IsNull(t) Or Trim(t) = "" Then
emptycount 
emptycount 1
Else
noempty noempty 1
End 
If
Next
Text1
.Text emptycount
Text2
.Text noempty
End 
If

End Sub 
الرد }}}
تم الشكر بواسطة: ahmed201
#7
(08-01-21, 08:35 PM)سعود كتب :
(08-01-21, 09:09 AM)ahmed201 كتب : اخي الغالي ممكن سؤال في حال عملت هذه الطريقه علي MSFlexGrid هل تعمل معاي ام لا لاني هذه طريقه اريده علي بيانات موظف معين اي موظف اختاره يعطيني عدد الخانة الفراغه وعدد الخانات التي بيه بيانات

ممكن لكن الافضل بحدث آخر غير حدث الـ Form_Load

الاجراء التالي يقوم بالعملية المطلوبة:
PHP كود :
Private Sub other()
If 
MSFlexGrid1.Rows 0 Then
Dim emptycount 
As Integer
Dim noempty 
As Integer
emptycount 
0
noempty 
0
For 1 To (MSFlexGrid1.Rows 1)
Dim t As String
MSFlexGrid1.TextMatrix(i0)
If 
IsNull(t) Or Trim(t) = "" Then
emptycount 
emptycount 1
Else
noempty noempty 1
End 
If
Next
Text1
.Text emptycount
Text2
.Text noempty
End 
If

End Sub 

شكرا والف شكرا وجزاك الله الف خير اخي الغالي وبارك الله فيك
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد }}}
تم الشكر بواسطة: سعود
#8
(08-01-21, 10:30 PM)ahmed201 كتب : شكرا والف شكرا وجزاك الله الف خير اخي الغالي وبارك الله فيك

العفو يا الطيب.
واياك و كل من يقرا هذا التعليق [حتى لو كان ممن يسال  ويتجاهل الجواب]
الرد }}}
تم الشكر بواسطة: ahmed201


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  [vb6.0] تغيير نوع الخط فى عمود معين داخل الdatagrid haitham Muhammed 6 363 20-12-23, 01:11 PM
آخر رد: mhareek
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين scsi7000 2 371 25-10-23, 07:38 PM
آخر رد: scsi7000
  [vb6.0] اظهار الرصيد السابق في اول صف في Msflexgrid جلال اليمني 5 432 26-09-23, 04:24 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 409 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  طريقة حماية البرنامج برقم المعالج layan2000 76 99,455 09-06-23, 09:20 PM
آخر رد: fouadhdfouad

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


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