منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين MSFlexGrid

طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين وعدد الصفوف التي بيه بيانات في MSFlexGrid من لديه خبر يساعدني وجزاكم الله الف خير وبارك الله فيكم

بعد اجراء filldata أكتب

PHP كود :

If rs.RecordCount > 0 Then
Dim emptycount As Integer
Dim noempty As Integer
emptycount = 0
noempty = 0
rs.MoveFirst
For i = 1 To rs.RecordCount
On Error GoTo nxt
If IsNull(rs!n1) Then
emptycount = emptycount + 1
Else
noempty = noempty + 1
End If

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

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

التعديل مرفق

(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 i = 1 To rs.RecordCount On Error GoTo nxt If IsNull(rs!n1) Then emptycount = emptycount + 1 Else noempty = noempty + 1 End If rs.MoveNext nxt: Next Text1.Text = emptycount Text2.Text = noempty End If

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

التعديل مرفق

جزاك الله الف خير وبارك الله فيك

(08-01-21, 07:57 AM)ahmed201 كتب : [ -> ]جزاك الله الف خير وبارك الله فيك

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

(08-01-21, 08:02 AM)سعود كتب : [ -> ]
(08-01-21, 07:57 AM)ahmed201 كتب : [ -> ]جزاك الله الف خير وبارك الله فيك

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

اخي الغالي ممكن سؤال في حال عملت هذه الطريقه علي MSFlexGrid هل تعمل معاي ام لا لاني هذه طريقه اريده علي بيانات موظف معين اي موظف اختاره يعطيني عدد الخانة الفراغه وعدد الخانات التي بيه بيانات

(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 i = 1 To (MSFlexGrid1.Rows - 1)
Dim t As String
t = MSFlexGrid1.TextMatrix(i, 0)
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 

(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 i = 1 To (MSFlexGrid1.Rows - 1) Dim t As String t = MSFlexGrid1.TextMatrix(i, 0) 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

شكرا والف شكرا وجزاك الله الف خير اخي الغالي وبارك الله فيك

(08-01-21, 10:30 PM)ahmed201 كتب : [ -> ]شكرا والف شكرا وجزاك الله الف خير اخي الغالي وبارك الله فيك

العفو يا الطيب.
واياك و كل من يقرا هذا التعليق [حتى لو كان ممن يسال ويتجاهل الجواب]