(19-06-17, 10:36 PM)نبيل كونكت كتب : العمود الرابع لو بدانا من 0 -1-2-3-4 
جربت اكواد كتير بيكون الجمع 0 مع العلم ان فى قيم فى الخلايا
لو سمحتوا تعديل الكود

PHP كود :

 Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles 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 = 0, Color.AliceBlue, Color.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 = 0, z As 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(sqlstr, con)
            txtnamper.Text = cmd.ExecuteScalar()
  
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
      
    End Sub 


(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 Object, e As EventArgs) Handles 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 = 0, Color.AliceBlue, Color.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 = 0, z As 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(sqlstr, con)
            txtnamper.Text = cmd.ExecuteScalar()
  
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
      
    End Sub 


ما فهنت طلبك  بدك تجمع عمود بالداتا غريد ولا ماذا

(20-06-17, 04:02 PM)حريف برمجة كتب : العمود الرابع ترتيبه 3

كود :

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