Dim pztbzfc As String = ""
pztbzfc = "S————E_LECT pzFL.FVoucherID,pzM.FDate as [date],pzM.FPeriod as [month],pzM.FGroupID,pzM.FNumber,pzM.FPosted as 记账标志,pzFL.FEntryID,pzFL.FExplanation as zy,pzFL.FAccountID as kmid,jej,jed," & _
" pzFL.FCurrencyID,pzFL.FExchangeRate,pzFL.FDC,pzFL.FAmountFor,pzFL.FAmount,pzFL.FQuantity,pzFL.FMeasureUnitID,pzFL.FUnitPrice,pzFL.FDetailID,pzfz.FName + '-' + Format(pzm.FNumber,'') as pzlbname,km.FNumber as kmid,km.FName as kmname,Item8.FName as xm,Item8.FNumber as xmdl,Item9.FName as xm2,Item9.FNumber as xmdl2,Item10.FName as xm3,Item10.FNumber as xmdl3,Item11.FName as xm4" & _
" FROM ((((((((t_Voucher As pzM INNER JOIN t_VoucherEntry As pzFL ON pzM.FVoucherID = pzFL.FVoucherID) left join t_VoucherGroup pzfz on pzM.FGroupID = pzfz.FGroupID) left join t_Account km on km.FAccountID = pzfl.FAccountID)" & _
" left JOIN t_ItemDetailV tailV ON pzfl.FDetailID = tailv.FDetailID)" & _
" left JOIN t_Item item8 ON item8.FItemID = tailv.fitemid And (tailv.fitemclassid = 1 Or tailv.fitemclassid = 8))" & _
" left JOIN t_Item item9 ON item9.FItemID = tailv.fitemid And (tailv.fitemclassid = 2))" & _
" left JOIN t_Item item10 ON item10.FItemID = tailv.fitemid And (tailv.fitemclassid = 3))" & _
" left JOIN t_Item item11 ON item11.FItemID = tailv.fitemid And (tailv.fitemclassid > 3 And tailv.fitemclassid <> 8))" & _
" where pzM.FYear = #[年]# And pzM.FPeriod<= 12 ORDER BY pzM.FPeriod,pzm.FNumber,pzM.FVoucherID,pzFL.FEntryID"