水贴，进来都有分拿

Question

表1： 客户 商品 价格
      A    GG   3
      A    KL   5
      B    LL   23
用combo1显示客户：
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("客户")
Adodc1.Recordset.MoveNext
Wend 
这时combo1里面应该显示 A，A，B。想要做到若选中A。combo2里面只显示 GG，KL。下面若选中GG 则text1.text显示3进来都给分，有答案就结贴。

Answer 1

认真看看Adodc的方法，然后就可以找出答案了。不过第一个功能应该是要修改adodc的查询语句(SQL)来完成吧，第二个功能其实则可以使用Adodc的方法可以找出来，也就是查找关键字的方法。家里没装VB所以只能凭空说了……汗

Answer 2

用SQL完全可以实现的
在使用SQL之前先对输入进行判断，然后再确定查询条件。

Answer 3

表1： 客户 商品 价格
      A    GG   3
      A    KL   5
      B    LL   23
用combo1显示客户：
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("客户")
Adodc1.Recordset.MoveNext
Wend 
=======================================================================
这时combo1里面应该显示 A，A，B。想要做到若选中A。combo2里面只显示 GG，KL。
"select 商品 from 表1 where 客户='" & combo1.text & "'"
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Combo2.AddItem Adodc1.Recordset.Fields("商品")
Adodc1.Recordset.MoveNext
Wend 下面若选中GG 则text1.text显示3
"select 价格 from 表1 where 商品='" & combo2.text & "'"
Adodc1.Recordset.MoveFirst
text1.text= Adodc1.Recordset.Fields("价格")

Answer 4

用combo1显示客户：
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("客户")
Adodc1.Recordset.MoveNext
Wend 
=======================================================================
这时combo1里面应该显示 A，A，B。想要做到若选中A。combo2里面只显示 GG，KL。
"select 商品 from 表1 where 客户='" & combo1.text & "'"
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Combo2.AddItem Adodc1.Recordset.Fields("商品")
Adodc1.Recordset.MoveNext
Wend 下面若选中GG 则text1.text显示3
"select 价格 from 表1 where 商品='" & combo2.text & "'"
Adodc1.Recordset.MoveFirst
text1.text= Adodc1.Recordset.Fields("价格")是不是和楼上的重复了,才看见,不好意思,你就照他学的就行了