[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

الامر بسيط اخى الفاضل

بعد اتمام الاستعلام بالاعلى ولنقول ان تم ترحيل الاستعلام الى DT

واللى هو كمثال

كود :

       da.Fill(dt)

كل ما عليك فعله وضع الكود التالى اسفل هذا السطر مباشراً

كود :

       Dim GetMinDate As DataTable = dt.Select(Nothing, "PROFIT_DATE ASC").CopyToDataTable()

الان لاستخدام قيمة اصغر تاريخ كل ما عليك استخدام هذا الكود

كود :

GetMinDate(0)(0)

لعرضها برسالة

كود :

       MsgBox(GetMinDate(0)(0))

تحياتى لك

وتمنياتى لك التوفيق