|
Dim Result As DialogResult
Dim t As Row = Tables("建园计划").current
If t IsNot Nothing Then'不是空行的情况下执行如下代码
If t.IsNull("审核人") = False Then
messagebox.show("该计划已审核!","提示")
ElseIf t.IsNull("审核人") Then
result= MessageBox.Show("计划是否通过审核?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.yes Then
t.locked = False
t("审核时间")=Date.today
t("审核人")=user.name
DataTables("建园计划").save
t.locked=True
End If
End If
Else
messagebox.show("暂无计划需要审核!","提示")
End If
|
加好友 
发短信
Post By：2015/3/25 9:34:00 [显示全部帖子]
