Table1.First;
While not Table1.Eof do
if (Table1.FieldByName('rq').asdatetime>form3.DateTimePicker1.Datetime and Table1.FieldByName('rq').asdatetime<form3.DateTimePicker2.Datetime then
begin
Memo1.Lines[0]:=Table1.fieldbyname('ccap').asstring;
end
else
begin
Table1.Next;
end;
While not Table1.Eof do
if (Table1.FieldByName('rq').asdatetime>form3.DateTimePicker1.Datetime and Table1.FieldByName('rq').asdatetime<form3.DateTimePicker2.Datetime then
begin
Memo1.Lines[0]:=Table1.fieldbyname('ccap').asstring;
end
else
begin
Table1.Next;
end;
解决方案 »
- 三层结构的安全问题
- 如何区分键盘和扫描枪的输入?
- delphi怎么连接dbf表,以及对dbf表添加数据?着急啊,高分答谢!!!!!!
- 在线急救!!!ADOTABLE插入数据的问题
- -----------------如何安全的关闭知道进程id的应用程序-------------------
- 一个非常菜的问题,DELPHI怎样把一个类做为基类,然后派生出许多类!
- 各位大哥,如何实现在运行期间在form上复制控件的功能阿,分不够再加,必给阿!
- 有没有上海交通大学的?
- 点击dbgrid时,他的位置怎么会变?
- 急!!!!!高手请帮帮我!
- 亿万火急!!!!!谁知道DELPHI6的安装序列号!!!!
- 关于TdbGrid的用法
While not Table1.Eof do
if (Table1.FieldByName('rq').asdatetime>form3.DateTimePicker1.Datetime and Table1.FieldByName('rq').asdatetime<form3.DateTimePicker2.Datetime then
Memo1.Lines[0]:=Table1.fieldbyname('ccap').asstring;
Table1.Next;
end;