[求助]第一列空白行的行数自动录入
第一列
第1行 合格
第2行 1 第一列空白行的行数自动录入1（累计连续空白行数）
第3行 合格
第4行 2 第一列空白行的行数自动录入2（累计连续空白行数）
第5行 2 第一列空白行的行数自动录入2（累计连续空白行数）
第6行 合格
第7行 3 第一列空白行的行数自动录入（累计连续空白行数）
第8行 3 第一列空白行的行数自动录入（累计连续空白行数）
第9行 3 第一列空白行的行数自动录入（累计连续空白行数）
第10行 合格
第11行 1 第一列空白行的行数自动录入（累计连续空白行数）
下面代码求助，修改实现上面功能
Dim dt As DataTable '定义一个数据表变量
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "第一列"
If dr("第一列") <> "合格" Then
For i As Integer = 0 To dt.DataRows.Count
If dr(i)("第一列") <> Nothing Then
Dim a As Integer = 0
Dim c As Integer = 1
For j As Integer = a To i - 1
dr(j)("第一列") = c
Next
s = dr(i)("第一列")
a = i
c = 1
Else
c += 1
End If
Next
End If
End Select
[此贴子已经被作者于2023/5/4 0:00:12编辑过]
加好友 
发短信
Post By：2023/5/3 23:46:00 [显示全部帖子]
此主题相关图片如下：自动生成黄色的值有误，右边绿色值才对.png
