+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جلب اكبر قيمة (/showthread.php?tid=23456)
جلب اكبر قيمة - محمد اسماعيل - 21-01-18
السلام عليكم
اريد كود لجلب اكبر قيمة بعمود بالداتا جريد انا بظهر اكبر قيمة ولكن بعمود رقمي العمود الان عمود نصي ورقم ليس بالترتيب
يعني ماشي بالنظام دة
a/1
a/2
a/3
a/4
دة الكود لجلب اكبر قيمة بشرط العمود رقمي
DataSet1.Tables("tb").Compute("Max(column )", "column >= 0") + "1"
RE: جلب اكبر قيمة - محمود صالح - 21-01-18
استخدم دالة spilt لفصل الحروف
عن الارقام
او رتبهم تصاعدي واكيد اخر قيمة
هتكون الاكبر
يارب اكون فهمتك صح
RE: جلب اكبر قيمة - محمد اسماعيل - 21-01-18
(21-01-18, 01:07 PM)khodor1985 كتب : أو هذه الطريقة :
كود :
Dim MaxVal as Double = 0
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(0).Value > MaxVal Then MaxVal = row.Cells(0).Value 'Maximum value of first column
Next
جزاك اللّة خيرا علي ردك
ولكن كودك لايقوم بقص الجزء / a
a/1
a/2
a/3
a/4
RE: جلب اكبر قيمة - محمد اسماعيل - 21-01-18
(21-01-18, 02:12 PM)khodor1985 كتب : تفضل هذا مثال بناء لطلبك :
الكود :
PHP كود :
Private Sub btnGetMax_Click(sender As Object, e As EventArgs) Handles btnGetMax.Click
Dim MaxVal As Double = 0
For Each row As DataGridViewRow In DataGridView1.Rows
Dim x As String = row.Cells(0).Value
If x.Replace("a/", "") > MaxVal Then
MaxVal = x.Replace("a/", "") 'Maximum value of first column
End If
Next
MessageBox.Show(MaxVal.ToString())
End Sub
شرح ومثال ؟
جزاك اللّة الف خير , واعانك علي مساعدة غيرك وزادك من فضلة وعلمة
فعلا دة المطلوب ولكن لي سؤال هل الطريقة التي اتبعها لعمل سيريال للمنتج بالنظام السابق جيدة مع الاصناف الكثيرة ام هناك افضل منها
RE: جلب اكبر قيمة - محمد اسماعيل - 21-01-18
(21-01-18, 02:26 PM)khodor1985 كتب : لم أطلع على النظام السابق حتى أجيب عن سؤالك
الكود وسيريلة مرتب بالطريقة هذة
اول خلية مع اول اضافة تصبح aa-1
الثانية aa-2
aa-3
aa-4
aa-5
aa-6