专家坐堂-insert into用法请教Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cmd As New SQL Command

Dim dt As Da taTable

cmd.C onnec tionNa me = "ce s hi"

cmd.Comman dText = "SEL E CT top 2000 a.fbillno as 单据编号,c.Fname as 供应商 ,a.fdate as 日期 ,h.FName as 部门,d.fname as 物料名称,d.FModel as 规格型号,i.fname As 单位 ,e.Fname As 币别,b.FQty As 数量, " & _

" j.FName As 业务员,g.fname As 制单人 ,f.fname As 审核人, a.FCheckDate As 审核时间 From POOrder a left join POOrderentry b on a.finterid = b.finterid " & _

" left join t_Supplier c on a.FSupplyID = c.FItemID left join t_ICItem d on b.fitemid = d.fitemid left join t_Currency e on a.FCurrencyID = e.FCurrencyID left join t_User f on a.fcheckerid = f.FUserID " & _

" left join t_User g on a.FBillerID = g.fuserid left join t_Department h on a.FDeptID = h.fitemid left join t_MeasureUnit i on b.fUnitID = i.FMeasureUnitID left join t_emp j on a.FEmpID = j.fitemid" & filter

dt = cmd.ExecuteReader()

Tables("采购订单查询_Table1").DataSource = dt