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


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

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


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：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


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


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 15:57:00 [显示全部帖子]

谢谢

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


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：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



改成条件复制行什么改
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 16:52:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：360截图20201008164454571.jpg
图片点击可在新窗口打开查看


今天日期和店名账号有这些行，明天自已复制这些行，如果有就不复制
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/10/8 17:31:00 [显示全部帖子]

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询