Do While Loop没有给我正确的输出字符串

Question

我正在尝试将名称列表分配给Access VBA中的组合框控件.

我的问题是名称的输出字符串不正确.

这是我的代码:

Private Sub command186_click()
    Dim firstName As String
    Dim lastName As String
    Dim rst As Object
    Dim rowSourceText As String
    Dim fullName As String

    Set rst = CurrentDb.OpenRecordset("Pool_Contact")

    Do While Not rst.EOF
        firstName = rst("FName").Value
        lastName = rst("LName").Value
        fullName = firstName + " " + lastName
        rst.MoveNext
    Loop

    Forms(FrmDaysAvailable).Controls("Combo202").rowSource = fullName
    Debug.Print fullName
End Sub

我知道错误在我的循环内部,其中变量fullName由第二个结果写入.

如何修复此循环以生成一个看起来像fullName,fullName,fullName的字符串...

感谢你的帮助

Answer 1

这可以简单得多:

 Forms(FrmDaysAvailable).Controls("Combo202").rowSource = _
           "SELECT ID, FName & ' ' & LName FROM Pool_Contact"

要么

Forms!FrmDaysAvailable.Combo202.rowSource = _
           "SELECT ID, FName & ' ' & LName FROM Pool_Contact"

要么

Me.Combo202.rowSource = "SELECT ID, FName & ' ' & LName FROM Pool_Contact"

此外,使用&而不是+来连接.加号(+)将为您提供空值问题.