Multi-Select ComboBox 设置 Selected 属性 True

Question

我想在Form_Load() 的多选组合框中从Persons_Form!ID 中选择ID。

下面的代码执行良好。消息框确实会弹出；p 但是该值始终为 false，并且即使将其设置为 True，也不会在组合框中选中复选框。

我的预期行为是在代码运行后对其进行检查，并在 MsgBox 中返回 True。为了获得预期的行为，我需要进行哪些更改？

Private Sub Form_Load()
    If ID.Value >= 0 Then
        Beep
    Else
        Beep
        With person
            .SetFocus
            For x = Abs(.ColumnHeads) To (.ListCount - 1)
                If (.ItemData(x) Like Forms!Persons_Form!ID.Value) Then
                    .Selected(x) = True
                    MsgBox (.Selected(x))
                End If
            Next
        End With
    End If
End Sub

Answer 1

抱歉，我还不能对我的低代表发表评论。但是对于 person 对象，.MultiSelect 属性显示了什么？如果它为零，则不能将多个选择设置为 true。

Answer 2

您必须解决问题。开始简单。工作起来。离开SetFocus，首先！

Private Sub Form_Load()
    person.Selected(1) = True
    MsgBox (person.Selected(1))
End Sub

另外，添加一个布尔变量。使用变量可以清除许多混乱。

Private Sub Form_Load()
    Dim booSelected As Boolean
    person.Selected(1) = True
    booSelected = person.Selected(1)
    MsgBox booSelected
End Sub

Answer 3

我想在我的计算机上复制该问题。 一旦我让它失败了，我就可以着手修复它。 我同意韦恩的观点，因为可能有一个

具有 ID 的 Persons_Form

还有一个

拥有 Form_Load 的我（表单），

哪个表格有人物组合框？和 那组组合在哪里填充？ 是什么触发了这个 Form_Load？ 这些东西从代码片段中并不明显， 你能发布一个可运行的片段吗？

我会使用 Northwind 来填充我的人物组合， 因此无需提供任何私人数据。 然而，很高兴知道 ID 中的模式类型 以及组合框中的 ItemData 类型。

tkx,

3/15 20:40 周六晚上 感谢您提高对该问题的了解。 现在我对表格有疑问，所以 请运行 DatabaseTools / Documenter /

on Tables:   Person  and Report
and set Include-for-fields to the last radio(all items)

and on Forms: "FormA"
and set Include-for-Sections-and-Controls  both Names&Properties

然后你可以把输出表信息 并且只是将“人”控制信息放入一个txt文件 并将其上传到某个地方 喜欢http://www.filedropper.com/free-file-hosting.php 并将生成的 url 放入 stackover next 评论中。

tkx