[atef_020]

لدى جدول فى قاعدة بيانات اكسيس بة سجلات برقم الفاتورة كل سجل فية مبلغ الفاتورة اريد عمل اجمالى  مبلغ هذه الفواتير من قاعدة البيانات  فى جدول  اسمه tb1 وعمود اسمة total  اجمالى هذه الفواتير وإظهار الاجمالى فى textbox1 فى فورم. 

 ........تحياتى للجميع

[atef_020]

ليه المنتدى مبقاش يقدم المساعده لطالبيها

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بالفورم لود أخي الكريم ..

إذا كان المجموع بالتاكست بدون الإعتماد على رقم الحقل بالداتاجريد ..

كود :

 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

تحياتي

[atef_020]

(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

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته
أخي عاطف .. Dt_invoices ..هي داتاسيت .. غيرها حسب ما هو موجود عندك .. و ليست اسم للفورم
تحياتي

[atef_020]

(16-01-19, 01:37 PM)عبد العزيز البسكري كتب : السلام عليكم و رحمة الله و بركاته
أخي عاطف .. Dt_invoices ..هي داتاسيت .. غيرها حسب ما هو موجود عندك .. و ليست اسم للفورم
تحياتي

ظهرت الرسالة دى 
   

[asemshahen5]

ضع هذا فقط في حدث اللود  :

كود :

      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()

تحياتي

[asemshahen5]

أخ عبد العزيز في كود تحميل الفورم لم يعبئ الداتاسيت او الداتا تيبل .

[atef_020]

(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 واشكر الاخ الكريم عبد العزيز على الاهتمام والمساعدة جزاكم الله خيرا فعلا هذا الكود شغال تمام تسلم ايدك اخى