以下是引用狐狸爸爸在2013-3-12 14:37:00的发言:
这样就基本不用改代码:
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或其他名称
老大太厉害了,谢谢啊,搞了一天了,头都大了,大谢谢了!!1
自己真太菜了!!撞墙!!!
[此贴子已经被作者于2013-3-12 15:09:51编辑过]