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

مجموع عمود فى الداتا جريد

بدأه mrvetch في 14 أكتوبر 2012 · 2 رد · 568 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدى مشروع اتممته ولله الحمد

لدى صفحه تقارير وكل البحث داخل المشروع ياتى عليها هى صفحه بها داتا جريد

يمكن البحث ان يكون من قسم الموظفين او الحسابات او اى شىء اخر

هذا كود البحث عن كل بيانات جدول reseve

Dim dss As New DataSet
            Dim adq As New SqlClient.SqlDataAdapter
            Dim cmdw As New SqlClient.SqlCommand
            cmdw.Connection = cn
            cmdw.CommandType = CommandType.Text
            cmdw.CommandText = "select * from reseve "
            adq.SelectCommand = cmdw
            adq.Fill(dss, "reseve")
            erport.DataGridView1.DataSource = dss.Tables("reseve")
            erport.Show()

فتقوم الداتا جريد بعرض كل بيانات الجدول سواء كانت الحقول كثيره او قليله

سؤالى هنا هل يمكن جعل المستخدم ان يؤشر على عمود ما وجمع بياناته

حيث ان مصلا لو كان البحث فى الحسابات ممكن يكون من جدول المصروفات عاوز اجمع عمود القيمه مثلا

وممكن يكون نتيجه البحث بيانات عاديه مثل البحث عن موظف مفيهاش حاجه تتجمع ؟

شكرا لكم وياريت الافاده

#2

السلام عليكم ..

  1. استخدم الحدث DataGridView_ColumnHeaderMouseClick كمايلي : 
     Dim ds As New DataSet
	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    	Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" + Application.StartupPath + "\DB.mdb" + ";Persist Security Info=False")
    	connection.Open()
    	Dim comd As New OleDbCommand
    	Dim adapter As New OleDbDataAdapter("select * from books", connection)
    	adapter.Fill(ds, "books")
    	DataGridView2.DataSource = ds.Tables("books")

	End Sub

  2.  Private Sub DataGridView2_ColumnHeaderMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView2.ColumnHeaderMouseClick
    	On Error GoTo endSub
    	Dim sum As Double = 0
    	For Each row As DataRow In ds.Tables("books").Rows
        	sum = sum + row(e.ColumnIndex)

    	Next
endSub:
    	TextBox1.Text = sum

	End Sub

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#3

الف شكر يابشمهندس وتكرم على المجهود الرائع

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