域值的替换

提示：Type mismatch 这个错误，代码如下请支出错误在哪

Set session = New Notes

Session        Set db = session.CurrentDatabase

Set view=db.getview("v_all_AutoSubmit")       

Set vc =view.GetfirstDocument               

While Not (vc Is Nothing )       

Set Status_Type = vc.ReplaceItemValue(Status_Type,"2")               

Set Status_Num = vc.ReplaceItemValue(Status_Num,"100")               

Set Status_ID = vc.ReplaceItemValue(Status_ID,"HJ_9B872C68F6DE43AE48257A8000055C98_1307427247580")               

Set Status = vc.ReplaceItemValue(Status,"完成")               

Call vc.Save(True,False)                       

Set vc=view.Getnextdocument(doc)       

Wend