求助！急！急！急！急！急！

yuguoguang 2003-08-20 03:47:33

我在更改DBGrid的显示顺序时总是出错，说“无法为更新定位行，一些值可能已在最一次读取后更改。”
我的部分程序在下面

m1.gh:=AdoTable2.FieldValues['工号'];
m1.sex:=AdoTable2.FieldValues['性别'];
m1.zt:=AdoTable2.FieldValues['工作状态'];
m1.isYuYue:=AdoTable2.FieldByName('是否有约').AsBoolean;

//读出需要上移的序号得上一条内的员工信息(15)
AdoTable2.Prior;

m2.gh:=AdoTable2.FieldValues['工号'];
m2.sex:=AdoTable2.FieldValues['性别'];
m2.zt:=AdoTable2.FieldValues['工作状态'];
m2.isYuYue:=AdoTable2.FieldByName('是否有约').AsBoolean;

AdoTable2.Edit;
AdoTable2.FieldByName('工号').AsInteger:=m1.gh;
AdoTable2.FieldByName('性别').AsString:=m1.sex;
AdoTable2.FieldByName('工作状态').AsInteger:=m1.zt;
AdoTable2.FieldByName('是否有约').AsBoolean:=m1.isYuYue;
// AdoTable2.Post;

// AdoTable2.FieldValues['序号']:=m0.gh-1;
AdoTable2.Next;

AdoTable2.Edit;
AdoTable2.FieldByName('工号').AsInteger:=m2.gh;
AdoTable2.FieldByName('性别').AsString:=m2.sex;
AdoTable2.FieldByName('工作状态').AsInteger:=m2.zt;
AdoTable2.FieldByName('是否有约').AsBoolean:=m2.isYuYue;
AdoTable2.Post;

...全文

44 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

IORILI 2003-08-20

打赏
举报

m1.gh:=AdoTable2.FieldValues['工号'];
m1.sex:=AdoTable2.FieldValues['性别'];
m1.zt:=AdoTable2.FieldValues['工作状态'];
m1.isYuYue:=AdoTable2.FieldByName('是否有约').AsBoolean;

//读出需要上移的序号得上一条内的员工信息(15)
AdoTable2.Prior;

m2.gh:=AdoTable2.FieldValues['工号'];
m2.sex:=AdoTable2.FieldValues['性别'];
m2.zt:=AdoTable2.FieldValues['工作状态'];
m2.isYuYue:=AdoTable2.FieldByName('是否有约').AsBoolean;

AdoTable2.Edit;
AdoTable2.FieldByName('工号').AsInteger:=m1.gh;
AdoTable2.FieldByName('性别').AsString:=m1.sex;
AdoTable2.FieldByName('工作状态').AsInteger:=m1.zt;
AdoTable2.FieldByName('是否有约').AsBoolean:=m1.isYuYue;
到这里，你的数据库里面已经有两条相同的记录了，然后
AdoTable2.Next;

AdoTable2.Edit;
AdoTable2.FieldByName('工号').AsInteger:=m2.gh;
AdoTable2.FieldByName('性别').AsString:=m2.sex;
AdoTable2.FieldByName('工作状态').AsInteger:=m2.zt;
AdoTable2.FieldByName('是否有约').AsBoolean:=m2.isYuYue;
AdoTable2.Post;
你要修改的记录在数据库里存在两条，数据库不能确定你要修改哪一条，
所以会出错

随机数生成算法 anya Re: 伪随机数的生成算法？ anya 计算并输出表达式结果 anya 计算并输出表达式结果2 anya 递归与栈溢出 anya Re: Excel 规划求解问题，求助，请教！！ anya Re: anya:请教一个问题 anya Re: 如何给汉字分界? anya Re: 八皇后算法问题请教？ anya Re: 急寻图象压缩算法 anya 游戏中最佳路径的问题 anya 平面点覆盖问题求教 anya Re: 平面点覆盖问题求教 anya Re: 平面点覆盖问题求教 anya Re: 平面点覆盖问题求教 anya Re: 集合求交 anya Re: 微软考题 anya Re: 微软考题 anya Re: 请问自然图象的概率分布函数 anya 华

100分求助！！！急！！！！！！！！！！！！！！！我基本不太会VB，想问些比较简单的问题我有三个TEXT控件，程序代码中我把它们存成Text(i)数组.下面是我的读取access数据库student表的内容代码，我想根据这三个Text控件的输入来进行查询，为什么不好用呢，兄弟们帮忙看一下，急死我了啊。！！！ Private Sub Command5_Click() Dim SQLString

1.华为企业云API使用讲解该课程介绍如何通过华为企业云API进行二次开发，并选取一个实战案例。后把遇到问题的求助渠道介绍给大家。

本人这几天收到广州多益与H3C的Offer ，请问这两家公司怎么样？最近苦恼好久，请大伙帮帮忙，本人刚毕业，对这个不是了解，请大伙帮忙出出意见啊

LAMP环境搭建Apache问题求助！！！急急急！！！网上查找之前的博客示例并没有解决我的问题： https://blog.csdn.net/qq_26495107/article/details/71725739 有没有高手看到速度解决的? 我现在安装的是云服务器Linux CentOS 6.8 64位的，在Apache安装那怎么也解决不了它。新手请教大佬！！！ ...