KIS插件开发的一个问题

开发环境：KIS专业版+VB6

问题：KISBillTransfer.Bill的EndHeadLookUp方法取值

分析：

 

 Private Sub m_BillTransfer_EndHeadLookUp(ByVal CtlIndex As Long, ByVal nLookUpClsID As Long)
2   '单据头选择项目后触发的事件
3   'CtlIndex为单据头字段的索引值,nLookUpClsID为核算项目的类ID
4   If CtlIndex = 1 Then
5     sSupplierNo = m_BillTransfer.GetHeadText(CtlIndex)
6   End If
7 End Sub

 

 

 

如果单据头字段的代码第一个字符有0，不会显示出来，比如上面代码取供应商的代码，如果供应商的代码是01.101，取出来的值为1.101

不知道Kingdee为什么没注意到这点。