- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何加载未加裁的数据？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1308)
-- 发布时间：2008/12/3 19:11:00
-- [求助]如何加载未加裁的数据？
我设置了加载条件，有时想加载过滤掉的数据，如何动态加载啊？不会是把项目管理里的代码删了重启吧，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:汽车管理系统.table |
-- 发布时间：2008/12/3 20:24:00
--
可以在窗口做按钮进行重新加载，如：
DataTables("总表").LoadFilter = "True"
DataTables("总表").Load()
-- 发布时间：2008/12/4 8:23:00
--
加载上个月以来所有数据及所有没通过运费结算_结清审核的数据如何定义条件啊？
-- 发布时间：2008/12/4 9:01:00
--
用LoadFilter设置条件即可啊。
-- 发布时间：2008/12/5 8:19:00
--
问题是多条件，不知道如何合并
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按钮，试验有点麻烦，唉，还是求教吧。
-- 发布时间：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
-- 发布时间：2008/12/5 9:23:00
--
报错e.DataTable.Load()
而且只加载上月以来的，而之前所有没结清的数据都没有加载，用and合并不对？
-- 发布时间：2008/12/5 12:40:00
--
按钮代码我想应该是这样吧。
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()
-- 发布时间：2008/12/5 12:45:00
--
If e.DataTableName = "总表" Then
Dim StartDate As Date = Date.Today().Addmonths(-1)
e.Filter = "[运费结算_结清] = false or [卸车_日期] > #" & StartDate & "# "
End If
-- 发布时间：2008/12/5 12:47:00
--
Date.Today().Addmonths(-1)
这样不严谨的，假设今天是10号，那么它只能加载上月10号以后和未结清的数据，而不能加载上月整个月的数据.