以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 取数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159611) |
-- 作者:qazlinle6 -- 发布时间:2020/12/31 19:03:00 -- 取数 此主题相关图片如下:批注 2020-12-31 190024.png 输入年,月,店名,对账品名,月初柜台余货_数量 取上个月的 月末柜台余货_数量 数
|
-- 作者:有点蓝 -- 发布时间:2020/12/31 20:27:00 -- DataColChanged事件:http://www.foxtable.com/webhelp/topics/1451.htm Select Case e.DataCol.Name Case "年","月","店名","对账品名" Dim dr As DataRow = e.DataRow Dim pr As DataRow If dr.IsNull("年") OrElse dr.IsNull("月") OrElse dr.IsNull("店名") OrElse dr.IsNull("对账品名") Then dr("月初柜台余货_数量") = Nothing Else Dim filter As String filter = "店名 = \'" & dr("店名") & "\' And 对账品名 = \'" & dr("对账品名") & "\'" Dim d As Date = cdate(dr("年"),dr("月"),1) d = d.AddMonths(-1) filter = filter & " and 年=" & d.Year & " And 月=" & d.Month pr = DataTables("产品").Find(filter) If pr IsNot Nothing Then dr("月初柜台余货_数量") = pr("月末柜台余货_数量") End If End If End Select |
-- 作者:qazlinle6 -- 发布时间:2020/12/31 20:36:00 -- 此主题相关图片如下:批注 2020-12-31 203508.png |
-- 作者:有点蓝 -- 发布时间:2020/12/31 20:44:00 -- Dim d As Date = cdate(dr("年"),dr("月"),1) 改为 Dim d As Date = new date (dr("年"),dr("月"),1)
|
-- 作者:qazlinle6 -- 发布时间:2020/12/31 21:06:00 -- 如果把年月改成日期呢 什么改代码 |
-- 作者:有点蓝 -- 发布时间:2020/12/31 21:17:00 -- 日期不需要转换,直接使用 |
-- 作者:qazlinle6 -- 发布时间:2020/12/31 21:26:00 -- 日期我也想像年月那样2020-02=2020-01 2020-01-02=2020-01-01 戓 2020-01-10=2020-01-01 取当时加的日期前面那个
[此贴子已经被作者于2020/12/31 21:29:44编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/12/31 21:36:00 -- 参考:http://www.foxtable.com/webhelp/topics/2136.htm |
-- 作者:qazlinle6 -- 发布时间:2020/12/31 22:17:00 -- 这个我用了,太卡了 |
-- 作者:有点蓝 -- 发布时间:2020/12/31 22:49:00 -- 请上传实例测试 |