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

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

有两个按钮代码请指导

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

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

清空当前行

Dim r As Row = Tables("表a").Current
For Each c As Col In r.Table.cols
    If c.DataCol.Expression = "" Then
        r(c.name) = Nothing
    End If
Next

复制上一行

Dim r As Row = Tables("表a").Current
If r.index > 0 Then
    Dim pr As Row = r.Table.rows(r.index-1)
    For Each c As Col In r.Table.cols
        If c.DataCol.Expression = "" Then
            r(c.name) = pr(c.name)
        End If
    Next
Else
    msgbox("此行是第一行")
End If

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

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

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

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

1、你要在所有文本框控件的enter事件写入

vars("列名") = e.Sender.BindingField

2、按钮代码

Dim t As Table = Tables("生产日报表")
Dim r As Row = t.Current
Dim c As Col = t.Cols(vars("列名").Split(".")(1))
If r.index > 0 Then
    Dim pr As Row = r.Table.rows(r.index-1)
   
    r(c.name) = pr(c.name)
Else
    MessageBox.Show("此行是第一行")
End If