VB UBound()方法

数组的上边界...

例如

Dim aa,bb
aa=Array("1","2","3","4")
bb=Ubound(aa)

bb的值就应该是3了...

也就是Ubound(aa)应该等于数组aa的长度-1

Public Function GetOldBillHeadCtlIdx(interface As Object, fieldname As String) As Long
Dim tmp As Variant
Dim i As Long
    tmp = interface.HeadCtl
    For i = 0 To UBound(tmp)
        If UCase(tmp(i).fieldname) = UCase(fieldname) Or UCase(tmp(i).caption) = UCase(fieldname) Then
            GetOldBillHeadCtlIdx = i
            Exit Function
        End If
    Next
    GetOldBillHeadCtlIdx = -1
End Function