以编程方式单击列表框中的一行

Question

当我单击命令按钮关闭表单时，代码重新查询 cbo 和列表框，将焦点移动到 lstbox 和特定行。我需要做的是添加一些代码 "clicks" 列表框中当前行的焦点。

这是我在点击事件上的代码。

If Forms![frmmain]![txtHidden] = "addok" Then
Forms![frmmain]![cboAuthor].Requery
Forms![frmmain]![LstAuthor].Requery
Forms![frmmain]![LstAuthor] = Me.AuthorID
Forms![frmmain]![txtHidden] = "AddDone"
DoCmd.Close acForm, "frmAddAuthorFly"
Forms![frmmain]![cboAuthor].Requery
Forms![frmmain]![LstAuthor].Requery
Forms![frmmain].[LstAuthor].SetFocus
<NEED TO INSERT SOMETHING HERE TO CLICK THE ROW"

Else
MsgBox "txt hidden is not addok"
DoCmd.Close acForm, "frmaddauthorfly"
End If

Answer 1

点击本身不执行任何操作，但您可能有一些运行的 OnClick 代码。为此，只需调用 OnClick 事件。

但是所有这些要求 - 实际上 "clicking" - 并不需要；似乎您需要重新考虑您的概念。

以编程方式单击列表框中的一行

Programatically click a row in a listbox

ms-access-2013