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

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

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

有点蓝

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

加好友

发短信

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

Post By：2020/10/8 15:25:00 [显示全部帖子]

Dim fdr As DataRow

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

If fdr Is Nothing Then

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

fdr("日期") = Date.Today

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

fdr("店名账号") = "开发"

fdr.save

End If

有点蓝

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

加好友

发短信

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

Post By：2020/10/8 16:31:00 [显示全部帖子]

这个意思？

If e.DataCol.Name = "进货退货" Then '如果是已结帐列的内容变动

If e.NewValue = "调岀" Then '而且变动后的值是True(已勾选)

Dim dr As dataRow = dataTables("进货退货").find(“xxx条件”) http://www.foxtable.com/webhelp/topics/0396.htm

Dim nr As Row = Tables("进货退货").addnew

有点蓝

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

加好友

发短信

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

Post By：2020/10/8 16:41:00 [显示全部帖子]

截图说明一下

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：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

有点蓝

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

加好友

发短信

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

Post By：2020/10/9 8:39:00 [显示全部帖子]

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

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

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