Dim g As New CrossTableBuilder("统计表1", DataTables("随件卡"))
g.HGroups.AddDef("客户名称")
g.HGroups.AddDef("产品种类")
g.HGroups.AddDef("产品名称")
g.HGroups.AddDef("产品代码")
g.HGroups.AddDef("工序代码")
g.VGroups.AddDef("加工时间", "{0}月")
g.Totals.AddDef("计数数量", "产量")
g.Totals.AddDef("加工数量")
Dim dt As DataTable = g.Build(True)
Dim dict As new Dictionary(of String ,String)
For Each c As DataCol In dt.DataCols
If c.name.Contains("_") Then
dict.Add(c.Caption,c.Name)
End If
Next
Dim yf() As String = {"","一","二","三","四","五","六","七","八","九","十","十一","十二"}
For Each dr As DataRow In dt.DataRows
Dim ndr As DataRow = DataTables("产品表").Find(CExp("客户名称='{0}' and 产品种类='[1}' and 产品代码='{2}' and 工序代码='{3}' and 产品名称='{4}'",dr("客户名称"),dr("产品种类"),dr("产品代码"),dr("工序代码"),dr("产品名称")))
If ndr Is Nothing Then
ndr = DataTables("产品表").AddNew()
ndr("客户名称") = dr("客户名称")
End If
For Each c As String In dict.Keys
Dim str() As String = c.Split("_")
If str(0) = "空" Then Continue For
Dim yue As String = yf(val(str(0).trim("月"))) & "月分_"
If str(1) = "产量" Then
ndr(yue & str(1)) = dr(dict(c))
Else
ndr(yue & "合格率") = dr(dict(str(0) & "_产量")) / dr(dict(c))
End If
Next
Next
加好友 
发短信
Post By：2018/1/5 20:13:00 [显示全部帖子]
