[Mido9]

السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل

انا الان لدي اداة كومبو بوكس وبها بعض القيم التاليه


1
2
50
98546


انا اريد امر يقوم بجمع الارقام الموجوده فى الكومبو بوكس وإظهارها فى التيكست بوكس كـ إجمالي

وشكرا لكم

[سعود]

لو القيم من جدول بالقاعدة فالافضل استخدام sum لانها اضمن

كود :

select sum(col) from tb

وتسندها لـ oledbcommand وتقراها هكذا

كود :

textbox1.text= cm.executescalar

---

وممكن كذا

كود :

Dim i As Integer
        For a = 0 To ListBox1.Items.Count - 1
            i += ListBox1.Items.Item(a)
        Next
        TextBox1.Text = i

[Mido9]

جزاك الله خيرا اخي الفاضل على الرد
بالفعل القيم من جدول من قاعدة البيانات

انا اريد معرفة الـ cm معناها ايه علشان استبدلها بالقيم الى عندي

لاني وضعت الكود هكذا


   

PHP كود :

 Dim saveinto As New OleDb.OleDbCommand
       Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
       Dim conn As New OleDb.OleDbConnection(constr)
       Dim DataSet1 As New DataSet
       Dim SQLstr As String
       SQLstr = "SELECT SUM(t_modares_safy) From t_modares "
       conn.Open()
       Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
       dataadapter1.Fill(DataSet1, "t_modares")
           TextBox1.Text = cm.ExecuteScalar 


وظهر لي الخطأ التالي

PHP كود :

'cm' is not declared. It may be inaccessible due to its protection level. 


[سعود]

كود :

dim cm as new OleDb.OleDbCommand(sqlstr,con)