单据控件二开时参照的问题

hdf007

有个问题要请教一下了
在用单据控件做二开，表头参照的时候怎么过滤参照数据？比如说参照部门的时候，我想只显示部门编码为【0301】的部门，按Edit控件上的例子设置ReferPara.sXMLFilterPara的属性值没有作用，是不是我写错了？
代码如下：

Private Sub ctlVoucher1_headBrowUser(ByVal Index As Variant, sRet As Variant, referPara As UAPVoucherControl85.ReferParameter)
     Select Case Trim(ctlVoucher1.ItemState(Index, 0).sCardItemName)
           Case "销售部门"
                 Dim sXMLFilter   As String
                 referPara.id = "Department_AA"
                 referPara.AutoDisplayText = True
                 referPara.CellCheckStatus = CCS_AfterBrowse
                 referPara.bValid = True
                 sXMLFilter = "<RefConditions>"
                 sXMLFilter = sXMLFilter + "<Condition paramName='@cdepcode' paramValue='0301' />"
                 sXMLFilter = sXMLFilter + "</RefConditions>"
                 referPara.MultiSelect = "2"
                 referPara.RetField = "cDepName"
                 referPara.sXMLFilterPara = sXMLFilter
      End Select
End Sub

为什么呢？

hdf007

自己顶一下，请高手出马