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

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

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