الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال فى الاستعلام عاجل جدا

بدأه shosho842000 في 5 يونيو 2009 · 3 رد · 629 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

مش عارفا ايه الغلط فى الكود دا بحيث انى عايزاه اعمل تجميع للحقول دى واحطها فى col عملتها بالطريقة دى بس مش بتشتغل

If cn.State = ConnectionState.Open Then cn.Close()

cn.Open()

cmd.CommandText = "select * from salary where id=@id1 "

cmd.Parameters.Add("id1", SqlDbType.VarChar).Value = TextBox1.Text

tb.Load(cmd.ExecuteReader)

Dim total_sal As New DataColumn("total_sal", GetType(Decimal), "sal1 + sal2")

Dim total As New DataColumn("total", GetType(Decimal), "sal1 + sal2 + sal3 + sal4 + sal5 + sal6 + sal6 + sal7 + sal8 + sal9 + sal14 + sal10 + sal11 + sal15 + sal12 + sal18")

Dim total_sal1 As New DataColumn("total_sal1", GetType(Decimal), "sal3 + sal4 + sal5 + sal6 + sal6 + sal7")

tb.Columns.AddRange(New DataColumn() {total_sal, total, total_sal1})

DataGridView1.DataSource = tb

وشكرا

#2
اقتباس
عايزاه اعمل تجميع للحقول دى واحطها فى col

شو يعني ؟

FOTA KHader FAR

سوف اتجة الى عالم الويب

thumb_kujviv1t1.jpg

#3

يعنى عندى الحقول الى هيا sal2,sal3 عايزاه اجمعهم القيم بتاعتهم على بعض ويتم تخزينها فى قاعدة البيانات ومن ثم عرضها فى datagrid

lu hguممع العلم ان الجدول اسمه salary والحقول sal1,sal2,sal3,sal4,sal5,sal6,sal7,sal8

وشكرا

#4

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

بســم الله الـرحمــن الرحيــم

الحمدلله والصلاة والسلام علىسيدنا محمد رسول الله وعلى آله وصحبه أجمعين

الكود

Private Sub DataGridView1_CellStateChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellStateChangedEventArgs) Handles DataGridView1.CellStateChanged

Call mathimatics()

End Sub

Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded

Call mathimatics()

End Sub

Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved

Call mathimatics()

End Sub

Sub mathimatics()

Dim mathims As Double = 0

Try

For i As Integer = 0 To Me.DataGridView1.Rows.Count - 1

If Me.DataGridView1.Rows.Count > 1 Then

''''''''''''''''''''''''''''mathims += Me.DataGridView1("amount", i).Value

''''''''''''''''''''''''''''Me.TextBox1.Text = mathims

'Me.DataGridView1("amount", i).Value = CType(Me.DataGridView1("price", i).Value, Integer) * CType(Me.DataGridView1("quanity", i).Value, Integer) * CType(Me.DataGridView1("discount", i).Value / 100, Integer)

Me.DataGridView1("amount", i).Value = (Me.DataGridView1("price", i).Value * Me.DataGridView1("quanity", i).Value) * (Me.DataGridView1("discount", i).Value / 100)

End If

Next

'Me.DataGridView1("amount", i - 1).Value = mathims

Catch ex As Exception

End Try

End Sub

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…