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


  共有2715人关注过本帖树形打印复制链接

主题：怎么让表格每天自动增加一行？
帅哥哟，离线，有人找我吗？
kljbdjz
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：462 威望：0 精华：0 注册：2018/6/3 16:05:00 		怎么让表格每天自动增加一行？  发帖心情 Post By：2018/7/11 16:45:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/11 17:12:00 [只看该作者]

afterOpenProject事件

 

Dim fdr = DataTables("表A").sqlfind("第五列=#" & Date.Today & "#")
If fdr Is Nothing Then
    fdr = DataTables("表A").addnew
    fdr("第五列") = Date.Today
    fdr.save
End If
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 15:15: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.save
End If


什么没用
[此贴子已经被作者于2020/10/8 15:15:57编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106282 积分：540539 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 15:50:00 [只看该作者]

Dim fdr As DataRow
fdr = DataTables("进货退货").sqlfind("日期=#" & Date.Today & "# And 店名账号= User.name"  )
If fdr Is Nothing Then
    fdr = DataTables("进货退货").addnew
    fdr("日期") = Date.Today
    fdr("店名账号") = User.name
    fdr("对账品名") = "linle"
    fdr.save
End If


这样是不是哪错了
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu1
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：162 积分：1083 威望：0 精华：0 注册：2020/1/16 11:58:00 		  发帖心情 Post By：2020/10/8 15:54:00 [只看该作者]

Dim fdr As DataRow
fdr = DataTables("进货退货").sqlfind("日期=#" & Date.Today & "# And 店名账号= '" & User.name & "'"  )
If fdr Is Nothing Then
    fdr = DataTables("进货退货").addnew
    fdr("日期") = Date.Today
    fdr("店名账号") = User.name
    fdr("对账品名") = "linle"
    fdr.save
End If
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 15:57:00 [只看该作者]

谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 16:27:00 [只看该作者]

If e.DataCol.Name = "进货退货" Then '如果是已结帐列的内容变动
    If e.NewValue = "调岀" Then '而且变动后的值是True(已勾选)
        Dim dr As Row = Tables("进货退货").Rows(Tables("进货退货").Rows.Count - 1)
        Dim nr As Row = Tables("进货退货").addnew
        nr("店名账号") = dr("店名调入账号")
        nr("对账品名") = dr("对账品名")
        nr("对账品类") = dr("对账品类")
        nr("备注") = dr("备注")
        nr("签名开piao签字") = dr("签名开piao签字")
        nr("签名接收签字") = dr("签名接收签字")
        nr("签名账本签字") = dr("签名账本签字")
        
        nr("数据数量") = dr("数据数量")*-1
        nr("数据金重") = dr("数据金重")*-1
        nr("数据总重量") = dr("数据总重量")*-1
        nr("数据标签价格") = dr("数据标签价格")*-1
        nr("数据标签单价") = dr("数据标签单价")*-1
                nr("数据成本") = dr("数据成本")*-1

        nr("进货退货")="调入"
    End If
End If



改成条件复制行什么改
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106282 积分：540539 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 16:36:00 [只看该作者]

Dim fdr As DataRow
fdr = DataTables("进货退货").sqlfind("日期=#" & Date.Today & "# And 店名账号= '" & User.name & "'"  )
If fdr Is Nothing Then
    fdr = DataTables("进货退货").addnew
    fdr("日期") = Date.Today
    fdr("店名账号") = User.name
    fdr("对账品名") = "linle"
    fdr.save
End If

可以改成

If e.DataCol.Name = "进货退货" Then '如果是已结帐列的内容变动
    If e.NewValue = "调岀" Then '而且变动后的值是True(已勾选)
        Dim dr As Row = Tables("进货退货").Rows(Tables("进货退货").Rows.Count - 1)
        Dim nr As Row = Tables("进货退货").addnew
        nr("店名账号") = dr("店名调入账号")
        nr("对账品名") = dr("对账品名")
        nr("对账品类") = dr("对账品类")
        nr("备注") = dr("备注")
        nr("签名开piao签字") = dr("签名开piao签字")
        nr("签名接收签字") = dr("签名接收签字")
        nr("签名账本签字") = dr("签名账本签字")
        
        nr("数据数量") = dr("数据数量")*-1
        nr("数据金重") = dr("数据金重")*-1
        nr("数据总重量") = dr("数据总重量")*-1
        nr("数据标签价格") = dr("数据标签价格")*-1
        nr("数据标签单价") = dr("数据标签单价")*-1
                nr("数据成本") = dr("数据成本")*-1

        nr("进货退货")="调入"
    End If
End If

要固定自动复制昨天的同店10行

[此贴子已经被作者于2020/10/8 16:38:52编辑过]
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询