总是提示类型不匹配？

naitnij

运行窗体的下拉框的afterupdate的事件后总提示类型不匹配。

dim db as database, rs as recordset, sql as str, st as str

set db = currentdb

str = combo1.value

sql = " select field from tabel where field2 = str"

set rs = db.openrecordset ( sql)

combo2.value = rs!field2

我希望能选取下拉框1的值， 下拉框2自动从一个表中带出相应的另一个字段。但是说什么也不行，请大家帮忙， 谢谢谢谢！

naitnij

好使了， 多谢，多谢， 一定多光顾你的网站。

zhuyiwen

=====>

dim db as DAO.database, rs as DAO.recordset, sql as string, st as string

set db = currentdb

st = combo1.value

sql = "select field from tabel where field2 = '" & st & "'"

set rs = db.openrecordset (sql)

combo2.value = rs!field2

注: 需要引用 Microsoft DAO3.6 Object Library