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


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

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

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


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

最主要的是这些代码我一个都不认识,英语是一窍不通啊

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


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

Select Case e.DataCol.name
    Case "入库日期"
if e.OldValue <> nothing
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.DataRow("物资名称") & "' and 入库日期 = '" & 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
end if
End Select
Select Case e.DataCol.name
    Case "物资分类","物资名称","物资品牌","物资类别","物资数量","物资图片","备注","入库日期"
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.DataRow("物资名称") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.NewValue
        End If
End Select

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


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

还是不行,这样两个表里都没有的情况下,在通信设备表里增加一行内容时,入库表没有增加。只能在通信设备表里删除行内容时,入库表才会增加一行。

而且,开始的时候,入库表的数量列也没有内容。


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


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

我又试了下

通信设备表中新增行后入库表不会同时增加行,然后在返回通信设备表更改入库日期,入库表才能增加行,但是入库表数量列没有值,在返回通信设备表增加一行,入库时间一样,入库表数量列的值也是1部,而不是2部。

之后在通信设备表中增加行,入库日期不同时,入库表不会增加行。在返回通信设备表修改入库日期后会在增加行,但是现在数量列里没有值,而且前面的入库日期也会变为才修改的日期。


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


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

请上传实例说明

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