我的某个数据表有几千条记录,要求先按某个字段排序,然后按顺序将这些记录的某个字段赋值,我的代码如下,可老是在qty.FieldByName('bdh').AsString:='ww'+inttostr(i);地方报错,提示数据集没有处在编辑和插入状态,这是怎么回事啊,是不是用select得到的数据集只能添加记录啊?
刚入门,请多关照,谢谢!
qty.SQL.Clear;
qty.SQL.Add('select * from yxzb order by xymc,zydm');
qty.Open;
qty.edit;
qty.First;
for i:=1 to qty.RecordCount do
begin
qty.FieldByName('bdh').AsString:='ww'+inttostr(i);
qty.Next;
end;
qty.Post;
刚入门,请多关照,谢谢!
qty.SQL.Clear;
qty.SQL.Add('select * from yxzb order by xymc,zydm');
qty.Open;
qty.edit;
qty.First;
for i:=1 to qty.RecordCount do
begin
qty.FieldByName('bdh').AsString:='ww'+inttostr(i);
qty.Next;
end;
qty.Post;
解决方案 »
- 有没有可以输入的菜单控件
- ADOquery的一个问题 不知道怎么解决 请教各位
- wxmwxmwxm(毛毛毛毛)进 上次问的问题结了帖 发现忘给你分了 对不起
- 用UDP和ACM如何让两个局域网中的机器对话?
- 如何判断 \\ip地址\共享目录 目录是否存在
- 多线程连接数据库问题。
- delphi中如何获取一个目录中最近上传的文件的文件名呢?
- MTS问题................ 为什么我做的mts对象安装之后都可以在“组件服务”里看到我做的对象的接口和里边的方法。而其他的都看不见?
- 菜鸟问题
- 哪儿有delphi5 企业版下载?
- 我用Delphi6的NMHTTP控件向Http服务器发送访问页面的请求,请问如何获得返回的数据!
- 关于在程序在最小化后隐藏在任务栏的按钮的问题
qty.SQL.Add('select * from yxzb order by xymc,zydm');
qty.Open;
// qty.edit;
qty.First;
for i:=1 to qty.RecordCount do
begin
if not (Qty.State in [DsEdit, DsInsert] ) then
qty.Edit;
qty.FieldByName('bdh').AsString:='ww'+inttostr(i);
qty.Next;
end;
if Qty.State in [DsEdit, DsInsert] then
qty.Post;