Access平台开发人员帮助 > 通用函数库 > 按功能 > 控件相关

函数说明

该函数可以根据列表项的值，找到先出现的列表索引值。

注意：如果存在相同的列表项是，得到的索引值的先出现那个。

函数原型

Public Function gf_GetIndexByList(lst As ListBox, strValue As String, Optional intCol As Integer = 0) As Integer

语法

gf_GetIndexByList(lst, strValue [, intCol])

参考：gf_GetIndexByList(Me.lstTest, "张三") '查找窗体上的lstTest控件， ‘张三’对应的索引值

参数

参数名	必需/可选	数据类型	参数说明
lst	必需	ListBox	要查找的值所在的列表框
strValue	必需	String	要查找的值
intCol	可选	Integer	查找第几列，默认是0，即为第一列

返回值

返回一个整型(Integer)的值。若没有找到对应的索引值，则返回-1。

示例

Sub subTest()

Dim intIndex As Integer '定义整型变量，用于接收函数返回结果

intIndex = gf_GetIndexByList(Me.lstTest, "张三", 1) '在列表框lstTest的第二列上查找值为"张三"的索引值

If intIndex = -1 Then '判断是否能找到对应的索引值

Msgbox "找不到张三的相关信息"

Else

Msgbox "张三对应的索引值为" & intIndex

End If

End Sub

ListBox列表框根据值返回索引（gf_GetIndexByList函数）