خارطة الموقع برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة الرئيسية من نحن اتصل بنا English
يازسيس لهندسة البرمجيات
Skip Navigation Links
خوارزميات وانظمة التشفيرExpand خوارزميات وانظمة التشفير
|
نظام إدارة المبيعات
|
نظام إدارة العيادات
|
تعليم & شروحاتExpand تعليم & شروحات
 
التعديل على قيمة او خلية داخل اداة DataGridView
بواسطة احمد عادل موسى
2014-11-13
Private Sub CellValueChanged(ByVal sender As Object, _
    ByVal e As DataGridViewCellEventArgs) _
    Handles DataGridView1.CellValueChanged

    ' Update the balance column whenever the values of any cell changes.
    UpdateBalance()
End Sub 

Private Sub RowsRemoved(ByVal sender As Object, _
    ByVal e As DataGridViewRowsRemovedEventArgs) _
    Handles DataGridView1.RowsRemoved

    ' Update the balance column whenever rows are deleted.
    UpdateBalance()
End Sub 

Private Sub UpdateBalance()
    Dim counter As Integer 
    Dim balance As Integer 
    Dim deposit As Integer 
    Dim withdrawal As Integer 

    ' Iterate through the rows, skipping the Starting Balance Row. 
    For counter = 1 To (DataGridView1.Rows.Count - 2)
        deposit = 0
        withdrawal = 0
        balance = Integer.Parse(DataGridView1.Rows(counter - 1) _
            .Cells("Balance").Value.ToString())

        If Not DataGridView1.Rows(counter) _
            .Cells("Deposits").Value Is Nothing Then 

            ' Verify that the cell value is not an empty string. 
            If Not DataGridView1.Rows(counter) _
                .Cells("Deposits").Value.ToString().Length = 0 Then
                deposit = Integer.Parse(DataGridView1.Rows(counter) _
                    .Cells("Deposits").Value.ToString())
            End If 
        End If 

        If Not DataGridView1.Rows(counter) _
            .Cells("Withdrawals").Value Is Nothing Then 
            If Not DataGridView1.Rows(counter) _
                .Cells("Withdrawals").Value.ToString().Length = 0 Then
                withdrawal = Integer.Parse(DataGridView1.Rows(counter) _
                    .Cells("Withdrawals").Value.ToString())
            End If 
        End If

        DataGridView1.Rows(counter).Cells("Balance").Value = _
            (balance + deposit + withdrawal).ToString()
    Next 
End Sub
 
 
إعلان ... لأصحاب المتجار فقط - برنامج تنفيذي وليس سورس كود
تحميل برنامج مبيعات وجرد المستودعات

 
 
الصفحة الرئيسية
خوارزميات التشفير English
خوارزميات التشفير العربية
تصميم مشاريع التخرج
تصميم المواقع الإلكترونية
تصميم وإنتاج البرمجيات
مشاريع برمجة متنوعة مفتوحة المصدر
دورة برمجة وتصميم مواقع الكترونية
مواضيع ودروس تعليمية
مواضيع ومقالات عامة
إذاعة القرآن الكريم
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
نظام إدارة المبيعات
نظام إدارة العيادات