获取选中值_Access控件解析——获取选项

功能动图

静图

Part 2：代码

控件关联代码

Private Sub 获取姓名信息_Click() frmName = Me.Name ctrlName = "List0" colNum = 1 x = 获取列表框选项(frmName, ctrlName, colNum) MsgBox "选择姓名为：" & xEnd Sub

核心函数：获取不同列，改变colNum值即可

Function 获取列表框选项(frmName, ctrlName, colNum)  Rem>>  Dim frm  Dim ctrl  Dim chooseRow  Set frm = Forms(frmName)  Set ctrl = frm.Controls(ctrlName) chooseRow = ctrl.ListIndex 'listIndex 计数不包括标题行 'ListBox.Column(Index, Row)，Index表示列信息，Row表示行信息，都是从0开始 If chooseRow >= 0 Then 获取列表框选项 = ctrl.Column(colNum - 1, chooseRow + 1)  Else 获取列表框选项 = "未选中" End IfEnd Function

代码截图