以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按钮统计后订单编号日期自动变下一天的日  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89940)

--  作者:xioxio
--  发布时间:2016/9/1 17:15:00
--  按钮统计后订单编号日期自动变下一天的日

此主题相关图片如下:qq图片20160902013949.png
按此在新窗口浏览图片
各位版主老师:如何在按钮统计当天订单后  再增加订单编号日期自动变下一天的日期

--  作者:有点蓝
--  发布时间:2016/9/1 17:58:00
--  

Dim dr1 As Row = Tables("明细表").Rows(Tables("明细表").Rows.Count - 1)
Dim dr As Row = Tables("明细表").AddNew
Dim d As Date = dr1("日期")
If 已结账 Then
    dr("日期") = d.AddDays(1)
Else
    dr("日期") = d
End If

--  作者:xioxio
--  发布时间:2016/9/2 11:39:00
--  
谢谢!