06-08-22, 10:29 AM
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
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