[5分]如何设置组合框的默认值？

多谢麦田老师！我这样写了，还是不行，窗体加载以后，组合框里没东西，而且点击下拉按钮也没东西了！如果改成Item(1)或(2)，就能正常加载组合框，但初始显示还是空的。这是怎么回事呢？

Private Sub Form_Load()
    With cboAccounts
        .RowSource = ""
        .ColumnCount = 2
        .RowSourceType = "Value List"
        .LimitToList = True
        .BoundColumn = 0
        .AddItem "A部门;A经理"
        .AddItem "B部门;B经理"
        .AddItem "C部门;C经理"
    End With
    Me.cboAccounts = Me.[cboAccounts].[ItemData](0)
示例我下载了，可是里面好像没有加载的代码？

Option Compare Database

'示例作者：Accessoft-麥田
'技术站点：http://www.accessoft.com
'公司站点：http://www.umvps.com
'日期：2011-01-26




'----------------------------------------------------------------------------------
'实现功能的主要代码如下------------------------------------------------------------

Private Sub CmdRefresh_Click()
    Me.Combo0 = Me.[Combo0].[ItemData](0)
    Me.Combo1 = Me.[Combo1].[ItemData](1)
    Me.Combo2 = Me.[Combo2].[ItemData](2)
    Me.Combo3 = Me.[Combo3].[ItemData](3)
    Me.Combo4 = Me.[Combo4].[ItemData](4)
    Me.Combo5 = Me.[Combo5].[ItemData](5)
End Sub

我加了一个按钮，刷新组合框用，当窗体加载后，组合框是空的，我马上点一下按钮，再看组合框的下拉内容，已经都没有了，和上面窗体加载时直接Me.Combo0 = Me.[Combo0].[ItemData](0)效果相同！

Private Sub Command7_Click()
    Me.cboAccounts = Me.[cboAccounts].[ItemData](0)

End Sub

Private Sub Form_Load()
    With cboAccounts
        .RowSource = ""
        .ColumnCount = 2
        .RowSourceType = "Value List"
        .LimitToList = True
        .BoundColumn = 0
        .AddItem "A部门;A经理"
        .AddItem "B部门;B经理"
        .AddItem "C部门;C经理"
    End With
'    Me.cboAccounts = Me.[cboAccounts].[ItemData](0)

哦，明白了，您的示例是用设计界面设置的组合框，不用代码。