以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  审核计划  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65870)
--  作者：新航程小何
--  发布时间：2015/3/24 17:33:00
--  审核计划

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

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
--  作者：有点甜
--  发布时间：2015/3/25 9:34:00
--  
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