窗口一个表，绑定《可用余额》，可用余额=回款-费用，回款=各个分公司明细按条件统计而来，如下图：
此主题相关图片如下：1111.png
代码如下：
Dim sd As WinForm.DateTimePicker = e.Form.Controls("sd")
Dim ed As WinForm.DateTimePicker = e.Form.Controls("ed")
Dim filter As String
Dim t As WinForm.Table = e.Form.Controls("Table1")
If sd.Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & sd.Value & "#"
End If
If ed.Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & ed.Value & "#"
End If
If Tables("可用余额").Current("分公司") IsNot Nothing Then ‘如果找分公司，则《可用余额》的“回款_其它老”=此分公司Filter时间段、年份不等于2013的收款方式不等于承兑的回款金额之和，后面三条类似。
Tables("可用余额").Current("回款_其它老") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = '" & Tables("可用余额").Current("分公司") & "' and 收款方式 <> '承兑' and & filter & and 年份 <> 2013 ")
Tables("可用余额").Current("回款_其它新") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = '" & Tables("可用余额").Current("分公司") & "' and 收款方式 <> '承兑' and filter and 年份 = 2013 ")
Tables("可用余额").Current("回款_承兑老") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = '" & Tables("可用余额").Current("分公司") & "' and 收款方式 = '承兑' and filter and 年份 <> 2013 ")
Tables("可用余额").Current("回款_承兑新") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = '" & Tables("可用余额").Current("分公司") & "' and 收款方式 = '承兑' and filter and 年份 = 2013 ")
End If
结果提示：filter错误
大师：哪儿出错了？
加好友 
发短信
Post By：2013/5/1 13:17:00 [显示全部帖子]
