Question

请教高手：vb中，根据下拉列表框（combo1）选择的内容，检索数据库中字段（字段名=combo1的选择项），并把

Option Explicit

'定义全局变量
Dim gSet As New ADODB.Recordset '存储记录集
Dim gConn As New ADODB.Connection '存储本窗体用的数据库连接

Private Sub Combo1_Change()

Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\windows\zhushuju.mdb"

Dim strSql As String
strSql = "select * from 染料" 'SQL查询语句
gSet.CursorType = adOpenDynamic
gSet.LockType = adLockBatchOptimistic
gSet.Open strSql, gConn '使用 Open 方法打开数据库中的一个表

'遍历记录集

Dim n As Integer
n = 0
Do Until gSet.EOF
Combo2.AddItem gSet!combo1.text, n

gSet.MoveNext
n = n + 1
Loop
End Sub
我知道怎么做了
dim a as string
a=combo1.text
下面引用
Combo2.AddItem gSet!(a), n

Answer 1

我很笨，这么深奥的问题还是请教他人吧

Answer 2

并把??

追问

并把检索到的数据赋值给下拉列表框（combo2）我这样写的的，老是出错，高手请

追答

不知道是什么错误?
把检索到的数据赋值给下拉列表框（combo2） 之前 把 combo2 的数据清除 combo2.clear

追问

就是怎么用combo1中选择的那个项目 为字段号 检索数据库 并把检索到的结果赋值给combo2 combo2.clear 也不行 就是这句话错误
Combo2.AddItem gSet!combo1.text, n
这句应该怎么说呢？

追答

那有可能是 combo1.text 的内容 和 染料中的字段 不匹配
Combo2.AddItem gSet(combo1.text).value, n