主题：[求助] 一直出现提示

你好，老师，如图，一直出现这个错误。已经将表“物料”中 的列 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

DataTables("Qry").DataCols.Add("Project",Gettype(String),255)

谢谢老师，那长度超过255了，如何改成无限长的 ？

255  是备注型  就是 无限长  

设置超过255的值即可

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