السلام عليكم ورحمة الله وبركاته
إخواني سؤالي عن كيفية معرفة أكبر قيمة للتاريخ موجودة في عمود مخصص للتاريخ موجود في الداتاقريد فيو حيث توجد سجلات عديدة ولكني أريد معرفة أكبر تاريخ
دمتم بود
وانا كمان اريد الجواب وشكرا
Dim md As Date = (From row In DataGridView1.Rows.Cast(Of DataGridViewRow)() Select CDate(row.Cells(7).Value)).Max
لم اجربه
كود :
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
لم اجربه
قمت بتجربة الكود
ماشا الله الكود اكثر من رائع
شكرا لك
تسلم يالغالي
هذا الكود من هذا المنتدى
الكود الاصلي كان نوع بيانات CDbl مع دالة Sum
انا غيرت نوع البيانات الى CDate مع الدالة Max
السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة لجلب قيمة اكبر تاريخ لحقل معين
هناك افكار عدة فمثلا يمكنك جلب كل السجلات مسلسلة من التاريخ الاكبر الى الاصغر ثم اختر من السجلات السجل الاول والحقل الذي يحمل التاريخ
وكذلك اختيار السجل الاول لكل الحقول order by حقل التاريخ تنازليا
كود :
da = New SqlDataAdapter("Select TOP 1 * From Items order by itm_date Desc ", Cn)
او استعلم ب Max عن اكبر قيمة لحقل التاريخ باسم معين
كود :
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 Sub
جزاكم الله خيرا أحبابي عاجز عن تقديم الشكر لكم
لا غنى عن هذا المنتدى الرائع
الكود يعمل مئة بالمئة
دمتم بود