主题：有条件地重复输入上一行的数据

'增加一行空白行时,自动输入上一行的部分内容

If vars("add") = False Then Return

Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)

If idx > 0 Then

    e.DataRow("出入库单号") = Tables(e.DataTable.Name).Rows(idx - 1)("出入库单号")

End If

以上代码，我希望在上一行的“确认”一栏的复选框是打了勾的才复制"出入库单号"的数据，请问应该怎样写代码? 谢谢。