提示：在这个集合中找不到此项目

[iceman02]

Data1.Recordset.AddNew
If txtfjh.Text <> "" Then Data1.Recordset.Fields("房间号") = txtfjh.Text
If Combo1.Text <> "" Then Data1.Recordset.Fields("房间类型") = Combo1.Text
If Combo2.Text <> "" Then Data1.Recordset.Fields("房态") = Combo2.Text
If txtjg.Text <> "" Then Data1.Recordset.Fields("价格") = txtjg.Text
If DTP1.Value <> "" Then Data1.Recordset.Fields("营业日期") = DTP1.Value
If txtsz.Text <> "" Then Data1.Recordset.Fields("使用设置") = txtsz.Text
If txtpz.Text <> "" Then Data1.Recordset.Fields("配制") = txtpz.Text ‘请注意这一行
If txtbz.Text <> "" Then Data1.Recordset.Fields("备注") = txtbz.Text
If txtfjh.Text <> "" Then Data1.Recordset.Fields("标志") = "0"
Data1.Recordset.Update
Data1.Refresh
执行这段代码后，如去掉“配制”这一行，运行正常，返回正确的数据库，如不去掉的话，就提示：在这个集合中找不到此项目.到底错在哪了？不懂

[faysky2]

记录集里不存在 配制 列?

[一笑拔剑]

确认改数据库中有没有 配制这一项
你自己看下

会不会是 配置

[一笑拔剑]

你仔细看看
可能后门有空格
我以前也出现这个现象

[of123]

Data1 的 RecordSource 是怎么写的？是否 Select * From ... ?

[iceman02]

Data1.Recordset.FindFirst "房间号 like" + Chr(34) + txtfjh.Text + Chr(34) + ""
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
If txtfjh.Text <> "" Then Data1.Recordset.Fields("房间号") = txtfjh.Text
If Combo1.Text <> "" Then Data1.Recordset.Fields("房间类型") = Combo1.Text
If Combo2.Text <> "" Then Data1.Recordset.Fields("房态") = Combo2.Text
If txtjg.Text <> "" Then Data1.Recordset.Fields("价格") = txtjg.Text
If DTP1.Value <> "" Then Data1.Recordset.Fields("营业日期") = DTP1.Value
If txtsz.Text <> "" Then Data1.Recordset.Fields("使用设置") = txtsz.Text
If txtpz.Text <> "" Then Data1.Recordset.Fields("配制") = txtpz.Text
If txtbz.Text <> "" Then Data1.Recordset.Fields("备注") = txtbz.Text
If txtfjh.Text <> "" Then Data1.Recordset.Fields("标志") = "0"
Data1.Recordset.Update
Data1.Refresh
Else
............................省略
end if

[饮水需思源]

1，确定表中是否有“配制”这一字段
2，确定“配制”这一字段是否已经被控件引用

[iceman02]

数据库里有配制列，真邪门了，不知错在哪了？