Dim Filter1 As String = "制单人='" & _Username & "'"
Dim dr2 As DataRow
dr2 = DataTables("Users").Find("[Group] = '" & _UserGroup & "'")
Dim s As String
If dr2 IsNot Nothing Then
s = dr2("Xjry")
If s > "" Then
Filter1 = Filter1 & " or UserID in (" & s.Replace(",", ",") & ")"
End If
End If
Dim b As New SQLGroupTableBuilder("统计表1", "明细")
b.C
b.Groups.AddDef("品名")
b.Totals.AddExp("订购数量", "IIF(类型='冲帐',-1,1) * 数量") '
b.Totals.AddDef("金额", "订购金额") '
b.Filter = Filter
Tables("统计_Table1").DataSource = b.BuildDataSource()
条件没起作用,还是全部后台数据