cmd.CommandText=" s elect t1.来源,t1.来源罐号,t1.入罐号,t1.批次,t1.产品名称,t1.车船号,t1.产地,t1.入库量,t1.转基因,t1.入库日期 from 罐区入库 t1 inner join ("& cpgqck &") t2 on t1.批次= t2.批次 And t1.入罐号= t2.来源罐号 And t1.产品名称=t2.产品名称 "
Dim gqrk As String=" S elect t1.来源,t1.来源罐号,t1.入罐号,t1.批次,t1.产品名称,t1.车船号,t1.产地,t1.入库量,t1.转基因,t1.入库日期 from 罐区入库 t1 inner join ("& cpgqck &") t2 on t1.批次= t2.批次 And t1.入罐号= t2.来源罐号 And t1.产品名称=t2.产品名称 "
Tables("追溯第二版_cpgqrk").DataSource =cmd.ExecuteReader
''找精炼,批次 名称 罐号
cmd.CommandText="s elect t1.车间名称, t1.原料油罐号,t1.原料油名称,t1.原料油批次,t1.成品油名称,t1.成品油流向罐,t1.原料油领用日期,t1.成品油出库日期,t1.磷酸批次,t1.液碱批次,t1.柠檬酸批次,t1.活性白土批次,t1.凹凸棒批次,t1.助滤土批次,t1.活性炭批次 from 精炼环节 t1 inner join ("& gqrk &") t2 on t1.原料油批次 = t2.批次 And t1.原料油名称= t2.产品名称 And t1.原料油罐号= t2.入罐号 And t1.原料油领用日期= t2.入库日期 "
Tables("追溯第二版_jl").DataSource =cmd.ExecuteReader
上面的语句个人感觉很不合理，但又不知道怎么优化， 后面还有。层层嵌套，效率是不是很低啊 怎么优化好些啊
加好友 
发短信
Post By：2020/10/25 1:07:00 [只看该作者]
