- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 一直出现提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146245)
-- 发布时间：2020/2/19 22:38:00
-- [求助] 一直出现提示
你好，老师，如图，一直出现这个错误。已经将表“物料”中 的列 Project 改成备注型了，代码如下，可还出现这个窗口。谢谢。
Dim g As New GroupTableBuilder("Qry", DataTables("物料"))
g.Groups.AddDef("ETD", DateGroupEnum.None)
g.Groups.AddDef("PartNo")
g.Totals.AddDef("Demand")
g.Totals.AddDef("Stock")
g.Totals.AddDef("QC")
g.Totals.AddDef("MissingQty")
g.Groups.AddDef("库存数量")
g.Groups.AddDef("QC数量")
g.Groups.AddDef("DeliveryDate",DateGroupEnum.None)
g.Groups.AddDef("OpenPurQty")
g.Groups.AddDef("UnqualifiedQty")
g.Groups.AddDef("Remark_1")
g.Groups.AddDef("Buyer")
g.Groups.AddDef("Remark_Planner")
g.Groups.AddDef("Supplier")
g.Groups.AddDef("Supplier_2")
\'g.Groups.AddDef("批号")
\'g.Groups.AddDef("BOM")
g.Groups.AddDef("PartDesc")
g.Groups.AddDef("KanBan")
g.Groups.AddDef("委外表面处理")
g.Groups.AddDef("CriticalPart")
g.Groups.AddDef("CustomerPO")
g.Groups.AddDef("EndCustomer")
g.Groups.AddDef("ETA")
\'g.Groups.AddDef("Project")
g.Groups.AddDef("RequestETA")
g.Groups.AddDef("ConfirmedETA")
g.Groups.AddDef("ShippingTerms")
g.Groups.AddDef("PurchasingOrder")
g.Groups.AddDef("SE")
g.Groups.AddDef("DeliveryNote")
g.Filter = "ETD is not null"
g.Build()
MainTable = Tables("Qry")
DataTables("Qry").DataCols.Add("Project",Gettype(String))
For Each dr As DataRow In DataTables("Qry").DataRows
dr("Project") = DataTables("物料").GetComboListString("Project", "PartNo=\'" & dr("PartNo") & "\' And ETD=#" & dr("ETD") & "#").Replace("|",",")
Next
DataTables("Qry").DataCols.Add("BOM",Gettype(String))
For Each dr As DataRow In DataTables("Qry").DataRows
dr("BOM") = DataTables("物料").GetComboListString("BOM", "PartNo=\'" & dr("PartNo") & "\' And ETD=#" & dr("ETD") & "#").Replace("|",",")
Next
forms("Qry").open
此主题相关图片如下：捕获.png
-- 发布时间：2020/2/20 9:46:00
--
DataTables("Qry").DataCols.Add("Project",Gettype(String),255)
-- 发布时间：2020/2/20 18:14:00
--
谢谢老师，那长度超过255了，如何改成无限长的 ？
-- 发布时间：2020/2/21 0:15:00
--
255 是备注型 就是 无限长
-- 发布时间：2020/2/21 11:10:00
--
设置超过255的值即可
-- 发布时间：2020/2/22 13:50:00
--
-- 发布时间：2020/2/22 14:27:00
--
在Totals集合中添加一个统计列的语法如下：
Totals.AddDef(Name)
Totals.AddDef(Name, NewName)
Totals.AddDef(Name, NewName, NewCaption)
Totals.AddDef(Name, Aggregate)
Totals.AddDef(Name, Aggregate, NewName)
Totals.AddDef(Name, Aggregate, NewName, NewCaption)
参数说明
Name: 字符型，指定统计列。
NewName: 字符型，用于给统计列指定一个新的名称，这个名称在统计表中显示。
NewCaption: 字符型，用于给统计列设置标题。
Aggregate： AggregateEnum枚举型，用于指定统计类型，默认是求和。
AggregateEnum型枚举的可选值：
Average：平均值
Count： 记录数
Max： 最大值
Min： 最小值
Sum： 累积值
g.Totals.AddDef("Stock",AggregateEnum.Min)