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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么让表格每天自动增加一行？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121686)

--  作者：kljbdjz
--  发布时间：2018/7/11 16:45:00
--  怎么让表格每天自动增加一行？
怎么让表格每天自动增加一行？

--  作者：有点甜
--  发布时间：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
--  发布时间：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编辑过]

--  作者：有点蓝
--  发布时间：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
--  发布时间：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
--  发布时间：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
--  发布时间：2020/10/8 15:57:00
--
谢谢

--  作者：qazlinle6
--  发布时间：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("签名开票签字") = dr("签名开票签字")
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

改成条件复制行什么改

--  作者：有点蓝
--  发布时间：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
--  发布时间：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编辑过]