vb.net中如何计算鼠标选取 datagridview的多个单元格的和

wangxin5576 2009-08-29 11:07:38

vb.net中如何计算鼠标选取 datagridview的多个单元格的和就像excel的那样。

...全文

213 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

wangxin5576 2009-08-30

打赏
举报

问题解决了谢谢各位
以下是代码程序：
' ************************************************************
' 以下为计算所选单元格值的和并传入父窗体
' 需在formload是加入“T1 = Me.ParentForm”
' ************************************************************

Public T1 As mainfrm

Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp
Dim count1 As Decimal = 0.0
For Each a In DataGridView1.SelectedCells
If IsNumeric(a.value) Then
count1 = count1 + a.Value
Else
count1 = Nothing
T1.ShuZiXianShiZhaungTaiLan.Text = ""
Exit Sub
End If
Next
T1.ShuZiXianShiZhaungTaiLan.Text = count1
End Sub

水哥阿乐 2009-08-30

打赏
举报

只有C#的供参考

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;



namespace WindowsApplication35

{

    public partial class Form1 : Form

    {

        DataGridView DGV = new DataGridView();

        TextBox TB = new TextBox();



        public Form1()

        {

            InitializeComponent();



            DGV.Columns.Add("c1", "c1");

            DGV.Columns.Add("c2", "c2");

            DGV.Rows.Add(new Object[] { 1, 2 });

            DGV.Rows.Add(new Object[] { 3, 4 });

            DGV.Parent = this;

            DGV.SelectionChanged += new EventHandler(DGV_SelectionChanged);



            TB.Location = new Point(0, 200);

            TB.Parent = this;

        }



        void DGV_SelectionChanged(object sender, EventArgs e)

        {

            int Total = 0;

            foreach (DataGridViewCell Cell in DGV.SelectedCells)

                Total += (int)Cell.Value;

            TB.Text = Total.ToString();

        }

    }

}