主题：在中间任何一个位置输入文字，如果前面是空的会自动把上行的内容填写下来

changeEdit事件

If e.Row.Index > 0 Then
    For i As Integer = 0 To e.Col.Index
        If e.Row(i) = Nothing Then
            e.Row(i) = e.Table.Rows(e.Row.Index-1)(i)
        End If
    Next
End If

If e.Row.Index > 0 Then
    For i As Integer = 0 To e.table.cols("第三列").index
        If e.Row(i) = Nothing Then
            e.Row(i) = e.Table.Rows(e.Row.Index-1)(i)
        End If
    Next
End If