技术求助：用BETWEEN/COUNT/ALIAS统计数值区间及VB.NET加载Excel到DataGridView

我来帮你搞定这两个技术难题，都是开发里常遇到的场景，给你详细的实现方案：

你之前的代码只处理部分区间，大概率是没结合CASE WHEN来批量判断不同区间。这里有两种常用的实现方式，按需选择：

方式1：按列展示各区间统计结果 #

如果想把每个区间的统计数作为单独一列展示，用COUNT(CASE...)组合就能实现，每个CASE对应一个区间，别名直接标注区间范围：

SELECT
  -- 统计10-19的数量
  COUNT(CASE WHEN your_column BETWEEN 10 AND 19 THEN 1 END) AS `10-19`,
  -- 统计20-29的数量
  COUNT(CASE WHEN your_column BETWEEN 20 AND 29 THEN 1 END) AS `20-29`,
  -- 以此类推，覆盖所有需要的区间
  COUNT(CASE WHEN your_column BETWEEN 30 AND 39 THEN 1 END) AS `30-39`,
  -- 处理边界外的数值，比如大于等于40的情况
  COUNT(CASE WHEN your_column >= 40 THEN 1 END) AS `40+`
FROM your_table;

注意：BETWEEN是包含两端值的，如果你处理的是小数（比如19.9），可以把区间调整为>=10 AND <20来避免重复统计边界值。

方式2：按行展示各区间统计结果 #

如果想让每个区间和对应的统计数按行展示，就用CASE生成区间别名，再配合GROUP BY：

SELECT
  CASE
    WHEN your_column BETWEEN 10 AND 19 THEN '10-19'
    WHEN your_column BETWEEN 20 AND 29 THEN '20-29'
    WHEN your_column BETWEEN 30 AND 39 THEN '30-39'
    ELSE '40+'
  END AS value_range,
  COUNT(*) AS total_count
FROM your_table
GROUP BY value_range
ORDER BY value_range;

这种方式更灵活，新增区间只需要在CASE里加判断即可。

既然文件浏览已经搞定，那加载数据的核心是用数据读取器把Excel内容转成DataTable，再绑定到DataGridView。这里给你两种靠谱的方案：

方案1：用OLEDB（.NET自带，无需额外依赖） #

这种方法需要你的机器安装了Office组件或者Microsoft ACE驱动，适合传统Excel文件：

' 假设你已经通过OpenFileDialog拿到了文件路径
Dim filePath As String = openFileDialog1.FileName
Dim connString As String = String.Empty

' 根据Excel版本选择对应的连接字符串
If Path.GetExtension(filePath).ToLower() = ".xls" Then
    ' 旧版Excel（.xls）
    connString = $"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={filePath};Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
ElseIf Path.GetExtension(filePath).ToLower() = ".xlsx" Then
    ' 新版Excel（.xlsx）
    connString = $"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={filePath};Extended Properties=""Excel 12.0 Xml;HDR=Yes;IMEX=1"""
End If

' 加载数据到DataGridView
Using conn As New OleDbConnection(connString)
    conn.Open()
    ' 获取第一个工作表的名称（如果知道表名可以直接写"Sheet1$"）
    Dim sheetTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
    Dim sheetName As String = sheetTable.Rows(0)("TABLE_NAME").ToString()

    ' 查询工作表数据
    Dim query As String = $"SELECT * FROM [{sheetName}]"
    Using dataAdapter As New OleDbDataAdapter(query, conn)
        Dim dataSet As New DataSet()
        dataAdapter.Fill(dataSet)
        ' 绑定到DataGridView
        DataGridView1.DataSource = dataSet.Tables(0)
    End Using
End Using

注意：HDR=Yes表示Excel第一行是表头，IMEX=1会把混合数据类型的列按文本读取，避免丢失数据。

方案2：用EPPlus（轻量，无需Office组件） #

如果不想依赖Office驱动，推荐用EPPlus这个NuGet包，专门处理Excel文件：

1. 先在NuGet包管理器里搜索安装EPPlus
2. 然后用下面的代码加载数据：

Dim filePath As String = openFileDialog1.FileName

Using excelPackage As New ExcelPackage(New FileInfo(filePath))
    ' 获取第一个工作表
    Dim worksheet As ExcelWorksheet = excelPackage.Workbook.Worksheets(0)
    Dim dataTable As New DataTable()

    ' 加载表头
    For col As Integer = 1 To worksheet.Dimension.End.Column
        dataTable.Columns.Add(worksheet.Cells(1, col).Text)
    Next

    ' 加载数据行
    For row As Integer = 2 To worksheet.Dimension.End.Row
        Dim dataRow As DataRow = dataTable.NewRow()
        For col As Integer = 1 To worksheet.Dimension.End.Column
            dataRow(col - 1) = worksheet.Cells(row, col).Text
        Next
        dataTable.Rows.Add(dataRow)
    Next

    ' 绑定到DataGridView
    DataGridView1.DataSource = dataTable
End Using

这种方法更稳定，尤其是在没有安装Office的服务器环境下使用。

内容的提问来源于stack exchange，提问作者user9426123