怎么判断当前行有数据之后，在接下来的空白行自动填充内容呢？直到出现有数据行为止，其自动增加序号。（操作红色框中的效果部分，同时在序号列中实现顺序递增），麻烦老师们指导下 谢谢！

当前表图：

此主题相关图片如下：1.png

说明：当找到第一列袁0且第六列相等的时候  就自动将该序号定义为1

然后将袁0开始的行第一列 第三列  第四列数据  一直复制到张0的上一行

当找到第一列张0且第六列相等的时候  就将该行序号定义为1

如果已经是末尾行且末尾行没有其他数据  就一直将张0复制到末尾

然后将袁0开始的行第一列 第三列  第四列数据  一直复制到末尾行

最终实现效果如图：

此主题相关图片如下：2.png

列子：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

比如这样：

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

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

谢谢  有点蓝老师

Dim r0 As Row
Dim idx As Integer = 1
For Each r As Row In Tables("表A").Rows
    If r0 IsNot Nothing Then
        If r.IsNull("第一列") OrElse r0("第一列") = r("第一列")
            r("第一列") = r0("第一列")
            r("第三列") = r0("第三列")
        Else
            idx = 1
        End If
    End If
    r("序号") = idx
    idx += 1
    r0 = r
Next

如果我要反过来  将第一三四列内容都相同的行的列合并单元格  只显示一行怎么操作呢？

如

袁0  团员

袁0  团员

袁0  团员

三行都相同   那就把他们三行两列合并成一行

袁0  团员