请大家帮忙看看怎么回事！

Question

本帖最后由 qiyuekoushao 于 2010-05-31 00:04:55 编辑

Answer 1

泪！代码明明有缩进的，为么还是这样显示？都编辑两次了还没有效果！麻烦各位大人耐心帮忙看看。begin  end应该是没有问题的，有检查。

Answer 2

Parameters.ParamByName('LL').Value:=dayof(IncDay(Date, 3));
  EXECSQL;
  open;
  EXECSQL;  不需要这句把

Answer 3

while not eof do
  begin
  s:= Trim(timetostr(FieldValues['BIRTH']));
  s := s + Trim(FieldValues['CNAME']);
  s:=s + Trim(FieldValues['category']);
  List1.Items.Add(s);
  end;
 
你一个劲地往里加，却始终没把记录指针往后移，始终是在第一条，死循环了。所以你看不到界面，也不知道程序纠结得有多痛苦。

Answer 4

UP还有2楼说的'  EXECSQL; 不需要这句'