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

清空当前行

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

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