Foxtable(狐表) → 用户栏目 → 专家坐堂 → 第一行的期末值 作为第二行的期初值，以此类推


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

主题：第一行的期末值 作为第二行的期初值，以此类推
帅哥哟，离线，有人找我吗？
Hyphen
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/30 17:15:00 [只看该作者]

代码，例子？

 回到顶部
帅哥哟，离线，有人找我吗？
约翰舒
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：226 积分：1796 威望：0 精华：0 注册：2016/8/3 15:11:00 		  发帖心情 Post By：2016/8/30 17:28:00 [只看该作者]

这个是代码

If e.DataCol.Name = "产品" AndAlso e.newValue IsNot Nothing  Then
    Dim Filter As String = "[_SortKey] < " & e.DataRow("_SortKey") & " And [产品] = '" & e.newValue & "'"
    Dim dr As DataRow = e.DataTable.Find(filter,"[_sortkey] desc")
    If dr IsNot Nothing Then
        e.DataRow("入库") = dr("库存")
    End If
End If

但是有缺陷

比如  第一行  产品1 ，入库1，出库0，库存1
        第二行  产品2， 入库2，出库1，库存1
        第三行  产品1， 入库1，出库1，库存0
        第四行  产品2，入库1，出库0，库存1

当对  第一行进行改变，把产品1改成产品2时，第二行的数据不能够随之发生改变，
                              把入库1改成入库0时，第三行的数据也不能够随之发生改变。
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/30 17:46:00 [只看该作者]

If e.DataCol.Name = "产品" AndAlso e.newValue IsNot Nothing  Then
    Dim Filter As String = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.newValue & "'"
    Dim dr As DataRow = e.DataTable.Find(filter,"[_sortkey] desc")
    If dr IsNot Nothing Then
        dr("入库") = e.DataRow("库存")
    End If
End If

这段代码只是判断产品，入库列的改变不会触发
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/30 17:48:00 [只看该作者]

如果想要入库列的改变也会触发
Select Case e.DataCol.Name
    Case "产品","入库","出库"
        Dim Filter As String = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.DataRow("产品") & "'"
        Dim dr As DataRow = e.DataTable.Find(filter,"[_sortkey] desc")
        If dr IsNot Nothing Then
            dr("入库") = e.DataRow("库存")
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2016/8/30 17:52:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目264.table
 回到顶部
帅哥哟，离线，有人找我吗？
约翰舒
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：226 积分：1796 威望：0 精华：0 注册：2016/8/3 15:11:00 		  发帖心情 Post By：2016/8/30 18:20:00 [只看该作者]

我把你写的代码输入进去后，试了下，还是不行，我把a变成b后，下面的b不会全部随之发生变化，只是个别随之改变

而且，我想同时，改变入库和出库以及产品名时，所有的数据都随之发生变化。这个怎么修改？
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2016/8/30 18:35:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目264.table
 回到顶部
总数 47 上一页 1 2 3 4 5
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 6 次数据查询