以文本方式查看主题

-  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


--  作者: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号以后和未结清的数据,而不能加载上月整个月的数据.