统计指定列名：VB代码未处理10月数据的原因咨询

首先，你的代码没处理10月份数据的核心原因有两个：

1. 两位数月份的判断逻辑缺失：你的代码只针对1-4月做了首字符判断，但完全没有处理10、11、12月的分支，这三个月份的列名开头是两位数字，自然不会被现有逻辑匹配到。
2. 首字符判断的歧义：就算10月的列名首字符是"1"，它也会被错误归类到cnt1（也就是你统计1月的变量）里，而不会被当作10月单独统计——因为你只取了列名的第一个字符，无法区分"1月"和"10月"。

修正后的代码示例 #

你可以调整判断逻辑，先优先匹配两位数的月份，再处理1-9月的情况：

For col As Integer = 4 To ldtData.Columns.Count - 1
    Dim colName As String = ldtData.Columns(col).ColumnName
    ' 先处理两位数的月份
    If colName.StartsWith("10") Then
        cnt10 = cnt10 + 1
    ElseIf colName.StartsWith("11") Then
        cnt11 = cnt11 + 1
    ElseIf colName.StartsWith("12") Then
        cnt12 = cnt12 + 1
    ' 再处理1-9月
    ElseIf colName.Substring(0, 1) = "1" Then
        cnt1 = cnt1 + 1
    ElseIf colName.Substring(0, 1) = "2" Then
        cnt2 = cnt2 + 1
    ElseIf colName.Substring(0, 1) = "3" Then
        cnt3 = cnt3 + 1
    ElseIf colName.Substring(0, 1) = "4" Then
        cnt4 = cnt4 + 1
    ' 可以继续补充5-9月的判断
    ElseIf colName.Substring(0, 1) = "5" Then
        cnt5 = cnt5 + 1
    ' ... 以此类推到9月
    End If
Next

更健壮的优化方案 #

如果列名的格式是固定的（比如"1月"、"10月"这种带月份后缀的），你可以尝试提取列名中的数字部分，这样不管是一位还是两位数都能准确识别：

For col As Integer = 4 To ldtData.Columns.Count - 1
    Dim colName As String = ldtData.Columns(col).ColumnName
    ' 提取列名中的数字
    Dim monthStr As String = New String(colName.Where(Function(c) Char.IsDigit(c)).ToArray())
    If Integer.TryParse(monthStr, Dim monthNum As Integer) Then
        Select Case monthNum
            Case 1 : cnt1 += 1
            Case 2 : cnt2 += 1
            ' ... 补充3-9月的case
            Case 10 : cnt10 += 1
            Case 11 : cnt11 += 1
            Case 12 : cnt12 += 1
        End Select
    End If
Next

这种方法不需要依赖前缀匹配，只要列名里包含正确的月份数字，就能准确统计，容错性更强。

内容的提问来源于stack exchange，提问作者Intan Nur Shafienaz