dataset not in edit or insert mode用的是ClientDataSet 急！！！！！

cookblack 2009-10-23 12:03:06
代码如下：用的是ClientDataSet 急！！！！！
if cdsDetail.IsEmpty then
begin
sqlstr:='select QBH,FS,label from P_JndaM';
with qryTemp do
begin
close;
sql.Clear;
sql.Add(sqlstr);
open;
//cdsDetail.DisableControls;
while ( not qryTemp.Eof) do
begin
//cdsDetail.First;
cdsDetail.Edit;
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
cdsDetail.Post;
qryTemp.Next;
end;
//cdsDetail.EnableControls;
end;
end;
...全文
487 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
huangheguyun 2009-10-23
if cdsDetail.IsEmpty then
begin
sqlstr:='select QBH,FS,label from P_JndaM';
with qryTemp do
begin
close;
sql.Clear;
sql.Add(sqlstr);
open;
//cdsDetail.DisableControls;
while ( not qryTemp.Eof) do
begin
//cdsDetail.First;
cdsDetail.Append; 先增加。
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
cdsDetail.Post;
qryTemp.Next;
end;
//cdsDetail.EnableControls;
end;
end;
 回复 赞
飞天揽月 2009-10-23
新增是
cdsDetail.Append；
cdsDetail.Post；

修改是
cdsDetail.Edit；
cdsDetail.Post；

 回复 赞
火龙岛主 2009-10-23
qryTemp与cdsDetail记录集数匹配吗？
if cdsDetail.IsEmpty then
begin
sqlstr:='select QBH,FS,label from P_JndaM';
with qryTemp do
begin
close;
sql.Clear;
sql.Add(sqlstr);
open;
//cdsDetail.DisableControls;
while ( not qryTemp.Eof) do
begin
//cdsDetail.First;
cdsDetail.Edit;这里应该cdsDetail.Append;吧，没有数据你编辑什么啊？
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
cdsDetail.Post;
qryTemp.Next;
end;
//cdsDetail.EnableControls;
end;
end;
 回复 赞
raize2010 2009-10-23
查出来，在哪里，能怎么解决，小弟也遇到过这样的问题，像楼主那样解决行吗
 回复 赞
kaikai_kk 2009-10-23
提示已经很清楚了
记录不在添加或者修改状态,在空记录的情况下,用cdsDetail.Edit也会添加数据成功的

肯定是cdsDetail.Edit或者后面某个赋值语句执行后,
就跳到其它地方执行代码了,这当中有post动作;
再回来继续赋值时,就会出现这个错误了

F7单步运行查查
 回复 赞
cookblack 2009-10-23
问题解决了，把代码贴出来。哪里错真的不是很清楚但是这样就解决。
if cdsDetail.IsEmpty then
begin
sqlstr:='select QBH,FS,label from P_JndaM';
with qryTemp do
begin
close;
sql.Clear;
sql.Add(sqlstr);
open;
cdsDetail.DisableControls;
while ( not qryTemp.Eof) do
begin
cdsDetail.Append;
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.Edit;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
cdsDetail.Post;
qryTemp.Next;
end;
cdsDetail.EnableControls;
end;
end;
 回复 赞
zshsuming 2009-10-23
可能是你的dataset没有和数据库连接成功或者是你操作的表处在只读状态，应该在执行编辑和插入操作之前先修改操作表的属性为可编辑状态。
回复 赞
zshsuming 2009-10-23
你的ClientDataSet连接的什么控件，该控件上面是否有Options属性，下面有关于编辑状态的选项
 回复 赞
cookblack 2009-10-23
if cdsDetail.IsEmpty then
begin
sqlstr:='select QBH,FS,label from P_JndaM';
with qryTemp do
begin
close;
sql.Clear;
sql.Add(sqlstr);
open;
//cdsDetail.DisableControls;
while ( not qryTemp.Eof) do
begin
//cdsDetail.First;
cdsDetail.Append;
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
//cdsDetail.Post;
qryTemp.Next;
end;
//cdsDetail.EnableControls;
end;
end;是添加。
 回复 赞
iamduo 2009-10-23
while ( not qryTemp.Eof) do
begin
//cdsDetail.First;
cdsDetail.Edit;
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
cdsDetail.Post;
qryTemp.Next;
end;

循环 Temp，
一直改Detail的当前记录，
……
lz 这个是什么做法？
至少也该有个Locate什么的吧？
 回复 赞
cookblack 2009-10-23
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString; 这句后开始，就算你把后面的删掉也是，找不出原因，晕死。
 回复 赞
de410 2009-10-23
[Quote=引用 4 楼 cookblack 的回复:]
//cdsDetail.EnableControls;
      end;
  end;这样还是不行，还是那个错误，cdsDetail是从表，我想在主表添加提交后，从表就增加，主从表是通过个id想关联的
[/Quote]
你单步跟踪以下，看看在哪一句出现上述错误~~
 回复 赞
cookblack 2009-10-23
SmallHand你好，你说这个是‘qryTemp与cdsDetail记录集数匹配吗？ ’什么意思
 回复 赞
cookblack 2009-10-23
把cdsDetail.Edit；改成cdsDetail.Append;
 回复 赞
cookblack 2009-10-23
if cdsDetail.IsEmpty then
begin
sqlstr:='select QBH,FS,label from P_JndaM';
with qryTemp do
begin
close;
sql.Clear;
sql.Add(sqlstr);
open;
//cdsDetail.DisableControls;
while ( not qryTemp.Eof) do
begin
//cdsDetail.First;
cdsDetail.Edit;这里应该cdsDetail.Append;吧，没有数据你编辑什么啊？
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
cdsDetail.Post;
qryTemp.Next;
end;
//cdsDetail.EnableControls;
end;
end;这样还是不行，还是那个错误，cdsDetail是从表，我想在主表添加提交后，从表就增加，主从表是通过个id想关联的
 回复 赞
相关推荐
ClientDataSet 看到一篇介绍ClientDataSet和TDataSetProvider，非常精彩，特此保存。 ================================================================================= 前台：D7或D2005; DBExpress连接组件：...
Client Dataset Basics 文章出处:... In the preceding two chapters, I discussed dbExpress—a unidirectional database technology. In the real world, most applications support b...
ClientDataset If Edit1.Text <> /'/' and ClientDataSet1.Fields.FindField(Edit1.Text) then Begin ClientDataSet1.AddIndex(Edit1.Text+/'Index/',Edit1.Text, 　[ixCaseInsensitive],/'/',/'/',0); ClientDataSet1.IndexName ...
ClientDataSet加上TDataSetProvider的数据保存问题 ClientDataSet1.AddIndex(Edit1.Text+/'Index/',Edit1.Text, 　 [ixCaseInsensitive],/'/',/'/',0); ClientDataSet1.IndexName := Edit1.Text + /'Index/'; End; 为了避免创建一个索引，可以临时用...
ClientDataSet的Post方法的使用时机 吾阅：ClientDataSet的Post方法的使用时机，即在每次修改记录后，就要马上Post，否则，统一一次来个Post，会没有效果，反而还报DataSet not in insert or edit state错误； --------------------------------------...
Delphi：ClientDataset+TDataSetProvider的数据保存问题 看到一篇介绍ClientDataSet和TDataSetProvider，非常精彩，特此保存。 =========================================================================== TClientDataSet用法第十一章 TClientDataSet　与TTable、...
ClientDataset+TDataSetProvider的数据保存问题 看到一篇介绍ClientDataSet和TDataSetProvider，非常精彩，特此保存。 ================================================================================= 前台：D7或D2005; DBExpress连接组件：TSqlConnection...
多层数据库开发三:创建多层应用程序 然后，用鼠标右键单击TDataSetProvider或TProvider构件，在弹出的菜单中选择ExportFrom <Name> in Data Module命令，这是为了引出Provider接口，在类型库中注册。 　第四步是设置TDataSetProvider或TProvider构件的...
DBCHART的使用 ①# 后面跟一个字符编码可以表示这个字符, 字符编码可以用十进制或十六进制表示;譬如字符 "A" 的编码是 65(十进制) 或 $41(十六进制). --------------------------------- var  c: AnsiChar; begin  c := #65;  ...
三:创建多层应用程序(二) 3.5 Provider　远程数据模块上...有时候，也可以不显式地使用TDataSetProvider或TProvider构件，而是由数据集构件如TTable、TQuery或TStoredProc的Provider属性间接地提供IProvider接口。　显式地使用TDataSetProvid
DBGridEh大全 用DbGrid制作edit录入时的下拉提示框 40 Delphi的dbgrid中根据数据的属性不同显示不同的颜色 44 给DBGrid加入排序功能（同时参考“点击DBGrid的Title对查询结果排序”） 44 将 DBGrid 中的内容输出至 Excel 或 ...
Delphi编程 Tab(在 Object Inspector 中使用) 搜索属性或事件   代 码 编 辑 类 F1; Ctrl + F1 光标所在单词的帮助   Ctrl + Shift + Enter 光标所在单词的参考   ...
多层数据库开发三:创建多层应用程序 选择自 CYRTSOFT 的 Blog 然后，用鼠标右键单击TDataSetProvider或TProvider构件，在弹出的菜单中选择ExportFrom <Name> in Data Module命令，这是为了引出Provider接口，在类型库中注册。 　第四步是设置TDataSetProvider或TProvider构件的...
TClientDataSet 手动修改Data数据 TClientDataSet 手动修改Data数据 ... 使用TClientDataSet控件与DBGrid控件编辑显示数据窗口。 在设计过程中，ClientDataSet与DBGrid放置在两个不同的动方，手工连接。由于ClientDataSet中的数据，部分在DBG...
钙为主要成分的矿物当石膏中含有结晶水不同时可形成多PPT课件.pptx 钙为主要成分的矿物当石膏中含有结晶水不同时可形成多PPT课件.pptx
铁磁材料磁滞回线的研究PPT课件.pptx 铁磁材料磁滞回线的研究PPT课件.pptx
【浙商证券】教育行业深度报告：职教学历体系逐渐明晰，民办高教迎新的发展机遇.pdf 教育行业深度报告：职教学历体系逐渐明晰，民办高教迎新的发展机遇
市场细分化与目标市场营销战略.pptx 市场细分化与目标市场营销战略.pptx
铁碳合金相图PPT课件.pptx 铁碳合金相图PPT课件.pptx
钢结构梁建筑资料PPT课件.pptx 钢结构梁建筑资料PPT课件.pptx
发帖
数据库相关
创建于2007-08-02

2454

社区成员

8.8w+

社区内容

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2009-10-23 12:03
社区公告
暂无公告