好啦,XXXX,窗口及按钮还没做,还没学到呢,要一步一步来,到时如有问题现在顶帖.
以下是引用kylin在2008-12-5 8:23:00的发言：
If e.DataTableName = "总表" Then
Dim StartDate As Date = Date.Today().Addmonths(-1)
e.Filter = "[运费结算_结清] = false and [卸车_日期] > #" & StartDate & "# "
e.DataTable.Load()
End If
#" & StartDate & "# ，日期型变量引用的表达是这种格式吗