لدى جدول فى قاعدة بيانات اكسيس بة سجلات برقم الفاتورة كل سجل فية مبلغ الفاتورة اريد عمل اجمالى مبلغ هذه الفواتير من قاعدة البيانات فى جدول اسمه tb1 وعمود اسمة total اجمالى هذه الفواتير وإظهار الاجمالى فى textbox1 فى فورم.
........تحياتى للجميع
ليه المنتدى مبقاش يقدم المساعده لطالبيها
السّلام عليكم و رحمة الله و بركاته
بالفورم لود أخي الكريم ..
إذا كان المجموع بالتاكست بدون الإعتماد على رقم الحقل بالداتاجريد ..
كود :
Dim Dt_Somme As DataTable = Dt_Invoices.Tables("TB1")
Dim Sum_Column As Integer = Convert.ToInt32(Dt_Somme.Compute("SUM(Total)", String.Empty))
TextBox1.Text = Sum_Column.ToString
إذا كان المجموع حسب قيم عمود الداتاجريد ..
هنا مثلا .. مجموع العمود رقم 6 ..
كود :
Public Sub Get_Total_Column()
On Error Resume Next
Application.DoEvents()
Dim WTotal As Decimal = "0.00"
For Each row As DataGridViewRow In DataGridView1.Rows
WTotal += row.Cells(6).Value
Next
TextBox1.Text = WTotal.ToString
End Sub
تحياتي
السلام عليكم و رحمة الله و بركاته
أخي عاطف .. Dt_invoices ..هي داتاسيت .. غيرها حسب ما هو موجود عندك .. و ليست اسم للفورم
تحياتي
ضع هذا فقط في حدث اللود :
كود :
DA.Fill(DT)
Dim Sum_Column As Integer = Convert.ToInt32(DT.Compute("SUM(Total)", String.Empty))
TextBox1.Text = Sum_Column.ToString
السّلام عليكم و رحمة الله و بركاته
و جرّب هذا أيضا .. فهو مجرّب و شغّال .. واختر ما يليق بك أخي عاطف
كود :
Dim Dt_Somme As DataTable = Dt_Invoices.Tables("TB1")
TextBox1.Text = Dt_Somme.Compute("SUM(Total)", "").ToString()
تحياتي
أخ عبد العزيز في كود تحميل الفورم لم يعبئ الداتاسيت او الداتا تيبل .
(16-01-19, 10:19 PM)asemshahen5 كتب : [ -> ]ضع هذا فقط في حدث اللود :
كود :
DA.Fill(DT)
Dim Sum_Column As Integer = Convert.ToInt32(DT.Compute("SUM(Total)", String.Empty))
TextBox1.Text = Sum_Column.ToString
اشكرك اخى الكريم asemshahen5 واشكر الاخ الكريم عبد العزيز على الاهتمام والمساعدة جزاكم الله خيرا فعلا هذا الكود شغال تمام تسلم ايدك اخى