添加内容之后,下拉菜单怎么更新啊?现在我只有在代码里面重新把下拉菜单重新设置一遍,可是这样,每次添加之后,下拉菜单的相同内容就成倍的增加了 － －
还有就是如何让其中一个下拉菜单限制另一个下拉菜单的内容。
比如Combo1有：a,b,c三个内容；Combo2有：1,2,3三个内容。
我想当Combo1内容为：a的时候，Combo2只能有1,3两个内容显示，或者根本就不显示，应该怎么写代码啊？

怎么设置？Combo1 = True ?
不行啊。。而且，他本来不就是True的吗？

。。。上面那个是我的笔误。。。
Combo1.Visible = True 吗？
这个不行啊。。。

怎么个重新绑定法？

重新读一次。。那就和我之前用的一样了啊。。
每重读一次之后，下拉菜单内容就翻一倍。。。。。－ －
以前是a，添加b之后就变成a,a,b。。再添加c之后就变成了a,a,a,b,b,c........－ －

怎么会重复。。你问我我怎么知道啊。。
但事实就是像我说的那样啊。。我也想不通啊。。。。。。

Private Sub FindFormInit()
Adodc1.ConnectionString = connstring

'combo1设置-----------------------------------
strsql = "select 略。。。。"
Adodc1.RecordSource = strsql
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
Combo1(0).AddItem Adodc1.Recordset.Fields(0)
Combo1(12).AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop
Else
' MsgBox "", vbCritical
End If

（中间还有很多。。省略了吧。。。）

strsql = "select 略。。。"
Adodc1.RecordSource = strsql
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
Combo1(1).AddItem Adodc1.Recordset.Fields(0)
Combo1(13).AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop
Else
' MsgBox "", vbCritical
Exit sub
End If
End sub

'添加按钮设置-----------------------------------
Adodc1.ConnectionString = connstring
strsql = "SELECT 略。。。"
Adodc1.RecordSource = strsql
Adodc1.Refresh
Adodc1.Recordset.AddNew
For i = 0 To 10
Adodc1.Recordset.Fields(i) = Text1(i).Text
Next i
Adodc1.Recordset.Update

'我是这样更新的：（其实就是把下拉菜单代码又写了一遍。。。OTZ......）
Adodc1.ConnectionString = connstring
strsql = "select 略。。。"
Adodc1.RecordSource = strsql
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
Combo1(0).AddItem Adodc1.Recordset.Fields(0)
Combo1(12).AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop
Else
' MsgBox "", vbCritical
End If
'后面的。。。略了吧。。。
End sub

啊，大哥。。原来是这样的啊，可以了。。。没有出现n多个相同dd了。。。。
我~~~爱你~~~~啊~~~~~~~~~