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

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

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

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