主题：[求助]列新增数据时录入在已存在行的空白单元格里

列：横向列名汇总 新增数据时不想新增行，想实现录入在已存的空白单元格里，下面代码怎么实现？ 求助

Select Case e.DataCol.name
    Case "参照"
        If e.DataRow.IsNull("参照") = False Then
            Dim fdr As DataRow = DataTables("表A").Find("横向列名汇总 = '" & e.DataRow("参照") & "' ")
            If fdr Is Nothing Then
                Dim ndr As DataRow = DataTables("表A").addnew
                ndr("横向列名汇总") = e.DataRow("参照")
            End If
        End If
End Select

代码没有问题，只是信息量太少，看不出想要做什么

 表A 列：横向列名汇总 已存在10行空白的，假如新增小于10个值，就不用新增行录入；假如超过10个值要录入，再新增行录入

还是没看懂，截图或者举例说明

如下图，空白的10个单元格，先录入

超过10个值要录入才新增行

 

此主题相关图片如下：空白的10行先录入.jpg

Select Case e.DataCol.name
    Case "参照"
        If e.DataRow.IsNull("参照") = False Then
            Dim fdr As DataRow = DataTables("表A").Find("横向列名汇总 is null ")
            If fdr Is Nothing Then
                fdr = DataTables("表A").addnew
            End If
                fdr ("横向列名汇总") = e.DataRow("参照")
        End If
End Select

 如果只是窗口筛选出的行，不是整个数据表DataTable，上楼代码怎么修改呢？