U8V10.1单据控件二开问题

hdf007

在做一个单据控件的例子的时候，遇到了一个很奇怪的问题。
单据控件加载是的【产成品入库单】，单据控件的下列事件的代码如下：
----在单据表头项目选择参照时触发，本例代码仅示例选择【部门】的参照，并返回【部门名称】
Private Sub ctlVoucher1_headBrowUser(ByVal Index As Variant, sRet As Variant, referPara As UAPVoucherControl85.ReferParameter)
    referPara.id = "Department_AA"
    referPara.CellCheckStatus = CCS_LostFocus
    referPara.bValid = True
    referPara.Cancel = False
    referPara.RetField = "cDepName"
End Sub
----在焦点离开表头项目的时候触发数据合法性检查
Private Sub ctlVoucher1_headCellCheck(Index As Variant, RetValue As String, bchanged As UAPVoucherControl85.CheckRet, referPara As UAPVoucherControl85.ReferParameter)
    MsgBox "ASDAS1"
End Sub


现在的问题是：ctlVoucher1_headCellCheck事件触发不了，啥反映都没有。这是什么情况？哪个高手碰到过这样的问题？请教了，谢谢！！！