给数据编号的问题,高手请进。 我用TQuery1.FieldByName('字段名').AsInteger := TQuery1.RecNo;给记录编号,但是第一条记录的编号为-1,请问该如何解决。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Query1.First;while not Query1.Eof dobeginTQuery1.FieldByName('字段名').AsInteger := Query1.RecNo;Query1.Next;end; var Guard:integer; Number:integer;function GetAutoInc:integer;asm @@1: mov edx,1 xchg Guard,edx or edx,edx jnz @@2 mov eax,Number inc eax mov Number,eax mov Guard,edx ret @@2: push 0 call sleep jmp @@1end;Query1.First;while not Query1.Eof dobeginTQuery1.FieldByName('字段名').AsInteger := GetAutoInc;Query1.Next;end; 调用Query1.RecNo前Query1.LASTQuery1.FIRST石游标贵零 请教如何实现dbgridEh中各列的下拉筛选 Delphi如何构造以太网II帧格式,并发送 求设计期间运行窗体的方法。 长期不出差,散分 AdoQuery 执行脚本,在线等待 代码改错 编写COM,返回例程不能是字符串类型? 用DELPHI 6 编写斑马条形码打印程序f如何编写 菜鸟求助:怎么弹出打印对话框 待我有程序需要编时便会上来猛问问题,可不要将俺清除出去. 动态设置ADOConnectiong的ConnectionString属性问题 各位,谁知道ADOTABLE的FINDFIRST得用法(在线等待)
while not Query1.Eof do
begin
TQuery1.FieldByName('字段名').AsInteger := Query1.RecNo;
Query1.Next;
end;
Guard:integer;
Number:integer;function GetAutoInc:integer;
asm
@@1: mov edx,1
xchg Guard,edx
or edx,edx
jnz @@2
mov eax,Number
inc eax
mov Number,eax
mov Guard,edx
ret
@@2: push 0
call sleep
jmp @@1
end;Query1.First;
while not Query1.Eof do
begin
TQuery1.FieldByName('字段名').AsInteger := GetAutoInc;
Query1.Next;
end;
Query1.LAST
Query1.FIRST
石游标贵零