请大家看看这条语句有什么错误？

[xxsteven]

Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * from main');
if ComboBox3.Text<>'' then
Query1.SQL.Add('where nsmc='''+ComboBox3.Text+'''');
if ComboBox4.Text<>'' then
Query1.Sql.Add('AND qiyecode='''+ComboBox4.Text+'''');
Query1.Sql.Add(' AND date between '''+
FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date) +''' and '''+
FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date) + '''');
Query1.Open;
ShowMessage('欢迎使用，一共查询到的记录数是：'+IntToStr(Query1.RecordCount));

在时间段那里有错误，不知道为什么？说是类型不匹配

[xxsteven]

请大家看看呀

[xxsteven]

怎么没有人说话呢？

[firetoucher]

?没有看出类型匹配的问题啊
1 如果当你的ComboBox3.Text = ''但ComboBox4.Text<>''是肯定出错
2 行末加空格试试

[xxsteven]

好，我try

[xxsteven]

你是对的，好象是有问题，我该怎么写这个程序呢？我的想法是他们都是or的关系 ，可以 全部是条件也可以只有一个是条件，怎么写呢？

[firetoucher]

var
strwhere:string;
begin
...//前面一样
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * from main');

strwhere:= '';
if ComboBox3.Text<>'' then
strwhere:= strwhere + ' nsmc='''+ComboBox3.Text+'''';
if ComboBox4.Text<>'' then
strwhere:= strwhere + 'AND qiyecode='''+ComboBox4.Text+''' AND date between '''+
FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date) +''' and '''+
FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date) + '''';
if strwhere<>'' then
Query1.Sql.Add(' where ' + strwhere);

Query1.Open;

[firetoucher]

错了，应该是
strwhere:= '';
if ComboBox3.Text<>'' then
strwhere:= strwhere + ' nsmc='''+ComboBox3.Text+'''';
if ComboBox4.Text<>'' then
begin
if strwhere<>'' then
strwhere := strwhere + ' and ';
strwhere:= strwhere + ' qiyecode='''+ComboBox4.Text+''' AND date between '''+
FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date) +''' and '''+
FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date) + '''';
end;
if strwhere<>'' then
Query1.Sql.Add(' where ' + strwhere);

[tw829]

up