??? i不就是max-id,max_id为空时, i当然应该为空!id 是不是必须要有值?如果是,判断query是否有记录不行妈?
1:无记录,max_id:='000100000001'
2:有记录:max_id:='000'+inttostr(strtoint(copy(i,4,9))+1);
1:无记录,max_id:='000100000001'
2:有记录:max_id:='000'+inttostr(strtoint(copy(i,4,9))+1);
解决方案 »
- delphi 5怎么调用webserver
- 请教:对ADOQuery执行SQL出错,why?
- 线程问题,很简单的……
- 关于cxpagecontrol释放的问题
- COM+中HResult错误代码含义???
- 我有80多个table,都连到一个ADOConnection上了,会影响效率吗?
- listview中如何让一个字段用货币的格式显示
- treeview的小问题,如何得到它包含所有的节点的个数?
- 动态子窗口在所有窗口前面的设置问题
- 我是个菜鸟,苦于手边没有很好的入门资料,请各位大虾指点迷津,那里可以下载delphi书刊!!!
- 十万万火急!!!C++ Builder数据集以CachedUpdates方式(多人使用时)提交到SQL Server数据库为什么总是产生死锁(DeadLock)?
- QuikReport的简单问题
奇怪的事明明有记录,分布调试偏偏显示max_id='';
procedure TF_ADD.FormCreate(Sender: TObject);
var i,max_id:string;
begin
with tquery.Create(self) do
begin
databasename:='dd2100';
sql.add('select max(id) from zlgl_khzl');
active:=true;
i:=fields[0].asstring; //i=000100000003
free;
end; if i=''then
max_id:='000100000001' //'00'+current_xz_code+'00000001'
else
begin
max_id:='000'+inttostr(strtoint(copy(i,4,9))+1);
// max_id:='ytrht'; 此处把注释去掉,常常引起max_id为空
// ,为什么不能符值呢,偏偏有时候可以符值
end;
end;
这里 i 从数据库中点出