تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لو سمحتوا يا جماعه طلب جمع قيم خلايا عمود فى الداتا جريد فيو
#1
العمود الرابع لو بدانا من 0 -1-2-3-4 
جربت اكواد كتير بيكون الجمع 0 مع العلم ان فى قيم فى الخلايا
لو سمحتوا تعديل الكود

PHP كود :
 Private Sub folderadd_Load(sender As ObjectAs EventArgsHandles MyBase.Load


        Me
.txtid.Focus()
 
       For i 0 To dgvprodac.Columns.Count 1
            dgvprodac
.Columns(i).SortMode DataGridViewColumnSortMode.NotSortable

        Next
       
        
'For i = 0 To dt.Rows.Count - 1
        ' 
   dgvprodac.Rows(i).DefaultCellStyle.BackColor = If(i Mod 2 0Color.AliceBlueColor.AntiqueWhite)
 
       'Next
        '
Dim sum As Integer 0
        
'For i As Integer = 0 To dgvprodac.Rows.Count - 1
        ' 
   sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
 
       'Next
        '
txttotal.Text sum.ToString()
 
       Dim Total As Integer 0As Integer 0
        While z 
dgvprodac.Rows.Count
            
'    sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
            Total += CInt(dgvprodac.Rows(z).Cells(4).Value)
            z += 1
        End While
        txttotal.Text = Total.ToString()

        Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
        Dim dt As New DataTable
        pd = Me.BindingContext(dt)
        da.Fill(dt)
        Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
        Dim gh As New AutoCompleteStringCollection()
        gh.AddRange(itms)
        txtlabel.AutoCompleteCustomSource = gh
        txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
      

        txtsailman.Text = fullname
        sorse()
        

        
        Try
            con.Open()
            sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
            '
sqlstr "select max ((MAX(Id) IS NULL,0,MAX(Id))) +1 from [tab_older] "
 
           cmd = New OleDbCommand(sqlstrcon)
 
           txtnamper.Text cmd.ExecuteScalar()
 
 
            con
.Close()
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
       End Try
 
     
    End Sub 
الرد }}}}
تم الشكر بواسطة:
#2
(19-06-17, 10:36 PM)نبيل كونكت كتب : العمود الرابع لو بدانا من 0 -1-2-3-4 
جربت اكواد كتير بيكون الجمع 0 مع العلم ان فى قيم فى الخلايا
لو سمحتوا تعديل الكود

PHP كود :
 Private Sub folderadd_Load(sender As ObjectAs EventArgsHandles MyBase.Load


        Me
.txtid.Focus()
 
       For i 0 To dgvprodac.Columns.Count 1
            dgvprodac
.Columns(i).SortMode DataGridViewColumnSortMode.NotSortable

        Next
       
        
'For i = 0 To dt.Rows.Count - 1
        ' 
   dgvprodac.Rows(i).DefaultCellStyle.BackColor = If(i Mod 2 0Color.AliceBlueColor.AntiqueWhite)
 
       'Next
        '
Dim sum As Integer 0
        
'For i As Integer = 0 To dgvprodac.Rows.Count - 1
        ' 
   sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
 
       'Next
        '
txttotal.Text sum.ToString()
 
       Dim Total As Integer 0As Integer 0
        While z 
dgvprodac.Rows.Count
            
'    sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
            Total += CInt(dgvprodac.Rows(z).Cells(4).Value)
            z += 1
        End While
        txttotal.Text = Total.ToString()

        Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
        Dim dt As New DataTable
        pd = Me.BindingContext(dt)
        da.Fill(dt)
        Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
        Dim gh As New AutoCompleteStringCollection()
        gh.AddRange(itms)
        txtlabel.AutoCompleteCustomSource = gh
        txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
      

        txtsailman.Text = fullname
        sorse()
        

        
        Try
            con.Open()
            sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
            '
sqlstr "select max ((MAX(Id) IS NULL,0,MAX(Id))) +1 from [tab_older] "
 
           cmd = New OleDbCommand(sqlstrcon)
 
           txtnamper.Text cmd.ExecuteScalar()
 
 
            con
.Close()
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
       End Try
 
     
    End Sub 

ما فهنت طلبك  بدك تجمع عمود بالداتا غريد ولا ماذا
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}}
تم الشكر بواسطة:
#3
(20-06-17, 12:44 AM)العواد الصغير كتب :
(19-06-17, 10:36 PM)نبيل كونكت كتب : العمود الرابع لو بدانا من 0 -1-2-3-4 
جربت اكواد كتير بيكون الجمع 0 مع العلم ان فى قيم فى الخلايا
لو سمحتوا تعديل الكود

PHP كود :
 Private Sub folderadd_Load(sender As ObjectAs EventArgsHandles MyBase.Load


        Me
.txtid.Focus()
 
       For i 0 To dgvprodac.Columns.Count 1
            dgvprodac
.Columns(i).SortMode DataGridViewColumnSortMode.NotSortable

        Next
       
        
'For i = 0 To dt.Rows.Count - 1
        ' 
   dgvprodac.Rows(i).DefaultCellStyle.BackColor = If(i Mod 2 0Color.AliceBlueColor.AntiqueWhite)
 
       'Next
        '
Dim sum As Integer 0
        
'For i As Integer = 0 To dgvprodac.Rows.Count - 1
        ' 
   sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
 
       'Next
        '
txttotal.Text sum.ToString()
 
       Dim Total As Integer 0As Integer 0
        While z 
dgvprodac.Rows.Count
            
'    sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
            Total += CInt(dgvprodac.Rows(z).Cells(4).Value)
            z += 1
        End While
        txttotal.Text = Total.ToString()

        Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
        Dim dt As New DataTable
        pd = Me.BindingContext(dt)
        da.Fill(dt)
        Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
        Dim gh As New AutoCompleteStringCollection()
        gh.AddRange(itms)
        txtlabel.AutoCompleteCustomSource = gh
        txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
      

        txtsailman.Text = fullname
        sorse()
        

        
        Try
            con.Open()
            sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
            '
sqlstr "select max ((MAX(Id) IS NULL,0,MAX(Id))) +1 from [tab_older] "
 
           cmd = New OleDbCommand(sqlstrcon)
 
           txtnamper.Text cmd.ExecuteScalar()
 
 
            con
.Close()
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
       End Try
 
     
    End Sub 

ما فهنت طلبك  بدك تجمع عمود بالداتا غريد ولا ماذا
اه بالظبط عايز اجمع العمود الرابع فى الداتا فريد فيو
الرد }}}}
تم الشكر بواسطة:
#4
العمود الرابع ترتيبه 3


كود :
TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(3).Value)).Sum()
الرد }}}}
تم الشكر بواسطة: نبيل كونكت , نبيل كونكت
#5
الى الان ما فهمت ماذا تريد 
ولكن من اجل جمع عمود  مرر هذا الكود للداتا غريد مع مراعاة رقم الحقل والقيمة الفارغة والتكست وقد اخذتها 
من هذا المنتدى 
كود :
Public Sub sumcolimdatagridview(ByVal dvg As DataGridView, ByVal txtsum As TextBox, ByVal Col As String, ByVal Col1 As String) 'جمع عمود بالداتا غريد
       'اجراء جمع عمود بالداتا غريد فيو وياخذ اربعة معاملات
       'الاول الداتا غريد فيو
       'الثاني مربع نص من اجل الجمع
       'الثالث تحديد حقل الذا كان فارغا لا يتم جمع السجل الفارغ
       'الرابع الحقل المراد جمعه
       Try
           Dim sum As Decimal = 0 'تعريف متغير من نوع عملة
           For i As Integer = 0 To dvg.Rows.Count - 1 ' حلقة تكرار من اجل جمع كافة سجلات الحق المطلوب
               If Not dvg.Rows(i).Cells(Col).Value = Nothing Then
                   sum += Convert.ToDecimal(dvg.Rows(i).Cells(Col1).Value) 'عملية الجمع
               End If

           Next
           txtsum.Text = sum.ToString() 'اسناد قيمة المتغير للتكست بوكس
       Catch ex As Exception
           MsgBox("Can't load Web page" & vbCrLf & ex.Message)
       End Try

   End Sub
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}}
تم الشكر بواسطة: نبيل كونكت , نبيل كونكت
#6
(20-06-17, 04:02 PM)حريف برمجة كتب : العمود الرابع ترتيبه 3


كود :
TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(3).Value)).Sum()

الله ينور يا بشمهندس
الرد }}}}
تم الشكر بواسطة:
#7
تريد جمع  العمود رقم 4  الذي ترتيبه 3
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية عرض الصورة من الداتا جريد الى picture box mohamed2316 1 70 23-12-17, 01:39 AM
آخر رد: mohamed2316
  جمع عمود في داتا جريد واظهار الناتج في تكست بوكس nabil 8 4,873 17-12-17, 06:57 PM
آخر رد: mohamed125
  [سؤال] التعامل مع الداتا جريد zepeir 5 3,209 15-09-17, 08:41 PM
آخر رد: Saadzindany
  حذف الأسطر الفارغة والناقصة من الداتا قريد فيو أبو راشد عبدالوهاب 20 799 21-08-17, 03:23 PM
آخر رد: ابو ليلى
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 247 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  مساعدة محتاج كود جمع قيم عمود فى الداتا جريد osemy 4 2,700 28-07-17, 06:14 AM
آخر رد: hoshosgost@yahoo.com
  كيفية عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس khaled12345 19 682 16-07-17, 07:23 PM
آخر رد: حريف برمجة
  المساعدة في طريقة تحويل اسماء حقول الداتا كريد فيو الى العربية وادي العوضي 7 274 08-07-17, 03:07 PM
آخر رد: وادي العوضي
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 236 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  كيف اقارن بين قيمه سابقه وقمه لاحقة في خليه في الداتا جريد فيو samawi 2 239 15-04-17, 02:52 AM
آخر رد: samawi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم