计数columnName startwith特定值

时间:2018-04-19 10:06:27

标签: vb.net export-to-excel

ldtData.Columns.IndexOf("1-")

如果我想从'1-''2-''3-' '12-'开始选择columnName,这是否正确?

顺便说一下,如何计算以'1-''2-''3-'开始的列?'12-'

enter image description here

上面的图片显示了SQL结果。 1月为'1-',2月为'2-'。我应该使用什么密钥/方法来计算和区分columnName。

1 个答案:

答案 0 :(得分:0)

我得到了解决方案。

Dim liTotal(ldtData.Columns.Count - 1) As Integer
Dim cnt1, cnt2, cnt3, cnt4, cnt5, cnt6, cnt7, cnt8, cnt9, cnt10, cnt11, cnt12 As Integer
'Count row by month to set as colspan
For col As Integer = 4 To ldtData.Columns.Count - 1
If ldtData.Columns(col).ColumnName.Substring(0, 1) = "1" Then
cnt1 = cnt1 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "2" Then
cnt2 = cnt2 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "3" Then
cnt3 = cnt3 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "4" Then
cnt4 = cnt4 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "5" Then
cnt5 = cnt5 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "6" Then
cnt6 = cnt6 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "7" Then
cnt7 = cnt7 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "8" Then
cnt8 = cnt8 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 1) = "9" Then
cnt9 = cnt9 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 2) = "10" Then
cnt10 = cnt10 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 2) = "11" Then
cnt11 = cnt11 + 1
ElseIf ldtData.Columns(col).ColumnName.Substring(0, 2) = "12" Then
cnt12 = cnt12 + 1
End If
Next

方式是我宣布月份的所有计数(cnt1,cnt2,...)。然后,我会循环并计算每个月,如果数据找到" 1"然后它将在我的表中计为cnt1(Jan)。