流程环节的自动提交

抓不到你的重点， 给一段代码你参考。

Do   

Seq = Seq + 1

   If Seq>=Val(doc.TotalApp(0)) Then

     If doc.SubForm(0))=\"XXXXXXXXX\" Then

    ‘handle something     

     End If                          

doc.Status   = \"Approved\"

     CurrApprover = \"\"

     Exit Do   

Else      

doc.Status   = \"Waiting for Approval\"

     CurrApprover = doc.GetFirstItem(\"Approver_\" & Seq).Values

     If CurrApprover(0)=\"\" Then        

If doc.GetFirstItem(\"AllowS_\" & Cstr(Seq)).Values(0)=\"No\" Then

         Exit Sub        End If        Call doc.ReplaceItemValue(\"Status_\" & Seq, \"Skipped\")

     Else        

Redim arrTemp(Ubound(CurrApprover)) As String        

Forall o In arrTemp           o = \"Waiting for Approval\"        

End Forall        

Call doc.ReplaceItemValue(\"Status_\" & Seq, arrTemp)

Call doc.ReplaceItemValue(\"Date_\" & Seq, \"\")           

Call doc.Save(True, False)      

End If                  

End If   

Loop Until CurrApprover(0)<>\"\"