[عمور2016]

السلام عليكم

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

كي يتم احتساب عدد الكلمات من نوع  مثلا كم عدد الذكور

PHP كود :

       
        TextBox5.Text = "0"
        For i As Byte = 0 To DataGridView1.RowCount - 1

            TextBox5.Text = CDbl(Val(TextBox5.Text)) + CDbl(DataGridView1.Rows(i).Cells(11).Value 
        Next
       TextBox5.Text = TextBox5.Text + Val(10) 


[سعود]

(09-10-20, 10:15 PM)عمور2016 كتب : السلام عليكم

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

كي يتم احتساب عدد الكلمات من نوع  مثلا كم عدد الذكور

PHP كود :

       
        TextBox5.Text = "0"
        For i As Byte = 0 To DataGridView1.RowCount - 1

            TextBox5.Text = CDbl(Val(TextBox5.Text)) + CDbl(DataGridView1.Rows(i).Cells(11).Value 
        Next
       TextBox5.Text = TextBox5.Text + Val(10) 


PHP كود :

 Dim f As Integer
        Dim m As Integer
        f = 0
        m = 0

        Dim i As Integer
        For i = 0 To dg.Rows.Count - IIf(dg.AllowUserToAddRows, 2, 1)
            If dg.Rows(i).Cells(0).Value.ToString = "female" Then
                f += 1
            ElseIf dg.Rows(i).Cells(0).Value.ToString = "male" Then
                m += 1
            End If

        Next
        MsgBox("الاناث: " & f & vbNewLine & " الذكور: " & m, MsgBoxStyle.Information, "") 


[عمور2016]

الله يكتب اجرك

والف الف شكرا اخي سعود

الله يحفظك تحياتي