生产报表判断订单是否完成

236467987

hope9966 发表于 2016-1-21 09:46
哪就不让他累加，我们只取第一天的订单数就可以了

正好我也可以借鉴这个，谢谢。

LMY123

'http://club.excelhome.net/forum.php?mod=viewthread&tid=1255209
Sub Test4BBB()
  Dim Conn As Object, Rst As Object
  Dim strConn As String, strSQL As String
  Dim i As Integer, PathStr As String
  Set Conn = CreateObject("ADODB.Connection")
  Set Rst = CreateObject("ADODB.Recordset")
  PathStr = ThisWorkbook.FullName '设置工作簿的完整路径和名称
  Select Case Application.Version * 1  '设置连接字符串,根据版本创建连接
  Case Is <= 11
  strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
  Case Is >= 12
  strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
  End Select
  '设置SQL查询语句
  strSQL = "select *,(SELECT IIF(订单数>sum(生产数),'否','是') FROM [数据源$]A WHERE A.拉别='打包' AND A.工单号=B.工单号 GROUP BY 工单号,订单数)  as 完成状态 FROM [数据源$]B where 日期"
  Conn.Open strConn  '打开数据库链接
  Set Rst = Conn.Execute(strSQL)  '执行查询，并将结果输出到记录集对象
  With Sheet4
  .Cells.Clear
  For i = 0 To Rst.Fields.Count - 1  '填写标题
    .Cells(1, i + 1) = Rst.Fields(i).Name
  Next i
  .Range("A2").CopyFromRecordset Rst
  .Cells.EntireColumn.AutoFit '自动调整列宽
  .Cells.EntireColumn.AutoFit '自动调整列宽
  End With
  Rst.Close  '关闭数据库连接
  Conn.Close
  Set Conn = Nothing
  Set Rst = Nothing
End Sub

jygzcj

strSQL = "[数据源$] A left join (select 工单号,iif(订单数>sum(生产数),'否','是') as 状态 from [数据源$] where 拉别='打包' group by 工单号,订单数) B on A.工单号=B.工单号"

jygzcj

wuxiang_123 发表于 2016-1-22 00:02
select *,(SELECT IIF(订单数>sum(生产数),'否','是') FROM [数据源$]A WHERE A.拉别='打包' AND A.工单号= ...

where 日期 这个条件 是起什么用的？