Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:汽车管理系统.table |
问题是多条件,不知道如何合并
If e.DataTableName = "总表" Then
e.Filter = "[运费结算_结清] = false"
End If
If e.DataTableName = "总表" Then
Dim StartDate As Date = Date.Today().Addmonths(-1)
e.Filter = "[卸车_日期] > #" & StartDate & "# "
End If
条件是所有未结清的记录及上个月以来的所有数据,我还没做好LOAD按钮,试验有点麻烦,唉,还是求教吧。
报错e.DataTable.Load()
而且只加载上月以来的,而之前所有没结清的数据都没有加载,用and合并不对?
按钮代码我想应该是这样吧。
Dim today As Date = Date.Today()
Dim StartDate AS date = New Date(today.Year, today.Addmonths(-1).Month, 1)
DataTables("总表").LoadFilter = "[运费结算_结清] = false or [装车_日期] >= #" & StartDate & "#"
DataTables("总表").Load()