设定一个这样的表，

然后

第四列的代码

DataColChanged

If e.DataCol.Name = "第四列" Then
    Dim drs As List(Of DataRow) = e.DataTable.Select("[_SortKey] > -1", "[_SortKey]")
    For n As Integer = 0 To drs.Count - 1 \'遍历所有行
        If drs(n).Isnull("第一列")  Then
            drs(n)("第一列") = drs(n-1)("第一列")
        Else
            Return
        End If
    Next
End If

此主题相关图片如下：13.jpg

这样的代码也不行：

Select Case e.DataCol.Name
    Case "第四列"
        Dim p1 As Row
        Dim p2 As Row
        For i As Integer = 1  To Tables("表A").Rows.Count -1
            p2 = Tables("表A").Rows(i)
            p1 = Tables("表A").Rows(i-1)
           
            If p2("第一列") Is Nothing Then
                p2("第一列")=p1("第一列")
            End If
        Next
End Select