跨表筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有包装就可以判定最后一序

产品代码+年月+序号数（如果是这个月第一次输入该产品就显示01 第二次生产该产品就显示0.2 以此类推）

Select e.DataCol.Name

Case "加工时间","产品代码","工序代码"

If e.DataRow.IsNull("加工时间") OrElse e.DataRow.IsNull("产品代码") OrElse e.DataRow.IsNull("工序代码") OrElse e.DataRow("工序代码").Contains("包装") = False Then

e.DataRow("产品批次代码") = Nothing

Else

Dim d As Date = e.DataRow("加工时间")

Dim y As Integer = d.Year

Dim m As Integer = d.Month

Dim Days As Integer = Date.DaysInMonth(y,m)

Dim fd As Date = New Date(y,m,1) '获得该月的第一天

Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天

Dim bh As String = e.DataRow("产品代码") & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀

If e.DataRow("产品批次代码").StartsWith(bh) = False '如果单据编号前缀不符

Dim max As String

Dim idx As Integer

Dim flt As String

flt = "产品代码 = '"& e.DataRow("产品代码") & "' And 加工时间 >= #" & fd & "# And 加工时间 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

max = e.DataTable.Compute("Max(产品批次代码)",flt) '取得该月的相同工程代码的最大单据编号

If max > "" Then '如果存在最大单据编号

idx = CInt(max.Substring(12,4)) + 1 '获得最大单据编号的后四位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("产品批次代码") = bh & Format(idx,"0000")

End If

End Select

此主题相关图片如下：1.png

上面代码只能实现产品批次代码不能实现对每个月份的每道工序产品加工数量的统计啊？如果想实现这个应该怎么办？

不管年份，只要是1月份的就合并统计？

是的可以现在就是先初步使用一段时间，等有效果再找老板批款卖商业版的

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

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))