主题：怎么判断当前行有数据之后，在接下来的空白行自动填充内容呢？直到出现有数据行为止，其自动增加序号。

比如这样：

If e.DataCol.Name = "第六列" Then '如果更改的是第六列列
    If e.DataRow.IsNull("第六列") Then '第六列是否为空
        e.DataRow("第三列") = Nothing '如果为空,则清除出生日期
        e.DataRow("第四列") = Nothing '如果为空,则清除出生日期
        e.DataRow("序号") = Nothing '如果为空,则清除出生日期
    Else
        e.DataRow("第三列") = "团员"  '"党员"
        e.DataRow("第四列") = "52272519950623"
        e.DataRow("序号") = e.DataTable.Compute("max(序号)") +1
        e.DataRow.Save
    End If
End If

最好把列名写清楚，逻辑写清楚，

1、第一行直接用find就行了，find默认就是找到的第一行，就没必要用循环了吧

2、你要输入哪一列数据，那几列需要自动填充出来？

试试这样是不是你要的效果

If e.DataCol.Name = "第一列" Then
    If e.DataRow.IsNull("第一列") Then
        e.DataRow("第三列") = Nothing
        e.DataRow("第四列") = Nothing
        e.DataRow("序号") = Nothing
    Else
        Dim dr As DataRow = e.DataTable.Find("第一列 = '" & e.DataRow("第一列") & "'")
        If dr IsNot Nothing Then
            e.DataRow("第三列") = dr("第三列")
            e.DataRow("第四列") = dr("第四列")
            e.DataRow("序号") = e.DataTable.Compute("max(序号)","第一列 = '" & dr("第一列") & "'") + 1
            e.DataRow.Save
        Else
            e.DataRow("序号") = 1
        End If
    End If
End If

你试试版主给你的，就是这样的