编程论坛 → VB6论坛

请教两个关于组合框控件使用的问题。

chengyqvf 发布于 2016-04-06 11:45， 2039 次点击

我现在手上有一个表dw，里面包含的字段是：单位类别，单位名称，以及其他一些。我在一个表单上建立了一个组合框，把它的rousourcetpye设置为字段，把rowsource设置为dw.单位类别。
现在的问题是，有很多个单位他们的单位类别都是一样的，比如说是“私企”。那么怎么才能在按下下拉箭头的时候把重复的内容隐藏了呢？
第二个问题是，我同时建立了另外一个组合框，把它的rousourcetpye设置为字段，把rowsource设置为dw.单位名称。怎么才能实现在第一个组合框选择了相应的字段后，第二个组合框只出现对应的字段，而不出现多余的字段呢？比如，我在第一个组合框内选择了“私企”，那么第二个组合框里面所有和“私企”不一样的都隐藏掉。
多谢。

3 回复

#2

chen35232016-04-06 17:20

我用SQL查询
一、显示“企业名称”列。
二、解决了问题一，这里同样方式处理。

#3

chengyqvf2016-04-07 15:07

以下是引用chen3523在2016-4-6 17:20:09的发言：

我用SQL查询
一、显示“企业名称”列。
二、解决了问题一，这里同样方式处理。

你好。在使用SQL语句的时候，系统说是thisform只能在方法中使用。请问该怎么办？

#4

chen35232016-04-07 21:13

我使用过的语句，全部贴出来。对应你第二个问题，我使用了Combo和DataCombo控件
Private Sub Combo1_LostFocus()
S = App.Path & "\gathering.mdb"
  Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + S + Chr(34) & ";Jet OLEDB:Database Password=chen3523;"  '打开有密码数据库，密码为“chen3523”

       SQL = "SELECT 项目名称 from 项目名表 where 项目属市 = " & _
            Chr(34) + Trim$(Combo1.Text) + Chr(34)

       = adCmdunknow
        Adodc5.RecordSource = SQL
        Adodc5.Refresh
       Set DataCombo1.RowSource = Adodc5
       DataCombo1.ListField = "项目名称"
End Sub
第一个问题把Trim$(Combo1.Text)修改就成了。
我的问题复杂所以用了很多Adodc控件。

1