主题：取消清空当前行按钮代码怎么写?

此主题相关图片如下：1.png

有两个按钮代码请指导

取消清空当前行按钮代码怎么写?

类似表里快捷键ctrl+D复制上一行当前列内容代码?

老师帮我看下哪里不对,我想做成复制上一行当前列内容的按键

Dim t As Table =Tables("生产日报表")
Dim r As Row = t.Current
Dim c As Col = t.Cols(t.Colsel)
If r.index > 0 Then
    Dim pr As Row = r.Table.rows(r.index-1)
    If c.DataCol.Expression = "" Then   这里不懂
    r(c.name) = pr(c.name)
     End If
Else
    MessageBox.Show("此行是第一行")
End If

也就是光标移动到窗口的文本框的所在列

按下"复制上一行"按钮复制上一行内容