G
gblovezx
Unregistered / Unconfirmed
GUEST, unregistred user!
我的sql语句
strSql1 := 'select b.商品名称,b.规格型号,Sum(b.数量) as 总数量,b.单价,Sum(b.金额) as 总金额,Sum(b.税额) 总税额 '+ ' from 销项发票.DB a,销项发票销货清单.DB b ,bh_invoice.DB c '+ ' where c.类别代码=b.类别代码 and c.发票号码=b.发票号码 and a.类别代码=c.类别代码 and a.发票号码=c.发票号码 and c.购方名称<>'''' and c.类别代码<>'''' and a.作废标志=false and a.所属月份='+cbbY.Text+''+' group by b.规格型号,b.商品名称,b.单价';
strSql2 := 'select b.商品名称,b.规格型号,Sum(b.数量) as 总数量,b.单价,Sum(b.金额) as 总金额,Sum(b.税额) 总税额 '+' from 销项发票.DB a,销项发票明细.DB b,bh_invoice.DB c '+' where c.类别代码=b.类别代码 and c.发票号码=b.发票号码 and a.类别代码=c.类别代码 and a.发票号码=c.发票号码 and c.购方名称<>'''' and c.类别代码<>'''' and a.作废标志=false and b.商品名称 not like '''+'%详见销货清单%'+''''+' and a.所属月份='+cbbY.Text+''+ group by b.规格型号,b.商品名称,b.单价';
strSql := strSql1 + ' union ALL ' + strSql2+' order by 规格型号 desc';
try
qry1.Close;
qry1.DatabaseName := pub_DataBaseName;
qry1.SQL.Clear;
qry1.SQL.Text := [red]strSql ; [/red]
qry1.Open;
except
on E:Exception do
ShowErr('数据库查询失败!'+#13+E.Message);
end;
上面的语句查询出来就多了一行空行,分别查询strSql1,strSql2 就好着,大侠告诉我为什么?怎么能解决,谢谢了。
strSql1 := 'select b.商品名称,b.规格型号,Sum(b.数量) as 总数量,b.单价,Sum(b.金额) as 总金额,Sum(b.税额) 总税额 '+ ' from 销项发票.DB a,销项发票销货清单.DB b ,bh_invoice.DB c '+ ' where c.类别代码=b.类别代码 and c.发票号码=b.发票号码 and a.类别代码=c.类别代码 and a.发票号码=c.发票号码 and c.购方名称<>'''' and c.类别代码<>'''' and a.作废标志=false and a.所属月份='+cbbY.Text+''+' group by b.规格型号,b.商品名称,b.单价';
strSql2 := 'select b.商品名称,b.规格型号,Sum(b.数量) as 总数量,b.单价,Sum(b.金额) as 总金额,Sum(b.税额) 总税额 '+' from 销项发票.DB a,销项发票明细.DB b,bh_invoice.DB c '+' where c.类别代码=b.类别代码 and c.发票号码=b.发票号码 and a.类别代码=c.类别代码 and a.发票号码=c.发票号码 and c.购方名称<>'''' and c.类别代码<>'''' and a.作废标志=false and b.商品名称 not like '''+'%详见销货清单%'+''''+' and a.所属月份='+cbbY.Text+''+ group by b.规格型号,b.商品名称,b.单价';
strSql := strSql1 + ' union ALL ' + strSql2+' order by 规格型号 desc';
try
qry1.Close;
qry1.DatabaseName := pub_DataBaseName;
qry1.SQL.Clear;
qry1.SQL.Text := [red]strSql ; [/red]
qry1.Open;
except
on E:Exception do
ShowErr('数据库查询失败!'+#13+E.Message);
end;
上面的语句查询出来就多了一行空行,分别查询strSql1,strSql2 就好着,大侠告诉我为什么?怎么能解决,谢谢了。