以下语句为什么不能实现功能

dreamice01

Dim dbs As Database

Dim distr_rate_type As String
Dim j As Integer
dim distr_rate_term as date,kaohe_term as date

distr_rate_term = Combo107.Column(1)                   '为取下拉列表中的数据值
kaohe_term = Combo67.Column(1)                           '为取下拉列表中的数据值


For i = 0 To conds.count - 1
distr_rate_type = List63.ItemData(i + 1)                       '为取列表框中的数据值
'清空表中的数据
dbs.Execute "delete * from 期初分摊率基础数据用于匹配用"
'将查询期初分摊率基础数据用于生成报表中的满足distr_rate_type和distr_rate_term的数据插入表期初分摊率基础数据用于匹配用中
dbs.Execute "insert into 期初分摊率基础数据用于匹配用( contract_number, product_sort, 收入分摊率, 成本分摊率, distr_rate_term, distr_rate_type)" & _
"select contract_number,product_sort,收入分摊率,成本分摊率,distr_rate_term,distr_rate_type from 期初分摊率基础数据用于生成报表 where distr_rate_type=[distr_rate_type] and distr_rate_term=# " & distr_rate_term & " # "
next i


问题：上述语句在运行中发现，插入到期初分摊率基础数据用于匹配用表中的数据并没有按条件过滤，请高手帮忙看下是什么原因，谢谢

haemon

"where distr_rate_type= '" &distr_rate_type &"' and distr_rate_term=# " & distr_rate_term & " # "
我想应该是这样!

fangkinght

dreamice01

不行呀，大哥，那样将会导致没有任何数据进入那个表的