الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اعرف اقل واكبر عدد في MSFlexGrid

مغلق
بدأه awajihm في 4 مايو 2007 · 7 رد · 1,330 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة الاعزاء

لدي طلب كود يحدد لي اصغر رقم اكبر في عمود من MSFlexGrid

هل يمكن عمل ذلك

تحياتي

#2

أخي الفاضل

أظن أنه يمكنك عمل ذلك

و سيدلك أعضاء المنتدى كيفية عمل ذلك

و لكنني أقترح عليك أن تقوم بعمل استعلام على الجدول الذي يمثل (Msflexgrid) من خلال لغة SQL فهذا أسهل بكثير

وفقك الله في برنامجك و شكرا لك...

مؤسس شبكة مواقع إجابتي أول شبكة مواقع عربية للأسئلة والأجوبة

#3

السلام عليكم ورحمة الله وبركاته

يمكنك فعل ذلك بإستخدام الخاصية Sort

وهي تقوم بترتيب بيانات حقل معين .

فاذا قمت بالترتيب تصاعديا .

ستجد ان أصغر قيمه تمركزت في البدايه وفي النهايه اكبر قيمه .

راجع : ترتيب البيانات المعروضه في الداتا جريد

بالتوفيق .............

A7med_prof

تم تعديل هذه المشاركة بواسطة A7med_prof في 4 مايو 2007 في 14:14

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#4

الأخ الفاضل ...

FlexgridMinMax.zip

ارجوا ان يفيدك هذا المثال فى ما تريد إنجازه، بأستخدام (MS-VB 6.0)

يعتمد المثال على الدالة GetMinMaxValues

Private Function GetMinMaxValues(ByRef fg As MSFlexGrid, ByVal startRow As Integer, ByVal endRow As Integer, ByVal iCol As Integer, ByRef minRow As Double, ByRef maxRow As Double) As Boolean
	Dim r As Integer
	Dim bFirst As Boolean
	Dim num As Double
	Dim numMin As Double
	Dim numMax As Double
	Dim Str As String

	minRow = -1
	maxRow = -1
	bFirst = True
	For r = startRow To endRow
		Str = Trim(fg.TextMatrix(r, iCol))
		If Len(Str) > 0 Then
			num = Val(Str)
			If bFirst = True Then
				minRow = r
				maxRow = r

				numMin = num
				numMax = num
				bFirst = False
			End If

			' Get Min
			If numMin > num Then
				minRow = r
				numMin = num
			End If

			' Get Max
			If numMax < num Then
				maxRow = r
				numMax = num
			End If
		End If
	Next

	GetMinMaxValues = Not bFirst
End Function

ويمكنك استدعائها بالشكل التالى

	Call GetMinMaxValues(fgData, startRow, endRow, iCol, minRow, maxRow)

حيث:

  1. fgData: [دخل] أسم الـ Grid
  2. startRow: [دخل] رقم أول صف لحساب أكبر واصغر قيمة فيه
  3. endRow: [دخل] رقم أخر صف لحساب أكبر واصغر قيمة فيه
  4. iCol: [دخل] رقم العمود المراد حساب أكبر واصغر قيمة فيه
  5. minRow: [خرج] رقم الصف الذى يحتوى أصغر قيمة
  6. maxRow: [خرج] رقم الصف الذى يحتوى أكبر قيمة
  7. ترجع الدالة True إذا نجحت فى تحديد ذلك، والا ترجع False

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#6

شكرا

ولي طلب اخر وهو

اريد تحديد عدد الصفوف في العمود الواحد

مثلا في العمود الاول اريد اصغر واكبرقيمة من الصف 1 الي الصف 5 ثم من الصف 6 الي 10 وهكذا

الرجاء المساعدة

وتحياتي للجميع

#7

السلام عليكم ورحمة الله وبركاته

اقتباس
اريد تحديد عدد الصفوف في العمود الواحد

يمكن تحديد عدد صفوفها عن طريق الخاصية Rows

MSFlexGrid1.Rows

اقتباس
مثلا في العمود الاول اريد اصغر واكبرقيمة من الصف 1 الي الصف 5 ثم من الصف 6 الي 10 وهكذا

بالطبيع بعد عملية الترتيب مثلا تصاعديا وتريد معرفة اكبر واصغر قسمة ما بين الـ سجل 1 والسجل 5 فا طبيعي اصغر قيمه هي عند السجل رقم 1 واكبر قسمه عند السجل رقم 5 وهكذ ............

بلتوفيق ,,,,,

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#8

الأخ الفاضل ...

للحصول على اكبر واصغر قيمة بين الصف رقم (6) ورقم (10) ولنفترض فى العمود رقم (3) أستخدم

GetMinMaxValues(fgData, 6, 10, 3, minRow, maxRow)

حيث minRow ستحتوى على رقم الصف الذى يحتوى أقل قيمة و maxRow ستحتوى على رقم الصف الذى يحتوى أكبر قيمة...

هل هذا ما تقصده أم تقصد الحصول على القيمة رقم (1) ورقم (5) ورقم (6) ورقم (10) من حيث الترتيب، فالنتيجة مختلفة... بمعنى:

نفترض لديك عمود (تاريخ الالتحاق بالعمل) وعمود (تاريخ الميلاد) وعمود (الراتب)، والبيانات مرتبه بناءاً على التحاق العمل

فهل تريد ترتيب كل عمود على حدى؟ ام بناء على عمود معين؟؟؟

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

ولكن بالداله السابق ذكرها

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

هذا الموضوع مغلق.

مواضيع مشابهة