+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب اجمالى المبيعات فى جدول معين (/showthread.php?tid=42098)
جلب اجمالى المبيعات فى جدول معين - حماده ممدوح البحيرى - 06-08-22
السلام عليكم
لدى جدول wardya_cashier به الكثير من المبيعات
اريد جلب اجمالى قيمة المببعات بناء على الشرط داخل textbox1
حيث ان textbox1 قد يساوى فاتورة تيك واى او يساوى فاتورة دليفرى اريد جلب اجمالى القيمة داخل textbox2
[attachment=28054]
RE: جلب اجمالى المبيعات فى جدول معين - Lathe1 - 06-08-22
Dim da As New SqlDataAdapter
dt_store.Clear()
da = New SqlDataAdapter("select * from اسم الجدول المطلوب where order_type = '" & textbox1.Text & "'", Con)
da.Fill(dt_store)
'dgv.DataSource = dt_Customer_Tbl
'لجمع عمود فى datatable
Dim sum As Double
For i As Integer = 0 To dt_store.Rows.Count - 1
sum = dt_store.Rows(i).Item("order_total") + sum
Next
textbox2.Text = sum
RE: جلب اجمالى المبيعات فى جدول معين - حماده ممدوح البحيرى - 06-08-22
(06-08-22, 10:29 AM)Lathe1 كتب : Dim da As New SqlDataAdapter
dt_store.Clear()
da = New SqlDataAdapter("select * from اسم الجدول المطلوب where order_type = '" & textbox1.Text & "'", Con)
da.Fill(dt_store)
'dgv.DataSource = dt_Customer_Tbl
'لجمع عمود فى datatable
Dim sum As Double
For i As Integer = 0 To dt_store.Rows.Count - 1
sum = dt_store.Rows(i).Item("order_total") + sum
Next
textbox2.Text = sum
اخى وحبيبى الف شكر ليك ولكنى لا افهم المسميات لديك
كما انه ليس لدى داتا جريد فيو ولن استخدمها
انا اريد جلب الاجمالى داخل تيكست بوكس فقط كما بالصورة
RE: جلب اجمالى المبيعات فى جدول معين - Lathe1 - 07-08-22
[attachment=28060 كتب :حماده ممدوح البحيرى pid='184168' dateline='1659808864'](06-08-22, 10:29 AM)Lathe1 كتب : Dim da As New SqlDataAdapter
dt_store.Clear()
da = New SqlDataAdapter("select * from اسم الجدول المطلوب where order_type = '" & textbox1.Text & "'", Con)
da.Fill(dt_store)
'dgv.DataSource = dt_Customer_Tbl
'لجمع عمود فى datatable
Dim sum As Double
For i As Integer = 0 To dt_store.Rows.Count - 1
sum = dt_store.Rows(i).Item("order_total") + sum
Next
textbox2.Text = sum
اخى وحبيبى الف شكر ليك ولكنى لا افهم المسميات لديك
كما انه ليس لدى داتا جريد فيو ولن استخدمها
انا اريد جلب الاجمالى داخل تيكست بوكس فقط كما بالصورة
RE: جلب اجمالى المبيعات فى جدول معين - asemshahen5 - 08-08-22
اولا عندك خطا بسيط يجب عليك عمل نوع الفاتورة من نوع رقمي مثال جدول انواع الفواتير :
1- بالصالة المطعم .
2- بالصالة العاءلات .
3- ديلفري .
وهذه الارقام هي ماتوضع في جدولك الذي وضعت صورته .
اما بالنسبة لما طلبت :
PHP كود :
Select sum(order_total) from TableName where order_type = 1
اي صالة المطعم و هكذا .
والباقي اصبح سهلا باذن الله .
RE: جلب اجمالى المبيعات فى جدول معين - حماده ممدوح البحيرى - 09-08-22
(08-08-22, 01:08 PM)asemshahen5 كتب : اولا عندك خطا بسيط يجب عليك عمل نوع الفاتورة من نوع رقمي مثال جدول انواع الفواتير :
1- بالصالة المطعم .
2- بالصالة العاءلات .
3- ديلفري .
وهذه الارقام هي ماتوضع في جدولك الذي وضعت صورته .
اما بالنسبة لما طلبت :
رقم واحد يدل على نوع الفاتورة .PHP كود :
Select sum(order_total) from TableName where order_type = 1
اي صالة المطعم و هكذا .
والباقي اصبح سهلا باذن الله .
اى باقى اخى الكريم
ارجوا كتابة الكود كاملا جزاك الله خيرا
RE: جلب اجمالى المبيعات فى جدول معين - عبد العزيز البسكري - 09-08-22
كود :
Dim CodeOrderType As String = Me.TextBox1.Text
Dim Sql As String = "SELECT IIF(SUM(Order_Total) Is Null,0,SUM(Order_Total)) As SumOrders From Table Where Order_Type = '" & CodeOrderType & "'"
Dim Cmd As SqlCommand = New SqlCommand(Sql, Conne)
Dim DA As SqlDataAdapter = New SqlDataAdapter(Cmd)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
Me.TextBox2.Text = DT.Rows(0)(0).ToString