怎么让表格每天自动增加一行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么让表格每天自动增加一行？

共有2725人关注过本帖树形打印复制链接主题：怎么让表格每天自动增加一行？

有点蓝

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

加好友

发短信

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

Post By：2020/10/8 16:41:00 [只看该作者]

截图说明一下

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/10/8 16:52:00 [只看该作者]

此主题相关图片如下：360截图20201008164454571.jpg

今天日期和店名账号有这些行，明天自已复制这些行，如果有就不复制

有点蓝

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

加好友

发短信

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

Post By：2020/10/8 17:06:00 [只看该作者]

Dim fdr As DataRow

fdr = DataTables("进货退货").sqlfind("日期=#" & Date.Today & "# And 店名账号= '" & User.name & "'" )

If fdr Is Nothing Then

for each dr as datarow in DataTables("进货退货").sqlselect("日期=#" & Date.Today.adddays(-1) & "# And 店名账号= '" & User.name & "'" )

fdr = DataTables("进货退货").addnew

fdr("日期") = Date.Today

fdr("店名账号") = User.name

fdr("对账品名") = "linle"

fdr("对账品类") = dr("对账品类")

……

fdr.save

End If

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/10/8 17:31:00 [只看该作者]

那如果只复制对账品名的几个内容呢

有点蓝

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

加好友

发短信

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

Post By：2020/10/9 8:39:00 [只看该作者]

代码都是自己写的，想复制几个内容，就写几个赋值的代码

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

总数 15 上一页 1 2

主题：怎么让表格每天自动增加一行？