vb点虐 分区域统计 vbnet recordset

在VB.NET中，一个父窗体，多个子窗体。现可能有多个子窗体在运行，如何能统计出运行的子窗体的个数，

遍历所有子窗体，检查其状态。

凤城ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18980820575（备注：SSL证书合作）期待与您的合作！

记得表单有一个集合对象controls，里面包含它所辖的所有子控件。在判断控件类型是否form后，若是则判断它是否Visibled，符合条件的都做相应变化。这样处理局限时较小，代码可以通用，一劳永逸，好处自不必言。

VB点虐 中 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

需要统计多个excel文件中的数据，想使用Vb点虐 (vs2010)来变成实现，如何实现

不知道你是怎么百度的，你的百度关键词应当选择“VB 统计多个excel文件中的数据”。

1、数据透视表是用于在excel中不通过编程就实现汇总数据的目的，既然你都想编程了，数据透视表也就失去意义。

2、ACCESS更是无稽之谈，多此一举。

3、Excel文件不管多少，最重要的是每个文件要有统一的格式，这样就有了编程的前提。

实现方法是：

1、让程序能找到所有excel文件

2、用子过程读取每一个文件，获得所需要的数据，进行汇总

3、所有数据进行汇总，得到结果。