+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو (/showthread.php?tid=38476)
معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو - جيولوجي مبتدئ - 17-05-21
السلام عليكم ورحمة الله وبركاته
إخواني سؤالي عن كيفية معرفة أكبر قيمة للتاريخ موجودة في عمود مخصص للتاريخ موجود في الداتاقريد فيو حيث توجد سجلات عديدة ولكني أريد معرفة أكبر تاريخ
دمتم بود
RE: معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو - حسن الجلب - 18-05-21
وانا كمان اريد الجواب وشكرا
RE: معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو - 2021 - 18-05-21
Dim md As Date = (From row In DataGridView1.Rows.Cast(Of DataGridViewRow)() Select CDate(row.Cells(7).Value)).Max
لم اجربه
RE: معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو - ابو انس - 18-05-21
كود :
For i As Integer = 0 To dgv.Rows.Count - 1
Dim aa As Date = TextBox1.Text
Dim bb As Date = dgv.Rows(i).Cells(0).Value
If bb > aa Then TextBox1.Text = bb
Nextطبعا dgv داتا جريد فيو
(18-05-21, 04:55 PM)2021 كتب : Dim md As Date = (From row In DataGridView1.Rows.Cast(Of DataGridViewRow)() Select CDate(row.Cells(7).Value)).Maxقمت بتجربة الكود
لم اجربه
ماشا الله الكود اكثر من رائع
شكرا لك
RE: معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو - 2021 - 18-05-21
تسلم يالغالي
هذا الكود من هذا المنتدى
الكود الاصلي كان نوع بيانات CDbl مع دالة Sum
انا غيرت نوع البيانات الى CDate مع الدالة Max
RE: معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو - ابراهيم ايبو - 18-05-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة لجلب قيمة اكبر تاريخ لحقل معين
هناك افكار عدة فمثلا يمكنك جلب كل السجلات مسلسلة من التاريخ الاكبر الى الاصغر ثم اختر من السجلات السجل الاول والحقل الذي يحمل التاريخ
وكذلك اختيار السجل الاول لكل الحقول order by حقل التاريخ تنازليا
كود :
da = New SqlDataAdapter("Select TOP 1 * From Items order by itm_date Desc ", Cn)كود :
da = New SqlDataAdapter("Select Max(itm_date) as MyDate From Items ", Cn)كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim da As New SqlDataAdapter
Dim dt As New DataTable
dt.Rows.Clear()
' جلب السجل بالكامل
'da = New SqlDataAdapter("Select TOP 1 * From Items order by itm_date Desc ", Cn)
'' جلب عمود التاريخ فقط
da = New SqlDataAdapter("Select Max(itm_date) as MyDate From Items ", Cn)
da.Fill(dt)
Dgv.DataSource = dt
Catch ex As Exception
MessageBox.Show(ex.Message, "Alert", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End SubRE: معرفة أكبر قيمة للتاريخ الموجودة في الداتاقريدفيو - جيولوجي مبتدئ - 19-05-21
جزاكم الله خيرا أحبابي عاجز عن تقديم الشكر لكم
لا غنى عن هذا المنتدى الرائع
الكود يعمل مئة بالمئة
دمتم بود