請問各位先進 var T1,T2: TDatetime; ......................... T1:= Datetimepicker1.date; // Datetimepicker1）控件中录入的为'08-01-2004' T2:= Datetimepicker2.date; // Datetimepicker1）控件中录入的为'08-10-2004' with ADOQuery2 do begin close; sql.Clear; sql.text:='select jgamt.jgdm,jgbh.jgmc,jgamt.rj,jgamt.amt from jgamt,jgbh where jgamt.jgdm=:para1 and ( jgamt.rj between :para2 and :para3 ) and jgbh.jgdm=jgamt.jgdm order by jgamt.jgdm,jgamt.rj';//此外不会换行,请教？ Parameters.ParamByName('para1').Value:= ss; Parameters.ParamByName('para2').Value:= T1; Parameters.ParamByName('para3').Value:= T2; active:= TRUE; open; end; with DBGrid1.Columns do begin Items[0].Title.Caption:= '机构代码'; Items[1].Title.Caption:= '机构名称'; Items[2].Title.Caption:= '日期'; Items[3].Title.Caption:= '余额'; Items[0].FieldName:= 'jgdm'; Items[1].FieldName:= 'jgmc'; Items[2].FieldName:= 'rj'; Items[3].FieldName:= 'amt'; end; 可是在实际执行结果中，DBGrid1显示的ADOQuery1的查询结果，其日期范围却是从“08-02-2004”到“08-11-2004”，而不是 在Datetimepicker控件中的范围，总是多加了一天，为什么？ 謝謝

Hi sunyard 你好:    這跟時間有關, 請改成以下試試

T1:= Trunc(Datetimepicker1.date);
T2:= Trunc(Datetimepicker2.date); 

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

感谢Miles的回覆： T1:= Trunc(Datetimepicker1.date); T2:= Trunc(Datetimepicker2.date); 我作了如上的修改，仍然无法成功，？？ 请再给予解释，谢谢！

var
//T1,T2: TDatetime;
T1,T2: String;    .........................    //T1:= Datetimepicker1.date; // Datetimepicker1）控件中录入的为'08-01-2004'
T1:=FormatDateTime('yyyy/mm/dd',Datetimepicker1.Date);
//T2:= Datetimepicker2.date; // Datetimepicker1）控件中录入的为'08-10-2004'
T2:=FormatDateTime('yyyy/mm/dd',Datetimepicker1.Date);        with ADOQuery2 do
begin
  close;
  sql.Clear;
  sql.text:='select jgamt.jgdm,jgbh.jgmc,jgamt.rj,jgamt.amt from   jgamt,jgbh where jgamt.jgdm=:para1 and ( jgamt.rj between :para2  and :para3 ) and jgbh.jgdm=jgamt.jgdm order by jgamt.jgdm,jgamt.rj';//此外不会换行,请教？
  Parameters.ParamByName('para1').Value:= ss;
  Parameters.ParamByName('para2').Value:= T1;
  Parameters.ParamByName('para3').Value:= T2;
  active:= TRUE;
  open;
end;
with DBGrid1.Columns do
begin
  Items[0].Title.Caption:= '机构代码';
  Items[1].Title.Caption:= '机构名称';
  Items[2].Title.Caption:= '日期';
  Items[3].Title.Caption:= '余额';
  Items[0].FieldName:= 'jgdm';
  Items[1].FieldName:= 'jgmc';
  Items[2].FieldName:= 'rj';
  Items[3].FieldName:= 'amt';
end;    

《觸不到的問題人》 來無影，去無踪， 問題總是一羅羅。 世上無難事，惟有『夾硬黎』

Hi sunyard 你好:    先確定一下欄位jgamt.rj裡的資料有時間嗎?    回答錯誤, 修正~~~ 我不是高手, 高手是正在銀幕前微笑的人. 發表人 -

------


我不是高手, 高手是正在銀幕前微笑的人.

引言:

請問各位先進     var
  T1,T2: TDatetime;    .........................      T1:= Datetimepicker1.date;  // Datetimepicker1）控件中录入的为'08-01-2004'
  T2:= Datetimepicker2.date;  // Datetimepicker1）控件中录入的为'08-10-2004'
 
 with ADOQuery2 do
  begin
    close;
    sql.Clear;
    sql.text:='select jgamt.jgdm,jgbh.jgmc,jgamt.rj,jgamt.amt'
              'from jgamt,jgbh'
              'where jgamt.jgdm=:para1' 
              'and (jgamt.rj between :para2 and :para3 )'
              'and jgbh.jgdm=jgamt.jgdm'
              'order by jgamt.jgdm,jgamt.rj';//分行
    Parameters.ParamByName('para1').DataType :=ftstring;参数类型
    Parameters.ParamByName('para1').Value:= ss;
    Parameters.ParamByName('para2').DataType :=ftdate;  
    Parameters.ParamByName('para2').Value:= T1;
     Parameters.ParamByName('para3').DataType :=ftdate; 
    Parameters.ParamByName('para3').Value:= T2;
    active:= TRUE;
    open;
  end;
  with DBGrid1.Columns do
  begin
    Items[0].Title.Caption:= '机构代码';
    Items[1].Title.Caption:= '机构名称';
    Items[2].Title.Caption:= '日期';
    Items[3].Title.Caption:= '余额';
    Items[0].FieldName:= 'jgdm';
    Items[1].FieldName:= 'jgmc';
    Items[2].FieldName:= 'rj';
    Items[3].FieldName:= 'amt';
  end;    可是在实际执行结果中，DBGrid1显示的ADOQuery1的查询结果，其日期范围却是从“08-02-2004”到“08-11-2004”，而不是
在Datetimepicker控件中的范围，总是多加了一天，为什么？     謝謝
sunyard您好：试试看

< face="Verdana, Arial, Helvetica">    ——行径窄处，留一步与人行——
——Never give up, never surrender——
        

感谢deity,问题基本解决，原来是需要先确定一下sql语句中的参数类型。 但还请教，如你所示将sql.text “分行”后，程序运行时提示： Parameters 'para1' not found！ 还要请教。。。????? 此外还要感谢Miles及Problmman！ 另外，要告诉Miles: jgamt.rj 的数据类型为date型

sunyard您好： 试试加多一个括号，检查书写有无错误，按理说，如果没分行能通过的话，分行后也应该没问题的，试试看 with ADOQuery2 do   begin     close;     sql.Clear;     sql.text:='select jgamt.jgdm,jgbh.jgmc,jgamt.rj,jgamt.amt' 'from jgamt,jgbh' 'where (jgamt.jgdm=:para1)' 'and (jgamt.rj between :para2 and :para3 )' 'and (jgbh.jgdm=jgamt.jgdm)' 'order by jgamt.jgdm,jgamt.rj';//分行 ——行径窄处，留一步与人行—— ——Never give up, never surrender——

Hi,deity: 加上括号后，提示语法错误，我实在不明白？ 无奈改为： sql.add('select jgamt.jgdm,jgbh.jgmc,jgamt.rj,jgamt.amt'); sql.add('from jgamt,jgbh'); sql.add('where jgamt.jgdm=:para1'); sql.add('and jgamt.rj between :para2 and :para3'); sql.add('and jgamt.jgdm=jgbh.jgdm'); 后成功！