ms-access - 在 Access 2010 中动态创建下拉列表作为值列表

Question

我一直在尝试使用以下代码创建一个下拉列表：

Private Sub Form_Load()
    Me.FNMARemittanceType.RowSourceType = "Value List"

    If Not Me.InvestorName = "Freddie Mac" Then        
        Form_frmPatronInvestorGroupDetails.FNMARemittanceType.RowSource = "Actual/Actual; Scheduled/Scheduled"
    Else
        Form_frmPatronInvestorGroupDetails.FNMARemittanceType.RowSource = "Gold; First Tuesday"
    End If
End Sub`

我没有收到任何错误，但我的下拉列表没有填充，我不太确定为什么。

Answer 1

您正在尝试的内容非常合乎逻辑，但您需要使用组合框的 AddItem 方法。

Private Sub Form_Load()
    Me.FNMARemittanceType.RowSourceType = "Value List"

    If Not Me.InvestorName = "Freddie Mac" Then        
        Form_frmPatronInvestorGroupDetails.FNMARemittanceType.AddItem("Actual/Actual")
        Form_frmPatronInvestorGroupDetails.FNMARemittanceType.AddItem("Scheduled/Scheduled")
    Else
        Form_frmPatronInvestorGroupDetails.FNMARemittanceType.AddItem("Gold")
        Form_frmPatronInvestorGroupDetails.FNMARemittanceType.AddItem("First Tuesday")
    End If
End Sub