新手上路，請幫忙～～

Case "人事專員審核"
NextUser = Mdoc.WM_RealApplierID(0)  '申請人工號
NextDept = Mdoc.WM_RealApplierDept(0) '申請人部門

HRBoss_data=GetOneUserManager(Mdoc.WM_ApplierDept(0), word(Mdoc.WM_ApplierData,"^",1))
Mdoc.BossDept=HRBoss_data   '得到人事專員的部門主管

If Trim(NextDept) = "" Or Trim(NextDept) = "." Then
user_data=GetUserDataByID(CanName(NextUser))
user_data=Split(user_data(0),"‧")
NextDept=Trim(user_data(0))
End If
boss_data = GetOneUserManager(NextDept, NextUser )

If boss_data = "" Then
Errormsg = "找不到任何和" + mdoc.wm_CurrentUserDept(0)+"."+mdoc.WM_CurrentUserName(0) +" 相關的主管,請通知系統管理員"
Goto ccexits
Else
NextUser = CanName(Middle(boss_data,"(",")"))
NextDept = word(boss_data,"‧",1)
NextDesc = "異動前主管核決"
End If

Case "異動前主管核決"  
If Mdoc.OrgBef="" Then
boss_data = Mdoc.BossDept(0)
user_data=GetUserDataByID(user_id(0))
user_data=Split(user_data(0),"‧")
If boss_data= "" Then
Errormsg="主管資料未設定,請聯繫系統管理員!"
Goto ccexits
Else
NextUser = CanName(Middle(boss_data,"(",")"))
NextDept = word(boss_data,"‧",1)
NextDesc = "人資主管核決"
End If
Else
NextDept = Mdoc.OrgAft(0)
If Trim(NextDept) = "" Or Trim(NextDept) = "." Then
user_data=GetDeptBossDataByDept(NextDept)
user_data=Split(user_data(0),"‧")
NextDept=Trim(user_data(0))
End If
boss_data = user_data
If boss_data = "" Then
Errormsg = "找不到任何和" + mdoc.wm_CurrentUserDept(0)+"."+mdoc.WM_CurrentUserName(0) +" 相關的主管,請通知系統管理員"
Goto ccexits
Else
NextUser = CanName(Middle(boss_data,"(",")"))
NextDept = word(boss_data,"‧",1)
NextDesc = "異動后主管核決"
End If


End If



--------////////////////////----------
上面一段代易做图是：
人事專員“APPROVE”之后，由申請人(異動人員)主管簽核。但是流程跑不下去？？？？ --------------------编程问答-------------------- 流程问题在这问估计没人帮的上你，需要提高提问的技巧 --------------------编程问答-------------------- 實在沒辦法，不會寫啊～～～
老板催著要交差

补充：企业软件 ,  Lotus