vb.net求总和 vb实现excel单元格求和

vb net data grid view如何计算这一列的总和

用循环啊

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim count As Integer = Me.DataGridView1.Rows.Count

        Dim sum As Double = 0

        For i = 0 To count - 1

            sum += Val(Me.DataGridView1.Item("Amount", i).Value)

        Next

        MsgBox("和是:"  sum)

    End Sub

相关问答

Q1: VB.NET 中datagrid一列怎么求和

Dim textColumn As New DataGridViewTextBoxColumn() '定义一个新的textbox格式的列

textColumn.Name = "Column1" '定义该列的Name

textColumn.HeaderText = "Column1" '定义该列的标题

DataGridView1.Columns.Add(textColumn)

For Each r As DataGridViewRow In DataGridView1.Rows '循环DataGridView的行

r.Cells(textColumn.Index).Value = r.Cells(0).Value + r.Cells(1).Value '将第一列和第二列单元格数据相加，并显示在新添加的单元格上

Next

Q2: VB.net中 datagridview控件如何读取框选区域内的行数和区域内的数据总和

在窗体上加上三个标签控件：Label1、Label2、Label3

    Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp

        Dim counter As Integer

        Dim SelectedCellTotal As Integer = 0

        Dim SelectedCellCount As Integer = 0

        For counter = 0 To (DataGridView1.SelectedCells.Count - 1)

            If DataGridView1.SelectedCells(counter).FormattedValueType Is _

            Type.GetType("System.String") Then

                Dim value As String = Nothing

                If (DataGridView1.IsCurrentCellDirty = True) Then

                    value = DataGridView1.SelectedCells(counter).EditedFormattedValue.ToString()

                Else

                    value = DataGridView1.SelectedCells(counter).FormattedValue.ToString()

                End If

                If value IsNot Nothing Then

                    If Not value.Length = 0 Then

                        SelectedCellTotal = SelectedCellTotal + Integer.Parse(value)

                        SelectedCellCount = SelectedCellCount + 1

                    End If

                End If

            End If

        Next

        Label1.Text = "选中的单元格个数为: "  SelectedCellCount.ToString()

        Label2.Text = "单元格里数据之和为: "  SelectedCellTotal.ToString()

        Label3.Text = "选中的单元格行数为："  DataGridView1.SelectedRows.Count.ToString()

    End Sub

Q3: vb.net中怎么对listview字段中的数据进行求和

循环相加即可

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sum As Double = 0

        For i = 0 To ListView1.Items.Count - 1 '

            sum += Val(ListView1.Items(i).SubItems(2).Text)

        Next

        MsgBox("消费金额："  sum)

    End Sub

Q4: VB.net中的求和问题

Private Sub Command1_Click()

MsgBox CalcResult(2)

End Sub

Public Function CalcResult(X As Long) As Double

Dim dblMinLevel As Double

Dim dblItem As Double

Dim dblN As Double

Dim dblMember As Double, dblBase As Double

Dim i As Double

Dim dblResult As Double

dblMinLevel = 10 ^ (-6)

dblN = 0

Do

dblMember = X ^ dblN

dblBase = 1

i = dblN

Do While i 1

dblBase = dblBase * i

i = i - 1

Loop

dblItem = dblMember / dblBase

dblResult = dblResult + dblItem

dblN = dblN + 1

Loop While dblItem = dblMinLevel

CalcResult = dblResult

End Function

vb.net求总和的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb实现excel单元格求和、vb.net求总和的信息别忘了在本站进行查找喔。