Dim Filter1 As String =" S elec t *,'123' as 质检单编号 from (s e l e c t 存货编号,存货名称,规格型号,单位,数量,备注 from (s elect {到货单明细表}.[存货编号],{到货单明细表}.[存货名称],{到货单明细表}.[规格型号],{到货单明细表}.[单位],{到货单明细表}.[数量]-{质检单明细表}.[数量] as 数量,{到货单明细表}.[备注] from {到货单明细表},{质检单明细表}"
Dim Filter2 As String="where {到货单明细表}.[存货编号]={质检单明细表}.[存货编号] And {到货单明细表}.[到货单编号]='DH20150816002' and {质检单明细表}.[到货单编号]='DH20150816002') where [数量] not in (0) "
Dim Filter3 As String="UNION S elec t 存货编号,存货名称,规格型号,单位,数量,备注 from {到货单明细表} where [存货编号] not In (S elect [存货编号] from {质检单明细表} where {质检单明细表}.[到货单编号]='DH20150816002') and {到货单明细表}.[到货单编号] ='DH20150816002')x"
Dim Filter=Filter1+Filter2+Filter3
Messagebox.Show(Filter)
DataTables("质检不合格明细表").AppendLoad(Filter, False)
提示 我语法错误,是不是 我的filter 太长了,我运行sql 是可以执行的呢