这样就基本不用改代码:
Dim sql0 As String = "Select *, 废品数量As 废品数量1 FROM {日常废品录入} where {日常废品录入}.录入时间 between '" & d1 & "' and '" & d2 & "' and {日常废品录入}.生产线f in (" & s & ") and substring({日常废品录入}.材质规格f,1,2) in (" & s1 & ") and {日常废品录入}.发生工序 <> '成工退废' and {日常废品录入}.发生工序 <> '长征退废' "
Dim b As New CrossTableBuilder("统计表1",sql0, "yun")
b.HGroups.AddDef("货品编号")
b.VGroups.AddDef("废品原因","内废原因_{0}")
b.Totals.AddDef("废品数量1")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Filter = "[废品原因]<> '回用'"
Dim dt As fxDataSource
b.FromServer = True
dt=b.BuildDataSource()
另一个改为2或其他名称