01-06-18, 05:48 PM
انت من طلب الاستعلام بالأكسس من البداية
لكن
لا مشكلة أخى الكريم
يمكننا ان نخرج من هذا كله بحل بسيط جدا
فقط نستخدم استعلام linq
بعد أن تملء الجدول datatable لديك من قاعدة البيانات
و ليكن اسم الجدول dt
نقوم بعمل الاستعلام ثم
نعرض البيانات
و هذا هو الكود
و لا كرشه و لا عضم و لا أى حاجة
و بالتوفيق
لكن
لا مشكلة أخى الكريم
يمكننا ان نخرج من هذا كله بحل بسيط جدا
فقط نستخدم استعلام linq
بعد أن تملء الجدول datatable لديك من قاعدة البيانات
و ليكن اسم الجدول dt
نقوم بعمل الاستعلام ثم
نعرض البيانات
و هذا هو الكود
كود :
Dim dt As New DataTable
Using da As OleDbDataAdapter = New OleDbDataAdapter("Select * From adraseed", conn)
da.Fill(dt)
End Using
Dim groupedData = From rw In dt.AsEnumerable()
Select New With {
Key .atefinv = rw("atefinv"),
Key .itcod = rw("itcod"),
Key .invsun = rw("invsun"),
Key .purqu = rw("purqu"),
Key .invqu = rw("invqu"),
Key .balance = dt.AsEnumerable().Where(Function(R) R("itcod") = rw("itcod") And R("atefinv") <= rw("atefinv")).Sum(Function(c) c("purqu") - c("invqu"))
}
DataGridView1.DataSource = groupedData.ToList
و لا كرشه و لا عضم و لا أى حاجة
و بالتوفيق