If Tables("流水线生产进度_Table7").Current IsNot Nothing Then
Dim ddh As String = Tables("流水线生产进度_Table7").Current("订单号")
Dim ys As String = Tables("流水线生产进度_Table7").Current("颜色")
Dim cm As String = Tables("流水线生产进度_Table7").Current("尺码")
Tables("流水线生产进度_Table5").Fill(" select 款号,颜色,尺码,工序号,工序名,SUM(件数) as 件数,订单号,制单号,客款号,货品名,系列 F ROM [xsc_erp].[dbo].[派发工序表] where 单据状态 = '已完成' and 订单号='" & ddh & "' and 颜色='" & ys & "' and 尺码='" & cm & "' group by 订单号,制单号,款号,客款号,货品名,系列,颜色,尺码,工序号,工序名 order by 工序号","xsc_erp",True)
End If
DataTables ("流水线生产进度_Table5").Load()
加好友 
发短信
Post By：2019/8/19 13:16:00 [显示全部帖子]
