Delphi XE TVirtualQuery raised exception class ESQLiteError with message 'duplicate column name:dw'

使用Delphi XE7+UniDAC+TVirtualQuery开发的过程中,对已经查询到内存中的数据集TUniQuery组件,再次运用SQL语句进行查询

结果程序运行后提示错误:raised exception class ESQLiteError with message 'duplicate column name:dw'

TUniQuery组件使用的查询语句为

SELECT a.djlx,c.spmch,c.dw,b.dw AS rkdw 
inner join CAI_GRKMX b on a.djbh=b.djbh 
inner join ZL_SHANGP c on b.spid=c.spid 

TVirtualQuery组件使用的语句是

SELECT djlx,MIN(spmch) AS spmch,MIN(dw) AS dw,MIN(rkdw) AS rkdw 
FROM unqry_Hzb GROUP BY djlx

问题分析:跟踪程序代码,错误是在TVirtualQuery执行查询时发生的,尝试修改TUniQuery的语句为以下语句后正常

SELECT a.djlx,c.spmch,c.dw,LTRIM(b.dw) AS rkdw 
inner join CAI_GRKMX b on a.djbh=b.djbh 
inner join ZL_SHANGP c on b.spid=c.spid 

总结:理论上讲第一次查询时使用了别名,不会出现重复列的问题,也许TUniQuery会拿到原来的列源信息;这样使用一个不影响结果的函数进行概况后可以了。

原文地址:https://www.cnblogs.com/sdlz/p/13725001.html