这是代码，加了Filter后还是不行！ 统计出来还是2个费用的合计，不是管理费的合计
Dim bb As WinForm.Button = e.Form.Controls("Button2")
Dim tb As WinForm.Table = e.Form.Controls("Table1")
Dim dqq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dqz As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim a As String
Dim b As String
a=""
b=""
If CLDate(dqq.Value)<>"一年一月一日"
a="日期>='"+dqq.Value+"'"
End If
If CLDate(dqq.Value)="一年一月一日" And CLDate(dqz.Value)<>"一年一月一日" Then
b="日期<='"+dqz.Value+"'"
End If
If CLDate(dqq.Value)<>"一年一月一日" And CLDate(dqz.Value)<>"一年一月一日" Then
b="and 日期<='"+dqz.Value+"'"
End If
If a <>"" And b <>"" And dqq.Value > dqz.Value
tb.Visible=False
MessageBox.Show("时间填写不对!")
Return
End If
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("规费记录"))
Dim dt1 As fxDataSource
bd1.Filter = "[费别] = '管理费'"
bd1.Groups.AddDef("日期","月")
bd1.Totals.AddDef("金额","管理费")
bd1.Totals.AddDef("返利","代办返利")
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("公司支出"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("日期","月")
bd2.Totals.AddDef("金额","营业支出")
dt2 = bd2.BuildDataSource()
dt1.Combine("月",dt2,"月")
Tables("经营报表_Table1").DataSource = dt1
With DataTables("经营报表_Table1").DataCols
.Add("纯利润",Gettype(Double), "IsNull([管理费],0) + IsNull([代办返利],0) - IsNull([营业支出],0)")
End With
For Each r As Row In Tables("经营报表_Table1").Rows
If r.IsNull("月") Then
r.Delete
End If
Next
tb.Visible=True
bb.Enabled=True
加好友 
发短信
Post By：2013/6/8 9:46:00 [显示全部帖子]
