以下代码在BUTTONCLICK事件中: outputtable.DatabaseName:=...;
outputtable.TableName:=...;
outputtable.open;
qusearch.First; while not QUERY1.Eof do //
begin
tempbzm:=qusearch.fieldbyname(cbbyhh.text).asstring+copy(qusearch.fieldbyname(cbbjldh.text).asstring,6,3); with outputtable do
if Locate('bzm',tempbzm, [loPartialKey]) then
begin
outputtable.edit; outputtable.fieldbyname('zd1').asinteger := qusearch.fieldbyname(cbbdbds.text).asinteger; outputtable.fieldbyname('dl1').asinteger := outputtable.fieldbyname('zd1').asinteger - outputtable.fieldbyname('qd1').asinteger; outputtable.post;
end;
qusearch.Next;
progressbar1.Position:=progressbar1.Position+1; end;
outputtable.close;
outputtable.TableName:=...;
outputtable.open;
qusearch.First; while not QUERY1.Eof do //
begin
tempbzm:=qusearch.fieldbyname(cbbyhh.text).asstring+copy(qusearch.fieldbyname(cbbjldh.text).asstring,6,3); with outputtable do
if Locate('bzm',tempbzm, [loPartialKey]) then
begin
outputtable.edit; outputtable.fieldbyname('zd1').asinteger := qusearch.fieldbyname(cbbdbds.text).asinteger; outputtable.fieldbyname('dl1').asinteger := outputtable.fieldbyname('zd1').asinteger - outputtable.fieldbyname('qd1').asinteger; outputtable.post;
end;
qusearch.Next;
progressbar1.Position:=progressbar1.Position+1; end;
outputtable.close;
解决方案 »
- 在delphi中如何快捷复制一个窗口(包括窗体里的所有组件及相应程序)
- 关于HTTP GET的CPU占用问题
- webbrowser1设置socks5代理的时候 账户密码如何填写 delphi
- 我创建一个VCL 为什么我不做生成象TDBGRID 的 Columns 设置Column(贴出源码解答)
- 求助:如何不用鼠标拖放的方式,直接在代码里使用一个TTimer组件
- 如何实现新浪围棋或联众游戏的用户登陆时的用户确认和密码检查?
- ZLIB的使用问题
- vc代码翻译成delphi
- 有本事的进来拿分!!!!!!(这里难道没有高手吗?)
- API中有无拷贝文件夹的函数?
- installshield6.2做安装程序,不知怎样将SQLLINK打包?
- 怎样表示一个ascii值为0的字符?
Locate('bzm',tempbzm, [loPartialKey])
tempbzm的长度不能超过该字段的长度,好象就可以了
我的表中没有用到索引.
locate('user_id' , A, [loPartialKey])
user_id的长度为4 ,当A 中字符的长度超过6时
就报错:operation cannot applicate
那么=>5会报错吗?
sanpao() 对了.