comb1条目为收入、支出，如何下拉comb1条目为“收入”时，comb2为收入、收入2，下拉comb1条目为“支出”时，comb2为支出1、支出2？ - 编程论坛

#2

我可不是大神2014-12-09 12:25

回复楼主 lijun337

爱慕能助，没电脑在身边，虽然有点头绪

#3

风吹过b2014-12-09 12:51

Private Sub Combo1_Click()
'方法一
'If Combo1.Text <> "" Then
'    If Combo1.Text = "收入" Then
'        Combo2.Clear
'        Combo2.AddItem "收入1"
'        Combo2.AddItem "收入2"
'    Else
'        Combo2.Clear
'        Combo2.AddItem "支出1"
'        Combo2.AddItem "支出2"
'    End If
'End If

'方法二
If Combo1.Text <> "" Then
    Combo2.Clear
    Combo2.AddItem Combo1.Text & "1"
    Combo2.AddItem Combo1.Text & "2"
End If
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "收入"
Combo1.AddItem "支出"
End Sub

基础程序，关键是你自己要琢磨。这个程序没什么好解释的。

#4

lijun3372014-12-10 15:05

试了，没有反应，没有按照预计结果列示

我的Combo1、2的list里面已经分别有：
Combo1.list:
收入、支出（Combo1）、

Combo2.list:
收入1、支出1（Combo2）、收入2、支出2（Combo2）

#5

lijun3372014-12-10 15:29

Private Sub Combo1_Click()
If Combo1.Text = "收入" Then
Combo2.Clear
Combo2.AddItem "收入1"
Combo2.AddItem "收入2"
Combo2.Text = Combo2.List(0)
Else
Combo2.Clear
'    Combo1.Text = "支出"
'        Combo2.AddItem "支出1"
'        Combo2.AddItem "支出2"

End If
，执行后，“收入”有正常结果输出，“支出”到了“Combo2.Clear”后，没有继续了

#6

lijun3372014-12-10 15:37

哦！

多出了：“‘”冒号！

怪不得！！！

得到正解了！

#7

lijun3372014-12-11 16:45

制作了一个：db01.mdb,（因为很久以前做过这类的数据小软件，把那里的代码、数据表复制过来改了下）

复制粘贴了如下代码：
Option Explicit

Private conn As ADODB.Connection

Private Rst As New ADODB.Recordset

执行时，出现：

编译错误：

用户类型未定义

#8

lijun3372014-12-12 10:55

解决了！

工程-》引用-》Microsoft ActiveX Data Object Library 6.0