| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2004/3/16 19:11:45 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 画线的部分有什么问题，帮忙解决一下，strdate为文本类型例如2001-06-16 procedure TForm1.Edit2Change(Sender: TObject); var d:string; no,i:integer; s,tj:string; begin tj:=edit1.text+'-'+edit6.text; edit5.Text:=tj; i:=strtoint(form1.Edit2.text); with ADOQuery1 do begin close; sql.Clear; s:='select * from itemactivity where lngReceiptNO=:no and lngActivityTypeID=11 and strDate like "'+tj+'%"'; ---------------------------------------------- sql.Add(s); try open; except execsql; end; if ADOQuery1.RecordCount=0 then begin form1.DateTimePicker2.Datetime:=date; form1.DateTimePicker3.Datetime:=form1.DateTimePicker2.Datetime end else begin form1.DateTimePicker2.Datetime:=form1.ADOQuery1.FieldByName('strReceiptDate').AsDateTime; form1.DateTimePicker3.Datetime:=form1.ADOQuery1.FieldByName('strDueDate').AsDateTime; end end;------------------------------------ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/16 19:19:17 | ||||
| 1楼： | 用#试试！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/16 20:24:46 | ||||
| 2楼： | like "'+tj+'%"';应该为 like ''+tj+'%'' ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/16 21:57:37 | ||||
| 3楼： | like "'+tj+'%"';应该为 like ''%+tj+'%'' ---------------------------------------------- ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/16 23:06:48 | ||||
| 4楼： | like "'+tj+'%"' 这样应该也支持吧 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/16 23:09:13 | ||||
| 5楼： | 你这里的tj等于多少啊？ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
