Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共12 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[求助]如何加载未加裁的数据?

1楼
号子 发表于:2008/12/3 19:11:00
我设置了加载条件,有时想加载过滤掉的数据,如何动态加载啊?不会是把项目管理里的代码删了重启吧,
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:汽车管理系统.table

2楼
czy 发表于:2008/12/3 20:24:00
可以在窗口做按钮进行重新加载,如:

DataTables("总表").LoadFilter = "True"
DataTables("总表").Load()
3楼
号子 发表于:2008/12/4 8:23:00
加载上个月以来所有数据及所有没通过运费结算_结清审核的数据如何定义条件啊?
4楼
狐狸爸爸 发表于:2008/12/4 9:01:00
用LoadFilter设置条件即可啊。
5楼
号子 发表于: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按钮,试验有点麻烦,唉,还是求教吧。

6楼
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
7楼
号子 发表于:2008/12/5 9:23:00

报错e.DataTable.Load()
而且只加载上月以来的,而之前所有没结清的数据都没有加载,用and合并不对?

8楼
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()

9楼
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
10楼
czy 发表于:2008/12/5 12:47:00
Date.Today().Addmonths(-1)
这样不严谨的,假设今天是10号,那么它只能加载上月10号以后和未结清的数据,而不能加载上月整个月的数据.
共12 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.