程序出错了……

ilike

下面是本人写的一段（刚开始学写啊）

Dim rst As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim sqlstr As String

Set conn = CurrentProject.Connection
sqlstr = "select * from model where model.type_id = " & Me.Combo1.Column(2)
rst.Open sqlstr, conn, adOpenKeyset, adLockOptimistic  '提示错误处 "标准表达式中数据类型不匹配"
Me.Combo2.Recordset = rst.Fields(0)
rst.Close

附：model表

<IMG>id、model、 type_id

combo1:字段  id,type,type_id

我主要的目的是想通过combo1筛选model中的数据，并把这些数据付给combo2。不知道有没有更好的程序，请赐教！！<IMG>

[此贴子已经被作者于2006-6-12 11:18:47编辑过]

andymark

你发的图看不清 试试：

sqlstr = "select * from model where [type_id] = " & Me.Combo1.Column(2) & ""

ilike

各位大虾帮帮忙啊，小弟已经苦恼了好多天了啊！我上面的程序到底错在哪里啊，各位还有没有更好的方法了啊？救救急啊！！

andymark

把你的例子传上来