+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : اجمالى الفواتير فى قاعدة البيانات (/showthread.php?tid=28249)
الصفحات:
1
2
اجمالى الفواتير فى قاعدة البيانات - atef_020 - 15-01-19
لدى جدول فى قاعدة بيانات اكسيس بة سجلات برقم الفاتورة كل سجل فية مبلغ الفاتورة اريد عمل اجمالى مبلغ هذه الفواتير من قاعدة البيانات فى جدول اسمه tb1 وعمود اسمة total اجمالى هذه الفواتير وإظهار الاجمالى فى textbox1 فى فورم.
........تحياتى للجميع
RE: اجمالى الفواتير فى قاعدة البيانات - atef_020 - 15-01-19
ليه المنتدى مبقاش يقدم المساعده لطالبيها
RE: اجمالى الفواتير فى قاعدة البيانات - عبد العزيز البسكري - 15-01-19
السّلام عليكم و رحمة الله و بركاته
بالفورم لود أخي الكريم ..
إذا كان المجموع بالتاكست بدون الإعتماد على رقم الحقل بالداتاجريد ..
كود :
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تحياتي
RE: اجمالى الفواتير فى قاعدة البيانات - atef_020 - 16-01-19
(15-01-19, 09:11 PM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهبالفورم لود أخي الكريم ..إذا كان المجموع بالتاكست بدون الإعتماد على رقم الحقل بالداتاجريد ..كود :
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
تحياتي
اشكرك اخى الكريم عبد العزيز على الاهتمام .......... ولكن يوجد خطاء فى الكود
PHP كود :
PHP كود :
Dim Dt_Somme As DataTable = Dt_Invoices.Tables("TB1")
فى جزئية Dt_Invoices على الرغم اننى غيرتها لاسم الفوم الموجودة
PHP كود :
Dim Dt_Somme As DataTable = FrReport.Tables("TB1")
ولكن الخطاء فى FrReport.Tables
RE: اجمالى الفواتير فى قاعدة البيانات - عبد العزيز البسكري - 16-01-19
السلام عليكم و رحمة الله و بركاته
أخي عاطف .. Dt_invoices ..هي داتاسيت .. غيرها حسب ما هو موجود عندك .. و ليست اسم للفورم
تحياتي
RE: اجمالى الفواتير فى قاعدة البيانات - atef_020 - 16-01-19
(16-01-19, 01:37 PM)عبد العزيز البسكري كتب : السلام عليكم و رحمة الله و بركاته
أخي عاطف .. Dt_invoices ..هي داتاسيت .. غيرها حسب ما هو موجود عندك .. و ليست اسم للفورم
تحياتي
ظهرت الرسالة دى
[attachment=20635]
RE: اجمالى الفواتير فى قاعدة البيانات - asemshahen5 - 16-01-19
ضع هذا فقط في حدث اللود :
كود :
DA.Fill(DT)
Dim Sum_Column As Integer = Convert.ToInt32(DT.Compute("SUM(Total)", String.Empty))
TextBox1.Text = Sum_Column.ToStringRE: اجمالى الفواتير فى قاعدة البيانات - عبد العزيز البسكري - 16-01-19
السّلام عليكم و رحمة الله و بركاته
و جرّب هذا أيضا .. فهو مجرّب و شغّال .. واختر ما يليق بك أخي عاطف
كود :
Dim Dt_Somme As DataTable = Dt_Invoices.Tables("TB1")
TextBox1.Text = Dt_Somme.Compute("SUM(Total)", "").ToString()تحياتي
RE: اجمالى الفواتير فى قاعدة البيانات - asemshahen5 - 16-01-19
أخ عبد العزيز في كود تحميل الفورم لم يعبئ الداتاسيت او الداتا تيبل .
RE: اجمالى الفواتير فى قاعدة البيانات - atef_020 - 16-01-19
(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 واشكر الاخ الكريم عبد العزيز على الاهتمام والمساعدة جزاكم الله خيرا فعلا هذا الكود شغال تمام تسلم ايدك اخى