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

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

1 个答案: