inc(row); 你不断inc,要是循环了6次之后怎么办呢?你应该对它作复位(Reset)处理另外,你可以对上面的if部分代码简简一下,那样真的很~~~~~
解决方案 »
- Cxgrid控件分组标题的修改
- 简单调用动态链接库出错
- 100分求完美解决DBGrid取消滚动条的方法
- 怎么把activex的dhtml5.0添加到工具面板中
- 为什么有时客户端软件响应比较慢,一个操作都要十几秒钟?有时候却很快。
- 如何获取网页中的北京时间
- 高分求解delphi/c++builder问题,谢谢
- 既然COM和DCOM是语言无关的,那么其它语言的应用程序如何调用DELPHI写的COM或DCOM?
- 问题1: 如何获得本机的IP地址并将其改之,问题2......
- 请帮帮我!!!!!!!!
- 怎样能让动态生成的image对象,响应鼠标如( movedown )事件
- 防火墙源代码 http://www.xfilt.com
谢谢。
begin
rep_infor.resultQuery.Close;
rep_infor.resultQuery.SQL.Clear;
rep_infor.resultQuery.SQL.Add('select top '+resultcombobox3.Text+' 号码,姓名,性别,单位,项目名称,成绩,得分 from perinfor_input');
rep_infor.resultQuery.SQL.Add('where 项目名称=:items and 性别=:sex order by 成绩 desc');
rep_infor.resultQuery.Parameters.ParamByName('items').Value:=sj;
rep_infor.resultQuery.Parameters.ParamByName('sex').Value:=xb;
rep_infor.resultQuery.Open;
end;
end;
rep_infor.resultQuery.First;
rep_infor.resultQuery.Edit;
begin
while not rep_infor.resultQuery.Eof do
begin
inc(row);
rep_infor.resultQuery.FieldByName('得分').AsInteger:=7-row;
if row=6 then row:=0;
end;
rep_infor.resultQuery.Post;
rep_infor.resultQuery.Next;
end;
case row of
1:……;
2:……;
……
6:……
else
row:=初值;
end;
很多DBMS的“排序查询”(带有Oder by)是不可修改的,SQL Server好象就是如此。最好改用Update语句或改用UpdateSQL控件进行修改。 ____ ____
\ p \ / g /
\ l \_/ n /
\ a o /
\ i s /
\ n /
\_/