Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Conn ect ionN ame = "ce shi"
cmd.CommandText = "S ELE CT fbillno as 单据编号,{t_Supplier}.Fname as 供应商 ,{POOrder}.fdate as 日期 ,{t_Department}.FName as 部门,{t_ICItem}.fname as 物料名称,{t_ICItem}.FModel as 规格型号,{POOrderEntry}.FQty as 数量 From ((({POOrder} left join {t_Supplier} on {POOrder}.FSupplyID = {t_Supplier}.FItemID) left join {t_Department} on {POOrder}.FDeptID = {t_Department}.FItemID) inner join {POOrderEntry} on {POOrder}.FInterID = {POOrderEntry}.FInterID) inner join {t_ICItem} on {POOrderEntry}.FItemID = {t_ICItem}.FItemID"
dt = cmd.ExecuteReader()
Tables("窗口1_Table1").DataSource = dt