你好，老师，如图，一直出现这个错误。已经将表“物料”中 的列 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
加好友 
发短信
Post By：2020/2/19 22:38:00 [只看该作者]
