不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

俺还是那个问题？

楼主xxsteven（）2001-11-24 22:19:16 在 Delphi / VCL组件开发及应用提问

Query1.Sql.Add(' Select * From 入库单表 Where 数量'+ylksubfind.Combobox1.Text+ylksubfind.Edit4.Text); 问题点数：20、回复次数：12Top

1 楼lover6（东问西答）回复于 2001-11-24 22:24:20 得分 0

Query1.Sql.Add(' Select * From 入库单表 Where 数量'+ylksubfind.Combobox1.Text+''''+ylksubfind.Edit4.Text+'''');Top

2 楼tikkypeng（千两狂死郎之天衣有缝）回复于 2001-11-24 22:43:18 得分 0

你跟踪一下看看SQL语句最后结果是不是你想要的～Top

3 楼tikkypeng（千两狂死郎之天衣有缝）回复于 2001-11-24 22:47:00 得分 0

Query1.Sql.Add(' Select * From 入库单表 Where 数量'+ylksubfind.Combobox1.Text+ylksubfind.Edit4.Text);

如果ylksubfind.Combobox1.Text的内容为'='～～～～
ylksubfind.Edit4.Text的内容等于'700'～～～～～

则SQL语句最后应该是Select * From 入库单表 Where 数量＝700～～～～

Top

4 楼xxsteven（）回复于 2001-11-24 23:15:19 得分 0

if ylksubfind.Edit4.Text<>''and ylksubfind.Edit4.Text<>''then
这局有什么问题呢？Top

5 楼xxsteven（）回复于 2001-11-24 23:16:11 得分 0

if ylksubfind.Edit4.Text<>''and ylksubfind.comobox1.Text<>'' then
刚刚打错了Top

6 楼tikkypeng（千两狂死郎之天衣有缝）回复于 2001-11-24 23:18:55 得分 0

条件多余一个～～要用括号的～～
if (ylksubfind.Edit4.Text<>'') and (ylksubfind.comobox1.Text<>'') thenTop

7 楼xxsteven（）回复于 2001-11-24 23:29:51 得分 0

if (ylksubfind.Edit4.Text<>'') and (ylksubfind.ComboBox1.Text<>'') then
Query1.Sql.Add(' Select * From 入库单表 Where 数量'+ylksubfind.Combobox1.Text+''''+ylksubfind.Edit4.Text+'''');

这个样子还是查不出来Top

8 楼xxsteven（）回复于 2001-11-24 23:30:20 得分 0

符号匹配的饿问题太麻烦了Top

9 楼tikkypeng（千两狂死郎之天衣有缝）回复于 2001-11-24 23:38:14 得分 20

这样就行了～～最后不要加那些引号

if (ylksubfind.Edit4.Text<>'') and (ylksubfind.ComboBox1.Text<>'') then
Query1.Sql.Add(' Select * From 入库单表 Where 数量'+ylksubfind.Combobox1.Text+ylksubfind.Edit4.Text);Top

10 楼xxsteven（）回复于 2001-11-24 23:54:00 得分 0

还是不行的马，查不出来，我给你看说有的代码
procedure Tylkintof.Button1Click(Sender: TObject);
begin
if ylksubfind.showModal=mrOK then
begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * from 入库单表');
Query1.Sql.Add('where 产品名称<>''''');
if ylksubfind.Edit1.Text<>'' then
Query1.Sql.Add('And 产品名称='''+ylksubfind.Edit1.Text+'''');
if (ylksubfind.Edit4.Text<>'') and (ylksubfind.ComboBox1.Text<>'') then
Query1.Sql.Add(' Select * From 入库单表 Where 数量'+ylksubfind.Combobox1.Text+ylksubfind.Edit4.Text);
if ylksubfind.Edit3.Text<>''then
Query1.Sql.Add('And 单据号='''+ylksubfind.Edit3.Text+'''');
Query1.Open;
end;
end;Top

11 楼xxsteven（）回复于 2001-11-24 23:57:00 得分 0

对了，我调出来了，谢谢
马上给分哈
还有一个问题
不等于的符号是什么呢？
Top

12 楼lover6（东问西答）回复于 2001-12-02 19:32:27 得分 0

<>Top