Foxtable(狐表)用户栏目专家坐堂 → 取数


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

主题:取数

帅哥哟,离线,有人找我吗?
qazlinle6
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:254 积分:2098 威望:0 精华:0 注册:2013/6/8 16:19:00
取数  发帖心情 Post By:2020/12/31 19:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:批注 2020-12-31 190024.png
图片点击可在新窗口打开查看


输入年,月,店名,对账品名,月初柜台余货_数量  取上个月的  月末柜台余货_数量  数

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:63141 积分:320084 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:254 积分:2098 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2020/12/31 20:36:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:批注 2020-12-31 203508.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:63141 积分:320084 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 20:44:00 [只看该作者]

Dim d As Date = cdate(dr("年"),dr("月"),1)
改为
Dim d As Date = new date (dr("年"),dr("月"),1)

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:254 积分:2098 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2020/12/31 21:06:00 [只看该作者]

如果把年月改成日期呢  什么改代码

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:63141 积分:320084 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 21:17:00 [只看该作者]

日期不需要转换,直接使用

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:254 积分:2098 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:63141 积分:320084 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 21:36:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:254 积分:2098 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2020/12/31 22:17:00 [只看该作者]

这个我用了,太卡了

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:63141 积分:320084 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 22:49:00 [只看该作者]

请上传实例测试

 回到顶部
总数 25 1 2 3 下一页