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

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

当前表图：

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

 

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

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

 

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

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

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

 

最终实现效果如图：

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

 

列子：

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

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

还是不大明白老师的意思

比如找到张0的第一行  接下来后几空行 一直到末尾  

第一列的张0只会出现第一行哦  接下来的2345…行都是没有的  有可能第7行第一列会出现别的王0  想实现张0出现的第一行  一直到王0出现的第一行之间  都将第一三四列的内容赋值和张0出现的第一行的第一三四列内容

谢谢  有点蓝老师

 

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  团员

老师  试了一下 貌似还是没有理解老师的方法

 

当前代码如下：【运行没有得到想要的效果】

Dim r0 As Row
If DataTables("在职及亲属").DataRows.Count = 0 Then
    Return "" '返回
End If
Dim ColNames As String() = {"姓名","职务","政治面貌","身份证号码"}
Dim drs As List(Of DataRow)
drs = DataTables("在职及亲属").Select("身份证号码 = '" & r0("身份证号码") & " '","序号 DESC")
For Each r As DataRow In drs
    For Each ColName As String In ColNames
        If r0 IsNot Nothing Then
            If r0("身份证号码") = r("身份证号码")
                'r(ColName) = r0(ColName)
            'Else
                r(ColName) =Nothing
            End If
        End If
    Next
Next

With Tables("在职及亲属")
    .MergeMode = MergeModeEnum.Standard '标准合并模式
    .MergeCols.Clear() '清除原来的合并列
    .MergeCols.Add("姓名") '加入要合并的列
    .MergeCols.Add("职务")
    .MergeCols.Add("政治面貌")
    .MergeCols.Add("身份证号码")
    .AllowMerge = true'启用合并模式
End With

 

 

经过合并模式操作后将这个表导出为excel

 

又要将这个excel导入项目表中时，怎么将合并列全部取消  根据对应的序号值  拆分成对应的行  并且每一行 姓名  职务  政治面貌  身份证号码都一样的值呢？

还得麻烦老师   我貌似思路不对  麻烦老师继续指导下 谢谢！

 

直接将ecexl表中对应行空值的列  对应全部赋值上第一行对应的列值

 

Dim Book As New XLS.Book("d:\在职及亲属.xlsx")
Dim count As Integer
Dim count1 As Integer
Dim Sheet As XLS.Sheet = Book.Sheets(0)
count =Sheet.Rows.Count
count1 =Sheet.Cols.Count

Dim r0 As Row
Dim idx As Integer = 1
For Each r As Row In Book.Sheets(0).Rows
    For i As Integer = 0 To Sheet.Rows.Count -1
        If r0 IsNot Nothing Then
            If r(i).IsNull("第一列") OrElse r0("第一列") = r(i)("第一列")
                r(i)("第一列") = r0("第一列")
                r(i)("第三列") = r0("第三列")
            Else
                idx = 1
            End If
        End If
        r(i)("序号") = idx
        idx += 1
        r0 = r
    Next
Next