Foxtable(狐表)用户栏目专家坐堂 → 不同日期的登记怎么分开求和


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

主题:不同日期的登记怎么分开求和

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


加好友 发短信
等级:婴狐 帖子:22 积分:221 威望:0 精华:0 注册:2019/9/2 23:19:00
不同日期的登记怎么分开求和  发帖心情 Post By:2020/3/26 1:02:00 [只看该作者]

就是我有两个表,其中一个是入库,一个是通信设备。我是在通信设备中增加行,同时入库表也会增加一行。

 

比如,我今天买了20部对讲机,那么品牌,型号是一样,但是对讲机ID不一样,那么在通信设备表中我要每个登记;然而,在入库表中却只显示一行信息,也就是说在入库表中只显示品牌,型号,类别和数量,这个数量就是20部。

 

过段时间我觉得这个牌子的对讲机好用,那么我有购买了10部,这里,还是和上面说的一样,今天买的要在入库表中要显示是今天入库的10部对讲机,而不是把数量加到上次的入库登记。

 

最终一句话,就是今天的入库登记和上次的入库登记要分开求和。通信设备表中始终要把每个设备分开登记。

 

这个该怎么写代码?求大神教教


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


加好友 发短信 一级勋章
等级:超级版主 帖子:6908 积分:38111 威望:0 精华:17 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/3/26 2:11:00 [只看该作者]

增加一个备注列,多个编号用分隔符隔开备注!发放给某人时,从这个字段取值供选用!

 回到顶部
帅哥,在线噢!
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:46818 积分:246637 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2020/3/26 8:44:00 [只看该作者]

用关联表啊,一个入库表,一个入库明细表



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


加好友 发短信
等级:婴狐 帖子:22 积分:221 威望:0 精华:0 注册:2019/9/2 23:19:00
  发帖心情 Post By:2020/3/26 14:44:00 [只看该作者]

那该怎么写代码呢?


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


加好友 发短信
等级:婴狐 帖子:22 积分:221 威望:0 精华:0 注册:2019/9/2 23:19:00
  发帖心情 Post By:2020/3/26 14:48:00 [只看该作者]

用关联表数量列也得用Sum求和,那样的话和用这样的代码是一样的

 If e.DataCol.name = "物资名称" Then
            Dim kc As String = "[物资名称] = '" & e.NewValue & "'"
            e.DataRow("数量_入库") = DataTables("入库").Compute("sum(物资数量)", kc)
            e.DataRow("数量_出库") = DataTables("出库").Compute("sum(物资数量)", kc)
        End If
最主要的是,我今天入库的东西和明天入库的东西要按照入库时间分开,也就是要有两行。但是通信设备表里得要分为多行。


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


加好友 发短信
等级:婴狐 帖子:22 积分:221 威望:0 精华:0 注册:2019/9/2 23:19:00
  发帖心情 Post By:2020/3/26 14:52:00 [只看该作者]

我把通信设备表事件写的这个代码,这样我在通信设备表增加行时,入库表也会增加行,所以我想请教各位大神入库表的代码怎么写,才能按照日期来分行显示

Select Case e.DataCol.name
    Case "物资名称"
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("入库").AddNew()
            dr("物资分类") = e.DataRow("物资分类")
            dr("物资名称") = e.DataRow("物资名称")
            dr("物资品牌") = e.DataRow("物资品牌")
            dr("物资类别") = e.DataRow("物资类别")
            dr("物资数量") = e.DataRow("物资数量")
            dr("备注") = e.DataRow("备注")
            dr("物资图片") = e.DataRow("物资图片")
        Else
            dr("物资名称") = e.NewValue
        End If
    Case "物资分类","物资名称","物资品牌","物资类别","物资数量","物资图片","备注"
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.DataRow("物资名称") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.NewValue
        End If
End Select


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不是应该有个“入库时间”列吗?按入库时间列区分不就行了。

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


加好友 发短信
等级:婴狐 帖子:22 积分:221 威望:0 精华:0 注册:2019/9/2 23:19:00
  发帖心情 Post By:2020/3/26 15:22:00 [只看该作者]

用时间列会出错,有个提示我记不得是什么 = String,   好像是这样


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:46226 积分:234572 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/26 15:41:00 [只看该作者]

重新测试,把完整出错提示、以及使用代码发上来

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


加好友 发短信
等级:婴狐 帖子:22 积分:221 威望:0 精华:0 注册:2019/9/2 23:19:00
  发帖心情 Post By:2020/3/26 16:05:00 [只看该作者]

Select Case e.DataCol.name
    Case "入库日期"
        Dim dr As DataRow = DataTables("入库").Find("入库日期 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("入库").AddNew()
            dr("物资分类") = e.DataRow("物资分类")
            dr("物资名称") = e.DataRow("物资名称")
            dr("物资品牌") = e.DataRow("物资品牌")
            dr("物资类别") = e.DataRow("物资类别")
            dr("物资数量") = e.DataRow("物资数量")
            dr("备注") = e.DataRow("备注")
            dr("物资图片") = e.DataRow("物资图片")
            dr("入库日期") = e.DataRow("入库日期")
        Else
            dr("入库日期") = e.NewValue
        End If
    Case "物资分类","物资名称","物资品牌","物资类别","物资数量","物资图片","备注","入库日期"
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.DataRow("物资名称") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.NewValue
        End If
End Select

 

 

我不知道这个代码该怎么该,错误提示


图片点击可在新窗口打开查看此主题相关图片如下:1585209746(1).png
图片点击可在新窗口打开查看

 回到顶部
总数 15 1 2 下一页