- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么加上时间区分 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114205)
-- 发布时间：2018/1/31 16:37:00
-- 怎么加上时间区分
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 filter As String = "1=1"
If dr.Isnull("客户名称") Then
filter &= " and 客户名称 is null"
Else
filter &= " and 客户名称 = \'" & dr("客户名称") & "\'"
End If
If dr.Isnull("产品种类") Then
filter &= " and 产品种类 is null"
Else
filter &= " and 产品种类 = \'" & dr("产品种类") & "\'"
End If
If dr.Isnull("产品代码") Then
filter &= " and 产品代码 is null"
Else
filter &= " and 产品代码 = \'" & dr("产品代码") & "\'"
End If
If dr.Isnull("工序代码") Then
filter &= " and 工序代码 is null"
Else
filter &= " and 工序代码 = \'" & dr("工序代码") & "\'"
End If
If dr.Isnull("产品名称") Then
filter &= " and 产品名称 is null"
Else
filter &= " and 产品名称 = \'" & dr("产品名称") & "\'"
End If
Dim ndr As DataRow = DataTables("产品表").Find(filter)
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
如果想按每个月的25号刀下个月25号为一个月份区间 这段代码应该怎么修改呢 密码1
-- 发布时间：2018/1/31 16:40:00
--
此主题相关图片如下：qq图片20180131163312.png
-- 发布时间：2018/1/31 16:40:00
--
此主题相关图片如下：qq图片20180131163332.png
-- 发布时间：2018/1/31 16:59:00
--
参考 http://www.foxtable.com/webhelp/scr/2962.htm
-- 发布时间：2018/2/22 13:42:00
--
我是用窗口写的代码 那应该怎么改呢
-- 发布时间：2018/2/22 14:32:00
--
直接用帮助文档的代码，有什么问题吗？
窗口table绑定表格，参考 http://www.foxtable.com/webhelp/scr/1909.htm
-- 发布时间：2018/2/22 15:22:00
--
此主题相关图片如下：360截图16560319336446.png
此主题相关图片如下：360截图166403308571108.png
是我没理解代码的意思 改完以后运行错误
此主题相关图片如下：360截图16581120284346.png
-- 发布时间：2018/2/22 15:50:00
--
1、随卡表，加一个列【统计日期】，然后，输入【加工时间】的时候，计算统计日期；
2、不要根据加工时间，要根据统计日期，计算出统计表；
3、其余代码不变。
-- 发布时间：2018/2/22 16:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:丹东隆盛机加管理平台3.zip |
-- 发布时间：2018/2/22 16:06:00
--
没弄明白
密码1 麻烦老师了