主题：审核计划

我想实现审核计划的功能，于是写了如下代码，我想实现的效果是，点击“审核计划”的时候，如果，审核人，那一列是空的，则提醒“是否审核计划？”，确认之后便会在“审核时间”和“
审核人”列分别填上默认时间和系统用户名称，如果不是空的，则显示该计划已审核。具体代码如下，运行时使用提示“该计划已审核”

Dim Result As DialogResult
If CurrentTable.Position > = 0 Then'不是空行的情况下执行如下代码
    Tables("建园计划").current.locked=False
    Dim t As Row = Tables("建园计划").current
    If t("审核人") IsNot Nothing Then
        messagebox.show("该计划已审核!","提示")   
    ElseIf t("审核时间") Is Nothing Then
        result= MessageBox.Show("计划是否通过审核?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.yes Then
            t("审核时间")=Date.today
            t("审核人")=user.name
            DataTables("建园计划").save
            Tables("建园计划").current.locked=True
        Else
            Tables("建园计划").current.locked=True
        End If
    End If
Else
    messagebox.show("暂无计划需要审核!","提示")
End If