按时间自动复制表的多行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按时间自动复制表的多行

共有2881人关注过本帖树形打印复制链接主题：按时间自动复制表的多行

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/18 9:25:00 [显示全部帖子]

dim maxid as integer = DataTables("数据A").compute("max([_Identify])")

Dim f As New Filler '数据填充器

f.SourceTable = DataTables("数据A") '指定数据来源

f.Filter="日期='" & Date.today.AddDays(-1) & "'" '筛选昨天的数据

f.DataTable = DataTables("数据A") '指定数据接收表

f.Fill() '填充数据

DataTables("数据A").ReplaceFor("日期",Date.today,"日期='" & Date.today.AddDays(-1) & "' and [_Identify] >" & maxid ) '昨天的日期赋值为今天

DataTables("数据A").save

[此贴子已经被作者于2020/3/18 15:30:15编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/18 11:33:00 [显示全部帖子]

自己改错代码了吧

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/18 13:43:00 [显示全部帖子]

看4楼。或者上传实例测试

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/18 15:31:00 [显示全部帖子]

DataTables("表A").ReplaceFor("日期",Date.today,"日期='" & Date.today.AddDays(-1) & "' and [_Identify] >" & maxid ) '昨天的日期赋值为今天

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/18 16:33:00 [显示全部帖子]

1、使用find查询一下是否有日期为今天的数据：http://www.foxtable.com/webhelp/topics/0396.htm

if DataTables("数据A").Find("日期='" & Date.today & "' ") isnot nothing then

msgbox("已经添加")

else

上面添加的代码

end if

2、帮助仔细看看：http://www.foxtable.com/webhelp/topics/0680.htm

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/19 10:29:00 [显示全部帖子]

示例：

例如从订单表中提取不重复的客户、产品数据，填充到统计表中：

dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill() '填充数据

下一主题 >> << 上一主题

主题：按时间自动复制表的多行