Private Sub m_BillInterface_BeforeSave(bCancel As Boolean)　　　　　　//触发事件，在单据保存前
 Dim z As String　　　　　　　　　　　　　　
     
     z = m_BillInterface.GetFieldValue("FText1")　　　　　　　　　　　　//定义变量  获取文本1的内容
    
    If (z <> "222") Then　　　　　　　　　　　　　　　　　　　　　　　　　　//如果文本1的内容不等于“222”，

    MsgBox "错误"　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　//提示错误，设置这一句的意思是：假如这句代码出现错误，我要判断代码有没有执行到这里


    bCancel = True　　　　　　　　　　　　　　　　　　　　　　　　　　　　　//bCancel(是本事件的参数)默认为false,当为True时，则拒绝保存   
    
    Else
    MsgBox "haha"
    End If
End Sub