起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 369|回复: 23

【结贴】帮忙看一下**

[复制链接]
发表于 2008-5-29 10:30:57 | 显示全部楼层 |阅读模式

5.29.jpg

29.35 KB, 下载次数: 121

回复

使用道具 举报

 楼主| 发表于 2008-5-29 10:51:07 | 显示全部楼层
dinb
回复 支持 反对

使用道具 举报

发表于 2008-5-29 10:59:14 | 显示全部楼层
错误提示已经有了,数据集状态不是Edit或者insert
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-29 11:01:53 | 显示全部楼层
但是已经写了edit
回复 支持 反对

使用道具 举报

发表于 2008-5-29 11:02:52 | 显示全部楼层
YGKQSR数据集的状态不对。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-29 11:07:18 | 显示全部楼层
已经有edit,还要写什么呢,请告之,谢谢
回复 支持 反对

使用道具 举报

发表于 2008-5-29 11:08:14 | 显示全部楼层
代码中跟你提示的不是一样数据集吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-29 11:33:28 | 显示全部楼层
他们就是一个数据\集呀
回复 支持 反对

使用道具 举报

发表于 2008-5-29 11:52:25 | 显示全部楼层
那你把代码贴上来看一下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-29 11:54:39 | 显示全部楼层
procedure TCT1.Button4Click(Sender: TObject);
var
bh,srbh :string;
begin
   bh := edit1.Text;
   dsb_xbygsr.DataSet.Open;
   dsb_xbygsr.DataSet.First;
   while not dsb_xbygsr.DataSet.Eof do
     begin
       srbh := dsb_xbygsr.DataSet.FieldByName('bh').AsString;
       if (bh=srbh) then
       begin
         dsb_xbygsr.DataSet.Edit;
         dsb_xbygsr.DataSet.FieldByName('zt').AsString := '12';
         dsb_xbygsr.DataSet.Post;
         exit;
       end;
   dsb_xbygsr.DataSet.Next;
     end;
end;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-14 06:58 , Processed in 0.040019 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表