以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何加载未加裁的数据？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1308)
--  作者：号子
--  发布时间：2008/12/3 19:11:00
--  [求助]如何加载未加裁的数据？
我设置了加载条件，有时想加载过滤掉的数据，如何动态加载啊？不会是把项目管理里的代码删了重启吧，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:汽车管理系统.table
--  作者：czy
--  发布时间：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按钮，试验有点麻烦，唉，还是求教吧。
--  作者：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
--  作者：号子
--  发布时间：2008/12/5 9:23:00
--  

报错e.DataTable.Load()
而且只加载上月以来的，而之前所有没结清的数据都没有加载，用and合并不对？
--  作者：czy
--  发布时间：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()

--  作者：gdtgl
--  发布时间：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
--  作者：czy
--  发布时间：2008/12/5 12:47:00
--  
Date.Today().Addmonths(-1)
这样不严谨的，假设今天是10号，那么它只能加载上月10号以后和未结清的数据，而不能加载上月整个月的数据.